| line |
true |
false |
branch |
|
62
|
3 |
10 |
unless substr($msg, -1) eq "\n" |
|
71
|
12 |
12 |
unless defined $extra |
|
72
|
5 |
19 |
unless $self->{'_attr'}{$item} |
|
84
|
16 |
28 |
if (length $_ == 1) { } |
|
92
|
24 |
2 |
if ($type) { } |
|
|
0 |
2 |
elsif ($label) { } |
|
93
|
10 |
14 |
if ($label) { } |
|
97
|
8 |
6 |
$type eq 'i' ? : |
|
115
|
16 |
56 |
if (exists $DEFER_ARGS{$_->{'name'}}) { } |
|
124
|
4 |
68 |
ref $arg->{'help'} && ref $arg->{'help'} eq 'ARRAY' ? : |
|
125
|
4 |
68 |
$arg->{'label'} && ref $arg->{'label'} && ref $arg->{'label'} eq 'ARRAY' ? : |
|
130
|
52 |
26 |
if ($help =~ /^\s*-/) { } |
|
135
|
6 |
20 |
if $i < $#$help_array |
|
140
|
12 |
60 |
if ($help_string =~ /%s/) { } |
|
141
|
12 |
0 |
defined $arg->{'default'} ? : |
|
165
|
5 |
1 |
if $self->{'_attr'}{'url'} |
|
178
|
4 |
0 |
$self->_usage ? : |
|
179
|
4 |
0 |
$self->_options ? : |
|
198
|
33 |
339 |
if (defined $self->{$name}) { } |
|
215
|
2 |
270 |
if ($arg->{'required'} and not defined $$self{$arg->{'name'}}) |
|
219
|
2 |
21 |
if (@missing) |
|
231
|
2 |
29 |
if $self->{'usage'} |
|
232
|
2 |
27 |
if $self->{'version'} |
|
233
|
4 |
23 |
if $self->{'help'} |
|
247
|
0 |
13 |
if $@ |
|
254
|
2 |
11 |
unless exists $Config->{$section} |
|
263
|
11 |
12 |
if defined $self->{'_spec'} |
|
272
|
0 |
58 |
if (/\s/ and /^[^"']/ || /[^"']$/) { } |
|
|
1 |
57 |
elsif ($_ eq '') { } |
|
295
|
36 |
212 |
if $key =~ /^_/ |
|
298
|
24 |
188 |
if exists $DEFAULT{$key} and $hash->{$key} eq $DEFAULT{$key} |
|
299
|
48 |
140 |
if grep {$key eq $_;} 'help', 'usage', 'version', 'extra-opts' |
|
300
|
94 |
46 |
unless defined $hash->{$key} |
|
304
|
44 |
2 |
if ($spec =~ /[=:].+$/) { } |
|
306
|
27 |
17 |
ref $hash->{$key} eq 'ARRAY' ? : |
|
308
|
32 |
26 |
if (length $key > 1) { } |
|
319
|
0 |
2 |
length $key > 1 ? : |
|
323
|
11 |
12 |
wantarray ? : |
|
341
|
0 |
13 |
if ($extopts =~ /^([^\@]*)@(.*?)\s*$/) |
|
357
|
2 |
29 |
if $args->{'verbose'} and $args->{'verbose'} >= 3 |
|
370
|
157 |
17 |
if ($_[0] =~ /^(spec|help|required|default)$/ and scalar(@_) % 2 == 0) { } |
|
411
|
0 |
33 |
unless $ok |
|
419
|
0 |
31 |
unless $ok |