| line |
true |
false |
branch |
|
28
|
2020 |
1795 |
unless $safe |
|
29
|
1795 |
2020 |
if $safe |
|
31
|
3393 |
422 |
unless $r |
|
32
|
422 |
3393 |
$r ? : |
|
40
|
1641 |
80 |
unless ref $self |
|
41
|
48 |
0 |
if (@_ and $_[0]) |
|
49
|
8 |
84 |
unless ref $self |
|
50
|
84 |
0 |
if (@_ and $_[0]) |
|
81
|
0 |
0 |
if return !$_[0][2] |
|
85
|
220 |
440 |
unless $_[0][0] |
|
86
|
328 |
112 |
unless $_[0][2] |
|
87
|
0 |
112 |
if $_[0][3] and $_[0][0]->can('count') |
|
88
|
4 |
108 |
if $_[0][3] |
|
89
|
52 |
56 |
if $_[0][2] eq 'ARRAY' |
|
90
|
52 |
4 |
if $_[0][2] eq 'HASH' |
|
106
|
0 |
68 |
unless $level |
|
107
|
0 |
68 |
unless (defined $data) |
|
110
|
68 |
0 |
unless (ref $data) |
|
113
|
0 |
0 |
if (&Scalar::Util::blessed($data)) |
|
114
|
0 |
0 |
if $data->can('string') |
|
115
|
0 |
0 |
if $data->can('__str__') |
|
116
|
0 |
0 |
if $data->can('ToString') |
|
117
|
0 |
0 |
if $data->can('repr') |
|
118
|
0 |
0 |
if $data->can('__repr__') |
|
121
|
0 |
0 |
if (&Scalar::Util::reftype($data) eq 'HASH' and $level > 1) |
|
124
|
0 |
0 |
if (&Scalar::Util::reftype($data) eq 'ARRAY' and $level > 1) |
|
134
|
44 |
2213 |
if ($self->undef) { } |
|
|
2177 |
36 |
elsif ($self->scalar) { } |
|
|
0 |
36 |
elsif ($self->object and $data->can('string')) { } |
|
|
0 |
36 |
elsif ($self->object and $data->can('__str__')) { } |
|
|
0 |
36 |
elsif ($self->object and $data->can('ToString')) { } |
|
|
0 |
36 |
elsif ($self->object and $data->can('repr')) { } |
|
|
0 |
36 |
elsif ($self->object and $data->can('__repr__')) { } |
|
|
36 |
0 |
elsif ($self->array) { } |
|
|
0 |
0 |
elsif ($self->hash) { } |
|
157
|
0 |
36 |
unless $Dotiac::DTL::Max_Depth |
|
161
|
0 |
0 |
unless $Dotiac::DTL::Max_Depth |
|
164
|
1280 |
977 |
unless ($$self[1]) |
|
179
|
0 |
96 |
unless $level |
|
180
|
0 |
96 |
unless (defined $data) |
|
183
|
96 |
0 |
unless (ref $data) |
|
186
|
0 |
0 |
if (&Scalar::Util::blessed($data)) |
|
187
|
0 |
0 |
if $data->can('string') |
|
188
|
0 |
0 |
if $data->can('__str__') |
|
189
|
0 |
0 |
if $data->can('ToString') |
|
190
|
0 |
0 |
if $data->can('repr') |
|
191
|
0 |
0 |
if $data->can('__repr__') |
|
194
|
0 |
0 |
if (&Scalar::Util::reftype($data) eq 'HASH' and $level > 1) |
|
197
|
0 |
0 |
if (&Scalar::Util::reftype($data) eq 'ARRAY' and $level > 1) |
|
206
|
0 |
888 |
if ($self->undef) { } |
|
|
872 |
16 |
elsif ($self->scalar) { } |
|
|
0 |
16 |
elsif ($self->object and $data->can('string')) { } |
|
|
0 |
16 |
elsif ($self->object and $data->can('__str__')) { } |
|
|
0 |
16 |
elsif ($self->object and $data->can('ToString')) { } |
|
|
0 |
16 |
elsif ($self->object and $data->can('repr')) { } |
|
|
0 |
16 |
elsif ($self->object and $data->can('__repr__')) { } |
|
|
16 |
0 |
elsif ($self->array) { } |
|
|
0 |
0 |
elsif ($self->hash) { } |
|
228
|
0 |
16 |
unless $Dotiac::DTL::Max_Depth |
|
232
|
0 |
0 |
unless $Dotiac::DTL::Max_Depth |
|
242
|
0 |
12 |
unless $level |
|
243
|
0 |
12 |
unless (defined $data) |
|
246
|
12 |
0 |
unless (ref $data) |
|
247
|
0 |
12 |
if &Scalar::Util::looks_like_number($data) |
|
250
|
0 |
0 |
if (&Scalar::Util::blessed($data)) |
|
251
|
0 |
0 |
if $data->can('repr') |
|
252
|
0 |
0 |
if $data->can('__repr__') |
|
253
|
0 |
0 |
if $data->can('string') |
|
254
|
0 |
0 |
if $data->can('__str__') |
|
255
|
0 |
0 |
if $data->can('ToString') |
|
258
|
0 |
0 |
if (&Scalar::Util::reftype($data) eq 'HASH' and $level > 1) |
|
261
|
0 |
0 |
if (&Scalar::Util::reftype($data) eq 'ARRAY' and $level > 1) |
|
270
|
0 |
4 |
if ($self->undef) { } |
|
|
0 |
4 |
elsif ($self->number) { } |
|
|
0 |
4 |
elsif ($self->scalar) { } |
|
|
0 |
4 |
elsif ($self->object and $data->can('repr')) { } |
|
|
0 |
4 |
elsif ($self->object and $data->can('__repr__')) { } |
|
|
0 |
4 |
elsif ($self->object and $data->can('string')) { } |
|
|
0 |
4 |
elsif ($self->object and $data->can('__str__')) { } |
|
|
0 |
4 |
elsif ($self->object and $data->can('ToString')) { } |
|
|
4 |
0 |
elsif ($self->array) { } |
|
|
0 |
0 |
elsif ($self->hash) { } |
|
295
|
0 |
4 |
unless $Dotiac::DTL::Max_Depth |
|
299
|
0 |
0 |
unless $Dotiac::DTL::Max_Depth |
|
308
|
0 |
0 |
if ($self->undef) |
|
319
|
552 |
96 |
unless $r |
|
322
|
96 |
552 |
$r ? : |