| line |
true |
false |
branch |
|
24
|
1 |
26 |
ref $_[0] ? : |
|
47
|
5 |
41 |
if (not defined $arg && length $arg or '-' eq $arg or not $arg =~ /^-/) { } |
|
|
2 |
39 |
elsif ('--' eq $arg) { } |
|
55
|
14 |
25 |
if (not $arg =~ /^--/) { } |
|
58
|
1 |
13 |
unless defined $rule |
|
62
|
5 |
8 |
if (length $arg > 2) |
|
63
|
1 |
4 |
if ($rule->type) { } |
|
72
|
1 |
24 |
if (~index($key, '=')) |
|
78
|
5 |
20 |
unless (defined $rule) |
|
79
|
2 |
3 |
if 0 != index($key, 'no-') |
|
84
|
2 |
1 |
unless defined $rule and $rule->negatable |
|
90
|
1 |
33 |
if (defined $rule->context) |
|
93
|
1 |
0 |
unless exists $context{$_} |
|
100
|
3 |
30 |
if ($rule->multiple) { } |
|
|
6 |
24 |
elsif (not defined $rule->type) { } |
|
102
|
1 |
2 |
unless exists $self->{'options'}{$rule->long} |
|
109
|
2 |
22 |
unless defined $arg |
|
112
|
14 |
8 |
if $rule->is_unused |
|
117
|
5 |
17 |
if $rule->is_list and not defined $self->{'options'}{$rule->long} |
|
124
|
1 |
1 |
unless &looks_like_number($arg) |
|
131
|
1 |
8 |
unless $rule->values |
|
|
2 |
7 |
unless $arg ~~ \@{[] unless $rule->values;} |
|
135
|
13 |
6 |
if ($rule->is_list) |
|
136
|
7 |
6 |
if ('?' ne $rule->type) { } |
|
140
|
5 |
1 |
unless $rule->keep_unique and $arg ~~ \@{$self->{'options'}{$rule->long};} |
|
146
|
1 |
11 |
if (defined $rule->action) { } |
|
149
|
1 |
4 |
$rule->{'_negate'} ? : |
|
|
5 |
6 |
unless defined $arg |
|
157
|
2 |
8 |
if ref $args |
|
171
|
5 |
0 |
if 'perl' eq $program |
|
183
|
1 |
23 |
unless @ARGV |
|
186
|
21 |
0 |
if not defined $value && length $value or '-' eq $value or not $value =~ /^-/ |
|
187
|
0 |
0 |
if $value ne '--' |
|
189
|
0 |
0 |
unless @ARGV |
|
228
|
9 |
59 |
unless (defined $arg) |
|
229
|
4 |
5 |
if wantarray |
|
233
|
1 |
58 |
unless @rules |
|
236
|
36 |
22 |
unless ref $arg |
|
237
|
1 |
57 |
unless $opt =~ /$pattern/ |
|
241
|
1 |
55 |
if exists $self->{'longOptions'}{$rule->long} |
|
243
|
34 |
21 |
if (defined $rule->short) |
|
245
|
1 |
33 |
if exists $self->{'shortOptions'}{$rule->short} |
|
249
|
4 |
50 |
if (defined $rule->default) |
|
254
|
13 |
41 |
if wantarray |
|
257
|
22 |
3 |
unless wantarray |
|
271
|
1 |
2 |
if (defined $message) { } |
|
295
|
4 |
13 |
unless (defined $rule) |
|
302
|
1 |
12 |
if $rule->negatable |
|
304
|
11 |
2 |
if (defined $rule->short) { } |
|
312
|
3 |
10 |
if defined $rule->type |
|
314
|
12 |
1 |
if $USAGE_OPTIONS_LENGTH > ($len = length($line) + 2) |
|
335
|
16 |
6 |
if ($len < $nChars) |
|
341
|
1 |
5 |
if (-1 == $pos) { } |
|
350
|
3 |
13 |
if (@lines > 1) |
|
364
|
5 |
88 |
if $find eq substr($string, $pos, $length) |
|
394
|
35 |
22 |
if exists $options{'short'} |
|
396
|
4 |
53 |
if $options{'negatable'} |
|
397
|
8 |
49 |
if ($options{'multiple'}) { } |
|
|
22 |
27 |
elsif ($options{'type'}) { } |
|
403
|
6 |
16 |
if $rule{'is_list'} |
|
409
|
55 |
2 |
unless $rule{'help'} =~ /[.]$/ |
|
411
|
22 |
35 |
if (@$arg) |
|
412
|
7 |
15 |
if 'CODE' eq ref $arg->[0] |
|
414
|
1 |
21 |
if 0 != @$arg % 2 |
|
419
|
2 |
54 |
if (defined $rule{'context'}) |
|
450
|
2 |
1 |
do {
'?' ne $self->{'type'}
} ? : |
|
|
3 |
10 |
defined $self->{'type'} ? : |
|
455
|
2 |
0 |
unless $show_default and defined $self->{'default'} |
|
462
|
0 |
1 |
$show_default && defined $self->{'default'} ? : |