| line |
true |
false |
branch |
|
60
|
1 |
2 |
if defined $_[1] |
|
64
|
39 |
11 |
unless defined $prune |
|
74
|
1 |
122 |
if $$state{'level'} > $Class::Rebless::MAX_RECURSE |
|
77
|
72 |
50 |
if (defined $refaddr) |
|
78
|
1 |
71 |
if $$state{'seen'}{$refaddr}++ and not $$opts{'revisit'} |
|
79
|
0 |
71 |
if $$state{'stack'}{$refaddr} |
|
83
|
71 |
50 |
defined $refaddr ? : |
|
87
|
50 |
71 |
if (&Scalar::Util::blessed($obj)) |
|
89
|
1 |
49 |
if $class->need_prune($res) |
|
93
|
50 |
70 |
unless defined $type |
|
95
|
4 |
66 |
if ($type eq 'SCALAR') { } |
|
|
10 |
56 |
elsif ($type eq 'ARRAY') { } |
|
|
45 |
11 |
elsif ($type eq 'HASH') { } |
|
|
3 |
8 |
elsif ($type eq 'GLOB') { } |
|
111
|
3 |
0 |
if (defined($slot = *$obj{'SCALAR'})) |
|
114
|
1 |
2 |
if (defined($slot = *$obj{'ARRAY'})) |
|
119
|
1 |
2 |
if (defined($slot = *$obj{'HASH'})) |