| line |
true |
false |
branch |
|
65
|
4 |
10 |
unless substr($msg, -1) eq "\n" |
|
74
|
12 |
12 |
unless defined $extra |
|
75
|
5 |
19 |
unless $self->{'_attr'}{$item} |
|
89
|
24 |
40 |
if (length $_ == 1) { } |
|
92
|
4 |
36 |
$boolean ? : |
|
97
|
32 |
6 |
if ($type) { } |
|
|
0 |
6 |
elsif ($label) { } |
|
98
|
22 |
10 |
unless ($label) |
|
99
|
14 |
8 |
if ($type eq 'i' or $type eq '+' or $type =~ /\d+/) { } |
|
107
|
8 |
24 |
if ($optional) { } |
|
129
|
16 |
68 |
if (exists $DEFER_ARGS{$_->{'name'}}) { } |
|
138
|
4 |
80 |
ref $arg->{'help'} && ref $arg->{'help'} eq 'ARRAY' ? : |
|
139
|
4 |
80 |
$arg->{'label'} && ref $arg->{'label'} && ref $arg->{'label'} eq 'ARRAY' ? : |
|
144
|
52 |
38 |
if ($help =~ /^\s*-/) { } |
|
149
|
6 |
32 |
if $i < $#$help_array |
|
154
|
12 |
72 |
if ($help_string =~ /%s/) { } |
|
155
|
12 |
0 |
defined $arg->{'default'} ? : |
|
181
|
5 |
1 |
if $self->{'_attr'}{'url'} |
|
194
|
4 |
0 |
$self->_usage ? : |
|
195
|
4 |
0 |
$self->_options ? : |
|
214
|
36 |
393 |
if (defined $self->{$name}) { } |
|
231
|
2 |
301 |
if ($arg->{'required'} and not defined $$self{$arg->{'name'}}) |
|
235
|
2 |
23 |
if (@missing) |
|
247
|
2 |
31 |
if $self->{'usage'} |
|
248
|
2 |
29 |
if $self->{'version'} |
|
249
|
4 |
25 |
if $self->{'help'} |
|
263
|
0 |
15 |
if $@ |
|
264
|
0 |
15 |
unless defined $Config |
|
272
|
3 |
12 |
unless exists $Config->{$section} |
|
281
|
12 |
13 |
if defined $self->{'_spec'} |
|
290
|
0 |
65 |
if (/\s/ and /^[^"']/ || /[^"']$/) { } |
|
|
1 |
64 |
elsif ($_ eq '') { } |
|
313
|
39 |
229 |
if $key =~ /^_/ |
|
316
|
26 |
203 |
if exists $DEFAULT{$key} and $hash->{$key} eq $DEFAULT{$key} |
|
317
|
52 |
151 |
if grep {$key eq $_;} 'help', 'usage', 'version', 'extra-opts' |
|
318
|
102 |
49 |
unless defined $hash->{$key} |
|
322
|
47 |
2 |
if ($spec =~ /[=:].+$/) { } |
|
324
|
30 |
17 |
ref $hash->{$key} eq 'ARRAY' ? : |
|
326
|
33 |
32 |
if (length $key > 1) { } |
|
337
|
0 |
2 |
length $key > 1 ? : |
|
341
|
12 |
13 |
wantarray ? : |
|
359
|
0 |
15 |
if ($extopts =~ /^([^\@]*)@(.*?)\s*$/) |
|
375
|
2 |
31 |
if $args->{'verbose'} and $args->{'verbose'} >= 3 |
|
397
|
195 |
18 |
if (exists $params{$_[0]} and @_ % 2 == 0) { } |
|
426
|
0 |
36 |
unless $ok |
|
434
|
0 |
33 |
unless $ok |