| line |
true |
false |
branch |
|
15
|
1 |
3 |
unless @_ |
|
18
|
2 |
1 |
if (ref $_[0] eq 'HASH') { } |
|
|
1 |
0 |
elsif (ref $_[0] eq '') { } |
|
40
|
2 |
3 |
if (ref $flags->{$name} eq 'HASH') { } |
|
62
|
0 |
5 |
unless @_ >= 2 |
|
73
|
5 |
0 |
unless ($name =~ /::/) |
|
79
|
5 |
0 |
unless *{$name;}{"CODE"} |
|
91
|
0 |
5 |
if ($entry->{'opt'} and @ARGV) |
|
93
|
0 |
0 |
if ($entry->{'keep'}) { } |
|
97
|
0 |
0 |
unless $parser->getoptionsfromarray(\@array, $entry->{'opt'}, $wrapper) |
|
107
|
0 |
0 |
unless $parser->getoptions($entry->{'opt'}, $wrapper) |
|
112
|
0 |
0 |
if (not $success and $entry->{'env'}) |
|
114
|
0 |
0 |
if (defined $ENV{$entry->{'env'}}) |