| line |
true |
false |
branch |
|
142
|
15 |
23 |
unless ref $iter |
|
144
|
15 |
8 |
if (blessed $iter) { } |
|
|
0 |
8 |
elsif (ref $iter eq 'CODE') { } |
|
|
8 |
0 |
elsif (ref $iter eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $iter eq 'GLOB') { } |
|
149
|
15 |
0 |
if ($iter->can($method)) |
|
161
|
8 |
16 |
if $i > $#$iter |
|
200
|
0 |
2 |
unless (@_) |
|
207
|
3 |
3 |
if (ref $av eq 'ARRAY') { } |
|
|
3 |
0 |
elsif (my $coderef = _adapt_iter($av)) { } |
|
230
|
10 |
8 |
defined($x = $which[$c]()) ? : |
|
|
10 |
8 |
$i < @$_ ? : |
|
|
18 |
18 |
$which[$c] ? : |
|
236
|
10 |
2 |
if @next |
|
238
|
2 |
0 |
wantarray ? : |
|
258
|
0 |
1 |
unless (@_) |
|
263
|
0 |
3 |
unless (UNIVERSAL::isa($av, 'ARRAY')) |
|
266
|
2 |
1 |
if $max < @$av |
|
272
|
1 |
0 |
wantarray ? : |
|
287
|
0 |
1 |
unless (@_) |
|
290
|
0 |
1 |
unless (UNIVERSAL::isa($_, 'HASH')) |
|
344
|
50 |
42 |
unless (defined $i) |
|
345
|
18 |
32 |
if $n > $#__ |
|
353
|
56 |
18 |
if (defined $rv) { } |
|
382
|
2 |
1 |
if (my $i = _adapt_iter($_[$n])) { } |
|
444
|
5 |
1 |
if (defined $val) { } |
|
468
|
1 |
5 |
unless defined $_ |
|
469
|
3 |
2 |
if (&$sub()) |