line |
true |
false |
branch |
16
|
0 |
35 |
if (not $_[0] or ref $_[0] ne 'ARRAY') |
21
|
7 |
28 |
if (ref $_[0] and ref $_[0][0] ne 'HASH') |
30
|
6 |
29 |
ref $_[-1] ? : |
31
|
6 |
29 |
if @defaults |
33
|
74 |
63 |
if $_ and $_ ne '1' |
45
|
7 |
28 |
if (exists $valid_args[1] and not $valid_args[1] =~ /^0|1$/ or scalar @valid_args == 1) { } |
54
|
63 |
63 |
unless ($count++ % 2) |
64
|
2 |
22 |
unless ($is_valid) |
67
|
2 |
22 |
if @invalid_keys |
74
|
12 |
21 |
if (@unkeyed_args) |
78
|
9 |
18 |
if (exists $passed_params{$vkey}) |
87
|
1 |
11 |
if @all_array_args |
96
|
10 |
14 |
if (not exists $passed_params{$rkey} or $passed_params{$rkey} eq '1') |
97
|
5 |
5 |
unless $defaults{$rkey} |
100
|
4 |
28 |
if @missing_keys |
104
|
0 |
0 |
if ($passed_params{$key} eq '1' and $valid_keys{$key}) |
112
|
1 |
27 |
if (wantarray) { } |