| line |
true |
false |
branch |
|
14
|
1 |
11 |
unless @_ |
|
17
|
6 |
5 |
if (ref $_[0] eq 'HASH') { } |
|
23
|
3 |
2 |
if ($_[0] =~ /=/) { } |
|
30
|
4 |
4 |
if (@f == 2) |
|
40
|
0 |
2 |
if @_ % 2 |
|
56
|
6 |
13 |
if (ref $flags->{$name} eq 'HASH') { } |
|
78
|
0 |
25 |
unless @_ >= 2 |
|
89
|
25 |
0 |
unless ($name =~ /::/) |
|
95
|
25 |
0 |
unless *{$name;}{"CODE"} |
|
108
|
4 |
15 |
if ($entry->{'opt'} and @ARGV) |
|
110
|
1 |
3 |
if ($entry->{'keep'}) { } |
|
114
|
0 |
1 |
unless $parser->getoptionsfromarray(\@array, $entry->{'opt'}, $wrapper) |
|
122
|
0 |
3 |
unless $parser->getoptions($entry->{'opt'}, $wrapper) |
|
126
|
0 |
0 |
if (not $success and $entry->{'env'}) |
|
128
|
0 |
0 |
if (defined $ENV{$entry->{'env'}}) |