| line |
true |
false |
branch |
|
19
|
9 |
2 |
@_ % 2 ? : |
|
31
|
0 |
0 |
@_ % 2 ? : |
|
32
|
0 |
0 |
if ref $add ne 'ARRAY' |
|
43
|
6 |
5 |
if (my $r = $$args{'recurse'}) { } |
|
|
5 |
0 |
elsif (my $n = $$args{'nestings'}) { } |
|
44
|
2 |
4 |
if ref $r ne 'ARRAY' |
|
49
|
5 |
0 |
ref $n eq 'ARRAY' ? : |
|
50
|
2 |
3 |
if @nest |
|
56
|
0 |
11 |
unless defined $mine |
|
60
|
8 |
3 |
if @nest_opts |
|
69
|
21 |
4 |
if (my $nest = $$self{'nest'}) |
|
71
|
7 |
14 |
if (ref $v eq 'HASH' and $$nest[1][0]->can('TIEHASH')) { } |
|
|
0 |
28 |
elsif (ref $v eq 'ARRAY' and $$nest[1][0]->can('TIEARRAY')) { } |
|
89
|
0 |
180 |
if $end |
|
93
|
0 |
180 |
if $AUTOLOAD eq 'DESTROY' and not $obj->can('DESTROY') |