| line |
true |
false |
branch |
|
188
|
10 |
78 |
unless ref $ra_args eq 'ARRAY' and @{$ra_args;} |
|
195
|
21 |
57 |
unless (ref $rh_args eq 'HASH') |
|
198
|
5 |
16 |
unless ref $ra_posit_names eq 'ARRAY' and @{$ra_posit_names;} |
|
201
|
0 |
16 |
unless ref $ra_posit_names eq 'ARRAY' |
|
206
|
33 |
24 |
unless ref $rh_rename eq 'HASH' |
|
210
|
10 |
47 |
if (@rem and $remaining_param_name) |
|
211
|
5 |
5 |
ref $rem[0] eq 'ARRAY' || @rem == 1 ? : |
|
234
|
10 |
78 |
unless ref $ra_args eq 'ARRAY' and @{$ra_args;} |
|
241
|
21 |
57 |
unless ref $rh_args eq 'HASH' |
|
244
|
9 |
48 |
unless ref $ra_posit_names eq 'ARRAY' and @{$ra_posit_names;} |
|
247
|
24 |
24 |
unless ref $rh_rename eq 'HASH' |
|
251
|
10 |
38 |
if (@rem and $remaining_param_name) |
|
252
|
5 |
5 |
ref $rem[0] eq 'ARRAY' || @rem == 1 ? : |
|
257
|
0 |
48 |
unless ref $ra_posit_names eq 'ARRAY' |
|
351
|
84 |
72 |
if (ref $$ra_args[0] eq 'HASH') { } |
|
|
18 |
54 |
elsif ($use_dashes and substr($$ra_args[0], 0, 1) eq '-') { } |
|
|
36 |
18 |
elsif (@{$ra_args;} % 2) { } |
|
358
|
12 |
6 |
$guess_named ? : |
|
403
|
214 |
75 |
if $lowercase |
|
404
|
152 |
137 |
if $use_dashes and substr($key, 0, 1) eq '-' |
|
406
|
88 |
201 |
if exists $$rh_rename{$key} |