| line |
true |
false |
branch |
|
16
|
0 |
34 |
if (not $_[0] or ref $_[0] ne 'ARRAY') |
|
21
|
7 |
27 |
if (ref $_[0] and ref $_[0][0] ne 'HASH') |
|
30
|
6 |
28 |
ref $_[-1] ? : |
|
31
|
6 |
28 |
if @defaults |
|
33
|
72 |
61 |
if $_ and $_ ne '1' |
|
44
|
7 |
27 |
if (exists $valid_args[1] and not $valid_args[1] =~ /^0|1$/ or scalar @valid_args == 1) { } |
|
56
|
2 |
20 |
unless ($is_valid) |
|
59
|
2 |
20 |
if @invalid_keys |
|
66
|
12 |
20 |
if (@unkeyed_args) |
|
70
|
9 |
18 |
if (exists $passed_params{$vkey}) |
|
79
|
1 |
11 |
if @all_array_args |
|
88
|
10 |
13 |
if (not exists $passed_params{$rkey} or $passed_params{$rkey} eq '1') |
|
89
|
5 |
5 |
unless $defaults{$rkey} |
|
92
|
4 |
27 |
if @missing_keys |
|
96
|
0 |
0 |
if ($passed_params{$key} eq '1' and $valid_keys{$key}) |