| line |
true |
false |
branch |
|
128
|
0 |
64 |
unless my $x = &refaddr($r) |
|
131
|
0 |
64 |
if exists $o->{'skip'}{$x} |
|
134
|
3 |
17 |
if not $ro and $immortal{$x} |
|
135
|
3 |
58 |
if &blessed($r) and not $o->{'peek'} |
|
144
|
1 |
56 |
if $t eq 'CODE' or $t eq 'IO' or $t eq 'FORMAT' or $t eq 'REGEXP' |
|
150
|
56 |
0 |
unless ($o->{'shallow'}) |
|
151
|
3 |
53 |
if ($t eq 'REF') |
|
154
|
11 |
45 |
if ($t eq 'ARRAY') |
|
157
|
7 |
49 |
if ($t eq 'HASH') |
|
162
|
3 |
53 |
if ($t eq 'GLOB') |
|
187
|
0 |
3 |
unless my $t = &reftype($r) |
|
190
|
1 |
2 |
if ($t eq 'SCALAR' or $t eq 'REF') |
|
193
|
1 |
2 |
if ($t eq 'ARRAY') |
|
196
|
1 |
2 |
if ($t eq 'HASH') |
|
199
|
0 |
3 |
if ($t eq 'GLOB') |