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') |