| line |
true |
false |
branch |
|
13
|
222 |
0 |
if (exists $args{'index'}) |
|
14
|
63 |
159 |
if (ref $args{'index'} eq 'ARRAY') { } |
|
20
|
0 |
222 |
unless @$indices |
|
21
|
0 |
222 |
if grep {not defined $_;} @$indices |
|
32
|
1630 |
7428 |
if (not defined $whole) { } |
|
|
3328 |
4100 |
elsif ($type eq 'ARRAY') { } |
|
|
2920 |
1180 |
elsif ($type eq 'HASH') { } |
|
48
|
1112 |
7224 |
unless @parts |
|
49
|
1565 |
5659 |
unless (defined $whole) |
|
51
|
790 |
775 |
if (grep {not $_ =~ /^\d+$/;} @{$$self{'indices'};}) { } |
|
60
|
3017 |
2642 |
if ($type eq 'ARRAY') { } |
|
|
2642 |
0 |
elsif ($type eq 'HASH') { } |
|
62
|
1500 |
1517 |
$$self{'immutable'} ? : |
|
65
|
6 |
5333 |
if $index < -@$ret |
|
70
|
1302 |
1340 |
$$self{'immutable'} ? : |