| line |
true |
false |
branch |
|
14
|
1 |
6 |
unless @_ |
|
17
|
2 |
4 |
if (ref $_[0] eq 'HASH') { } |
|
23
|
2 |
2 |
if ($_[0] =~ /=/) { } |
|
30
|
3 |
2 |
if (@f == 2) |
|
40
|
0 |
2 |
if @_ % 2 |
|
55
|
2 |
10 |
if (ref $flags->{$name} eq 'HASH') { } |
|
77
|
0 |
12 |
unless @_ >= 2 |
|
88
|
12 |
0 |
unless ($name =~ /::/) |
|
94
|
12 |
0 |
unless *{$name;}{"CODE"} |
|
107
|
0 |
12 |
if ($entry->{'opt'} and @ARGV) |
|
109
|
0 |
0 |
if ($entry->{'keep'}) { } |
|
113
|
0 |
0 |
unless $parser->getoptionsfromarray(\@array, $entry->{'opt'}, $wrapper) |
|
121
|
0 |
0 |
unless $parser->getoptions($entry->{'opt'}, $wrapper) |
|
125
|
0 |
0 |
if (not $success and $entry->{'env'}) |
|
127
|
0 |
0 |
if (defined $ENV{$entry->{'env'}}) |