| line |
true |
false |
branch |
|
42
|
0 |
1 |
if exists $args{-'quiet'} |
|
43
|
0 |
1 |
if exists $args{-'roasted'} |
|
44
|
0 |
1 |
if exists $args{-'raw'} |
|
45
|
0 |
1 |
if exists $args{-'cooked'} |
|
52
|
0 |
2 |
unless ($callback) |
|
64
|
2 |
5 |
unless ($callback) |
|
81
|
83 |
52 |
unless ref $current |
|
91
|
15 |
37 |
if ($$seenit{refaddr $current}) |
|
103
|
2 |
35 |
unless (defined $type) |
|
106
|
1 |
1 |
unless ($already_warned{$ref}++) |
|
123
|
0 |
2 |
if not $inc_weak_refs and isweak $$current |
|
124
|
0 |
2 |
$inc_weak_refs ? : |
|
137
|
2 |
73 |
if not $inc_weak_refs and isweak($$current[$i]) |
|
138
|
30 |
43 |
$inc_weak_refs ? : |
|
152
|
3 |
51 |
if not $inc_weak_refs and isweak($$current{$key}) |
|
153
|
22 |
29 |
$inc_weak_refs ? : |
|
166
|
0 |
0 |
unless (HAVE_PADWALKER) |
|
167
|
0 |
0 |
unless ($$complain{$current} or $QUIET) |
|
188
|
0 |
0 |
$is_weak ? : |
|
196
|
0 |
0 |
unless $type |
|
197
|
0 |
0 |
defined $index ? : |
|
198
|
0 |
0 |
if ($FORMATTING eq 'raw') { } |
|
204
|
0 |
0 |
$FORMATTING eq 'roasted' ? : |
|
|
0 |
0 |
$package ? : |
|
205
|
0 |
0 |
$deref ? : |
|
207
|
0 |
0 |
$sygil ? : |
|
|
0 |
0 |
if $type eq 'SCALAR' |
|
208
|
0 |
0 |
$sygil ? : |
|
|
0 |
0 |
if $type eq 'ARRAY' |
|
209
|
0 |
0 |
$sygil ? : |
|
|
0 |
0 |
if $type eq 'HASH' |
|
210
|
0 |
0 |
$sygil ? : |
|
|
0 |
0 |
if $type eq 'CODE' |
|
217
|
0 |
37 |
unless ref $thingy |
|
218
|
2 |
35 |
if UNIVERSAL::isa($thingy, 'SCALAR') or UNIVERSAL::isa($thingy, 'REF') |
|
219
|
15 |
20 |
if UNIVERSAL::isa($thingy, 'ARRAY') |
|
220
|
18 |
2 |
if UNIVERSAL::isa($thingy, 'HASH') |
|
221
|
0 |
2 |
if UNIVERSAL::isa($thingy, 'CODE') |
|
227
|
0 |
0 |
if $type eq 'ARRAY' |
|
228
|
0 |
0 |
if $type eq 'HASH' |
|
229
|
0 |
0 |
if $type eq 'CODE' |