| line |
true |
false |
branch |
|
21
|
0 |
2 |
unless $code |
|
30
|
0 |
18 |
unless &$code($index, $value) |
|
32
|
0 |
18 |
if $failed |
|
35
|
0 |
2 |
$failed ? : |
|
43
|
0 |
2 |
unless $code |
|
52
|
2 |
8 |
if &$code($index, $value) |
|
54
|
2 |
8 |
if $found |
|
57
|
2 |
0 |
$found ? : |
|
111
|
0 |
7 |
unless $code |
|
123
|
5 |
2 |
wantarray ? : |
|
141
|
1 |
0 |
$index <= $#{$data;} ? : |
|
151
|
20 |
14 |
if (ref $item eq 'ARRAY') { } |
|
|
12 |
2 |
elsif (ref $item eq 'HASH') { } |
|
152
|
0 |
20 |
unless ($args[$i] =~ /^\d+$/u) |
|
170
|
1 |
18 |
wantarray ? : |
|
182
|
283 |
4 |
unless @args |
|
194
|
0 |
3 |
unless $code |
|
203
|
17 |
10 |
if &$code($index, $value) |
|
206
|
0 |
3 |
wantarray ? : |
|
214
|
1 |
3 |
$size > @$data ? : |
|
|
1 |
4 |
!$size ? : |
|
230
|
2 |
18 |
if $i > $#{$data;} |
|
231
|
9 |
9 |
wantarray ? : |
|
275
|
1 |
1 |
wantarray ? : |
|
283
|
0 |
3 |
unless $code |
|
295
|
0 |
3 |
wantarray ? : |
|
313
|
0 |
2 |
unless $code |
|
322
|
0 |
18 |
if &$code($index, $value) |
|
324
|
0 |
18 |
if $found |
|
327
|
0 |
2 |
$found ? : |
|
335
|
0 |
2 |
unless $code |
|
344
|
2 |
16 |
if &$code($index, $value) |
|
346
|
0 |
18 |
if $found > 1 |
|
349
|
2 |
0 |
$found == 1 ? : |
|
372
|
0 |
1 |
wantarray ? : |
|
380
|
1 |
15 |
wantarray ? : |
|
395
|
8 |
10 |
$result ? : |
|
400
|
0 |
2 |
wantarray ? : |
|
429
|
0 |
12 |
unless defined $path |
|
434
|
1 |
11 |
if ref $path eq "ARRAY" |
|
437
|
1 |
11 |
if ref $value eq "ARRAY" |
|
439
|
10 |
2 |
if (ref $into eq "SCALAR") |
|
446
|
0 |
4 |
wantarray ? : |
|
460
|
1 |
36 |
if @args > 1 |
|
464
|
1 |
35 |
unless defined $note |
|
470
|
1 |
34 |
if not defined $f or $f eq "" |
|
471
|
17 |
18 |
unless defined $l |
|
472
|
3 |
32 |
if not defined $l or $l eq "" |
|
477
|
4 |
31 |
if $f > -1 and $l < 0 |
|
511
|
0 |
0 |
unless @args |
|
513
|
0 |
0 |
if @args == 1 and ref $args[0] eq "ARRAY" |
|
517
|
0 |
0 |
unless defined $index |
|
567
|
1 |
3 |
$size > @$data ? : |
|
|
1 |
4 |
!$size ? : |