| line |
true |
false |
branch |
|
129
|
0 |
64 |
unless my $x = &refaddr($r) |
|
132
|
0 |
64 |
if exists $o->{'skip'}{$x} |
|
135
|
3 |
17 |
if not $ro and $immortal{$x} |
|
136
|
3 |
58 |
if &blessed($r) and not $o->{'peek'} |
|
145
|
1 |
56 |
if $t eq 'CODE' or $t eq 'IO' or $t eq 'FORMAT' or $t eq 'REGEXP' |
|
151
|
56 |
0 |
unless ($o->{'shallow'}) |
|
152
|
3 |
53 |
if ($t eq 'REF') |
|
155
|
11 |
45 |
if ($t eq 'ARRAY') |
|
158
|
7 |
49 |
if ($t eq 'HASH') |
|
163
|
3 |
53 |
if ($t eq 'GLOB') |
|
188
|
0 |
3 |
unless my $t = &reftype($r) |
|
191
|
1 |
2 |
if ($t eq 'SCALAR' or $t eq 'REF') |
|
194
|
1 |
2 |
if ($t eq 'ARRAY') |
|
197
|
1 |
2 |
if ($t eq 'HASH') |
|
200
|
0 |
3 |
if ($t eq 'GLOB') |