| line |
true |
false |
branch |
|
40
|
0 |
0 |
unless ref $_ |
|
48
|
0 |
0 |
if ($DEBUG > 1) |
|
49
|
0 |
0 |
if require Data::Dumper |
|
53
|
0 |
0 |
unless ref $_ |
|
54
|
0 |
0 |
if $DEBUG |
|
72
|
5 |
33 |
unless ref $_[0] |
|
74
|
13 |
20 |
if $_[1]{refaddr($_[0])}++ |
|
75
|
8 |
12 |
if (UNIVERSAL::isa($_[0], 'HASH')) { } |
|
|
8 |
4 |
elsif (UNIVERSAL::isa($_[0], 'ARRAY')) { } |
|
|
4 |
0 |
elsif (UNIVERSAL::isa($_[0], 'SCALAR') or UNIVERSAL::isa($_[0], 'REF')) { } |
|
|
0 |
0 |
elsif (HAS_PADWALKER and UNIVERSAL::isa($_[0], 'CODE')) { } |
|
77
|
4 |
5 |
unless ref $_ |
|
78
|
4 |
1 |
if &$CALLEE($_, $_[1]) |
|
83
|
9 |
4 |
unless ref $_ |
|
84
|
3 |
1 |
if &$CALLEE($_, $_[1]) |
|
94
|
0 |
0 |
unless keys %$r |
|
95
|
0 |
0 |
if &$CALLEE($r, $_[1]) |
|
110
|
4 |
18 |
unless ref $_[0] |
|
112
|
9 |
9 |
if $_[1]{refaddr($_[0])}++ |
|
113
|
3 |
6 |
if (UNIVERSAL::isa($_[0], 'HASH')) { } |
|
|
3 |
3 |
elsif (UNIVERSAL::isa($_[0], 'ARRAY')) { } |
|
|
3 |
0 |
elsif (UNIVERSAL::isa($_[0], 'SCALAR') or UNIVERSAL::isa($_[0], 'REF')) { } |
|
|
0 |
0 |
elsif (HAS_PADWALKER and UNIVERSAL::isa($_[0], 'CODE')) { } |
|
126
|
0 |
0 |
unless keys %$r |