| line |
true |
false |
branch |
|
109
|
0 |
64 |
unless my $x = &refaddr($r) |
|
112
|
0 |
64 |
if exists $o->{'skip'}{$x} |
|
115
|
3 |
17 |
if not $ro and $immortal{$x} |
|
116
|
3 |
58 |
if &blessed($r) and not $o->{'peek'} |
|
125
|
1 |
56 |
if $t eq 'CODE' or $t eq 'IO' or $t eq 'FORMAT' or $t eq 'REGEXP' |
|
128
|
56 |
0 |
unless ($o->{'shallow'}) |
|
129
|
3 |
53 |
if ($t eq 'REF') |
|
132
|
11 |
45 |
if ($t eq 'ARRAY') |
|
135
|
7 |
49 |
if ($t eq 'HASH') |
|
140
|
3 |
53 |
if ($t eq 'GLOB') |
|
165
|
0 |
3 |
unless my $t = &reftype($r) |
|
168
|
1 |
2 |
if ($t eq 'SCALAR' or $t eq 'REF') |
|
171
|
1 |
2 |
if ($t eq 'ARRAY') |
|
174
|
1 |
2 |
if ($t eq 'HASH') |
|
177
|
0 |
3 |
if ($t eq 'GLOB') |