| line |
true |
false |
branch |
|
14
|
356 |
0 |
if (exists $args{'index'}) |
|
15
|
101 |
255 |
if (ref $args{'index'} eq 'ARRAY') { } |
|
21
|
0 |
356 |
unless @$indices |
|
22
|
0 |
356 |
if grep {not defined $_;} @$indices |
|
33
|
14805 |
14739 |
if ($$self{'allow_blessed'}) { } |
|
35
|
12841 |
1964 |
defined $ref ? : |
|
44
|
3204 |
14719 |
if (not defined $whole) { } |
|
|
6592 |
8127 |
elsif ($type eq 'ARRAY') { } |
|
|
6158 |
1969 |
elsif ($type eq 'HASH') { } |
|
60
|
1852 |
14723 |
unless @parts |
|
61
|
3102 |
11621 |
unless (defined $whole) |
|
63
|
1559 |
1543 |
if (grep {not $_ =~ /^\d+$/;} @{$$self{'indices'};}) { } |
|
72
|
6007 |
5614 |
if ($type eq 'ARRAY') { } |
|
|
5614 |
0 |
elsif ($type eq 'HASH') { } |
|
74
|
2995 |
3012 |
$$self{'immutable'} ? : |
|
77
|
6 |
10631 |
if $index < -@$ret |
|
82
|
2788 |
2826 |
$$self{'immutable'} ? : |