| line |
true |
false |
branch |
|
23
|
9 |
2 |
@_ % 2 ? : |
|
35
|
0 |
0 |
@_ % 2 ? : |
|
36
|
0 |
0 |
if ref $add ne 'ARRAY' |
|
47
|
6 |
5 |
if (my $r = $args->{'recurse'}) { } |
|
|
5 |
0 |
elsif (my $n = $args->{'nestings'}) { } |
|
48
|
2 |
4 |
if ref $r ne 'ARRAY' |
|
53
|
5 |
0 |
ref $n eq 'ARRAY' ? : |
|
54
|
2 |
3 |
if @nest |
|
60
|
0 |
11 |
unless defined $mine |
|
64
|
8 |
3 |
if @nest_opts |
|
73
|
21 |
4 |
if (my $nest = $self->{'nest'}) |
|
75
|
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')) { } |
|
93
|
0 |
191 |
if $end |
|
97
|
11 |
180 |
if $AUTOLOAD eq 'DESTROY' and not $obj->can('DESTROY') |