| line |
true |
false |
branch |
|
8
|
2 |
0 |
if (eval {
do {
require warnings
}
}) { } |
|
10
|
2 |
0 |
if (eval {
do {
require warnings::register
}
}) |
|
37
|
1 |
7 |
!defined($val) ? : |
|
48
|
13 |
4 |
if (eval {
do {
require Carp;
1
}
} and defined &Carp::croak) |
|
60
|
1 |
7 |
unless isa($code, 'CODE') |
|
66
|
1 |
5 |
wantarray ? : |
|
73
|
1 |
3 |
unless isa($sub, 'CODE') |
|
77
|
1 |
5 |
unless isa($av, 'ARRAY') |
|
79
|
2 |
3 |
if ($size < 0) { } |
|
|
1 |
2 |
elsif ($size != @$av) { } |
|
90
|
1 |
0 |
wantarray ? : |
|
97
|
1 |
3 |
unless isa($sub, 'CODE') |
|
101
|
1 |
6 |
unless isa($av, 'ARRAY') |
|
103
|
3 |
3 |
if $min < 0 or @$av < $min |
|
109
|
2 |
0 |
wantarray ? : |
|
116
|
1 |
3 |
unless isa($sub, 'CODE') |
|
120
|
1 |
6 |
unless isa($av, 'ARRAY') |
|
122
|
2 |
4 |
if $max < @$av |
|
128
|
2 |
0 |
wantarray ? : |
|
135
|
1 |
3 |
unless isa($sub, 'CODE') |
|
139
|
1 |
6 |
unless isa($av, 'ARRAY') |
|
141
|
2 |
4 |
if $max < @$av |
|
145
|
16 |
2 |
$i < @$_ ? : |
|
148
|
2 |
0 |
wantarray ? : |
|
156
|
0 |
720 |
if $last < 1 |
|
161
|
120 |
600 |
if (-1 == $i) |
|
167
|
240 |
360 |
if $$vals[$i + 1] gt $vals->[$last] |
|
182
|
0 |
0 |
if $last < 1 |
|
187
|
0 |
0 |
if (-1 == $i) |
|
193
|
0 |
0 |
if $vals->[$last] < $$vals[$i + 1] |
|
207
|
1 |
13 |
unless isa($loops, 'ARRAY') |
|
213
|
1 |
4 |
unless (isa($loop, 'ARRAY') or isa($loop, 'CODE')) |
|
222
|
6 |
6 |
if (isa($opts, 'HASH')) { } |
|
229
|
3 |
9 |
if (0 == @_) { } |
|
|
1 |
8 |
elsif (1 != @_) { } |
|
235
|
2 |
6 |
unless isa($code, 'CODE') |
|
241
|
1 |
8 |
if (keys %$opts) |
|
259
|
0 |
8 |
unless @vals |
|
264
|
204 |
1058 |
if ($i < $#$loops) |
|
266
|
155 |
49 |
if (isa($loops->[$i], 'CODE')) |
|
275
|
7 |
197 |
if --$i < 0 |
|
279
|
164 |
1091 |
!ref($when) ? : |
|
283
|
1082 |
173 |
if $act |
|
295
|
2 |
6 |
unless ($code) |
|
296
|
1 |
1 |
unless (defined wantarray) |
|
307
|
90 |
872 |
if (wantarray) { } |
|
313
|
2 |
4 |
wantarray ? : |