| line |
true |
false |
branch |
|
14
|
12 |
16 |
if (ref $spec eq 'ARRAY') { } |
|
17
|
2 |
31 |
$default eq '1' ? : |
|
25
|
3 |
53 |
$default eq '1' ? : |
|
33
|
36 |
40 |
if (ref $spec eq "ARRAY") |
|
36
|
8 |
28 |
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
|
8 |
17 |
$params[$_] =~ /[0-9]+/ && $params[$_] <= $count[1] ? : |
|
|
25 |
29 |
$_ == 0 || !$_ % 2 ? : |
|
42
|
4 |
5 |
if ($count[0] == 1 and $count[1] != 1 and ref $params[0] eq "ARRAY") |
|
49
|
7 |
29 |
unless $count[0] >= $count[2] and $count[0] <= $count[1] |
|
54
|
33 |
0 |
if not $params[$_] and $spec->[$_][1] |
|
59
|
3 |
26 |
defined $count[3] ? : |
|
62
|
6 |
34 |
$count[0] == 1 ? : |
|
66
|
53 |
16 |
if not $para{$_} and $spec->{$_}[1] |
|
71
|
5 |
23 |
$count[0] == 1 ? : |
|
77
|
62 |
18 |
if (ref $default eq "CODE") |