| line |
true |
false |
branch |
|
19
|
1 |
0 |
@_ ? : |
|
21
|
1 |
0 |
if (grep {$_ eq $imp;} @EXPORT, @EXPORT_OK) { } |
|
79
|
18 |
0 |
if ($args{'argv'}) { } |
|
80
|
0 |
18 |
unless ref $args{'argv'} eq 'ARRAY' |
|
86
|
0 |
18 |
unless ref $args{'spec'} eq 'HASH' |
|
89
|
0 |
27 |
unless ref $spec->{$_} eq 'CODE' |
|
108
|
10 |
36 |
if $short_mode and length $o > 1 |
|
109
|
19 |
17 |
if ($o eq $wanted) { } |
|
|
3 |
14 |
elsif (index($o, $wanted) == 0) { } |
|
120
|
4 |
21 |
if (not @candidates) { } |
|
|
1 |
20 |
elsif (@candidates > 1) { } |
|
139
|
14 |
3 |
@_ ? : |
|
144
|
1 |
16 |
if ($@) { } |
|
161
|
2 |
24 |
if ($argv->[$i] eq '--') { } |
|
|
18 |
6 |
elsif ($argv->[$i] =~ /\A--(.+?)(?:=(.*))?\z/) { } |
|
|
4 |
2 |
elsif ($argv->[$i] =~ /\A-(.*)/) { } |
|
170
|
4 |
14 |
if ($findres->[0] == 404) { } |
|
|
1 |
13 |
elsif ($findres->[0] == 300) { } |
|
|
0 |
13 |
elsif ($findres->[0] != 200) { } |
|
187
|
13 |
0 |
if ($speckey =~ /=[fios]\@?\z/) { } |
|
188
|
2 |
11 |
if (defined $val_in_opt) { } |
|
190
|
1 |
1 |
if (length $val_in_opt) { } |
|
192
|
0 |
1 |
unless $setres->[0] == 200 |
|
199
|
1 |
10 |
if ($i + 1 >= @$argv) |
|
206
|
1 |
9 |
unless $setres->[0] == 200 |
|
211
|
0 |
0 |
unless $setres->[0] == 200 |
|
222
|
0 |
7 |
unless $findres->[0] == 200 |
|
227
|
4 |
3 |
if ($speckey =~ /=[fios]\@?\z/) { } |
|
228
|
2 |
2 |
if (length $str) { } |
|
231
|
0 |
2 |
unless $setres->[0] == 200 |
|
235
|
1 |
1 |
if ($i + 1 >= @$argv) |
|
243
|
0 |
1 |
unless $setres->[0] == 200 |
|
248
|
0 |
3 |
unless $setres->[0] == 200 |
|
267
|
10 |
8 |
$success ? : |
|
|
10 |
8 |
$success ? : |
|
|
4 |
14 |
keys %unknown_opts ? : |
|
|
1 |
17 |
keys %ambiguous_opts ? : |
|
|
3 |
15 |
keys %val_missing_opts ? : |
|
|
1 |
17 |
keys %val_invalid_opts ? : |