| line |
true |
false |
branch |
|
45
|
4 |
5 |
unless (defined $val) |
|
50
|
5 |
4 |
if (defined $default) |
|
51
|
4 |
1 |
if (length $default) { } |
|
67
|
0 |
2 |
unless $arg =~ /\A --? /msx |
|
69
|
1 |
1 |
unless (defined $valid_alias{$arg}) |
|
71
|
0 |
1 |
if ($arg =~ /\A --? (?: help|usage|[?] ) \z/msx) { } |
|
80
|
1 |
0 |
if (@errors) |
|
95
|
8 |
56 |
if ($identifier =~ /,/) |
|
104
|
6 |
18 |
if (defined $params{'default'} and ref $params{'default'} eq 'ARRAY') |
|
106
|
6 |
0 |
if ($i <= $#{$params{'default'};}) { } |
|
125
|
1 |
44 |
$ident =~ / _rh \z/imsx ? : |
|
|
2 |
45 |
$ident =~ / _ra \z/imsx ? : |
|
|
3 |
47 |
$sigil eq '%' ? : |
|
|
6 |
50 |
$sigil eq '@' ? : |
|
134
|
56 |
0 |
if ($params_rh) |
|
136
|
56 |
0 |
if (ref $params_rh eq 'HASH') |
|
138
|
7 |
49 |
if (defined $$params_rh{'alias'}) |
|
142
|
19 |
37 |
if (defined $$params_rh{'default'}) |
|
146
|
35 |
14 |
unless ($alias or $default) |
|
155
|
1 |
8 |
if $a eq 'default' or $a eq 'alias' |
|
171
|
4 |
52 |
if ($type eq 'HASH') |
|
181
|
12 |
20 |
if ($arg =~ /\A --? /msx) { } |
|
191
|
2 |
18 |
unless ($key) |
|
200
|
1 |
3 |
if (not keys %arguments and $default) |
|
208
|
5 |
10 |
if (@{$arguments{$option};} == 0) { } |
|
|
4 |
6 |
elsif (@{$arguments{$option};} == 1) { } |
|
216
|
3 |
1 |
if wantarray |
|
226
|
299 |
25 |
$arg_index < $#{$argv_ra;} ? : |
|
233
|
301 |
23 |
if $arg ne $alias |
|
235
|
18 |
5 |
if ($type eq 'SCALAR') { } |
|
|
5 |
0 |
elsif ($type eq 'ARRAY') { } |
|
237
|
15 |
3 |
defined $next_index ? : |
|
242
|
9 |
9 |
if ($value =~ /\A --? /msx) |
|
258
|
4 |
10 |
if $value =~ /\A --? /msx |
|
264
|
4 |
1 |
if wantarray |
|
270
|
2 |
15 |
if wantarray and $default and ref $default eq 'ARRAY' |
|
281
|
3 |
4 |
if ($default) |
|
285
|
2 |
1 |
if ($default =~ /\A [\(] /msx) { } |