| line |
true |
false |
branch |
|
14
|
7 |
14 |
if (ref $spec eq 'ARRAY') { } |
|
17
|
2 |
18 |
$default eq '1' ? : |
|
25
|
3 |
47 |
$default eq '1' ? : |
|
33
|
22 |
31 |
if (ref $spec eq 'ARRAY') |
|
36
|
4 |
18 |
if do {
my $preprocess = $count[0];
$_ == 0 || !$_ % 2 ? $params[$_] =~ /[0-9]+/ && $params[$_] <= $count[1] ? next : do {
$preprocess = 0
} && (last) : (next) foreach (0 .. $count[0] - 1);
$preprocess
} |
|
38
|
4 |
12 |
$params[$_] =~ /[0-9]+/ && $params[$_] <= $count[1] ? : |
|
|
16 |
19 |
$_ == 0 || !$_ % 2 ? : |
|
42
|
3 |
3 |
if ($count[0] == 1 and $count[1] != 1 and ref $params[0] eq 'ARRAY') |
|
49
|
5 |
17 |
unless $count[0] >= $count[2] and $count[0] <= $count[1] |
|
54
|
17 |
0 |
if not $params[$_] and $spec->[$_][1] |
|
59
|
2 |
15 |
defined $count[3] ? : |
|
62
|
4 |
27 |
$count[0] == 1 ? : |
|
66
|
44 |
12 |
if not $para{$_} and $spec->{$_}[1] |
|
71
|
3 |
18 |
$count[0] == 1 ? : |
|
77
|
39 |
16 |
if (ref $default eq 'CODE') |