| line |
true |
false |
branch |
|
17
|
0 |
35 |
if (not $_[0] or ref $_[0] ne 'ARRAY')
|
|
22
|
7 |
28 |
if (ref $_[0] and ref $_[0][0] ne 'HASH')
|
|
31
|
6 |
29 |
ref $_[-1] ? :
|
|
32
|
6 |
29 |
if @defaults
|
|
34
|
74 |
63 |
if $_ and $_ ne '1'
|
|
46
|
7 |
28 |
if (exists $valid_args[1] and not $valid_args[1] =~ /^0|1$/ or scalar @valid_args == 1) { }
|
|
55
|
63 |
63 |
unless ($count++ % 2)
|
|
65
|
2 |
22 |
unless ($is_valid)
|
|
68
|
2 |
22 |
if @invalid_keys
|
|
75
|
12 |
21 |
if (@unkeyed_args)
|
|
79
|
9 |
18 |
if (exists $passed_params{$vkey})
|
|
88
|
1 |
11 |
if @all_array_args
|
|
97
|
10 |
14 |
if (not exists $passed_params{$rkey} or $passed_params{$rkey} eq '1')
|
|
98
|
5 |
5 |
unless $defaults{$rkey}
|
|
101
|
4 |
28 |
if @missing_keys
|
|
105
|
0 |
0 |
if ($passed_params{$key} and $passed_params{$key} eq '1' and $valid_keys{$key})
|
|
113
|
1 |
27 |
if (wantarray) { }
|