| line |
true |
false |
branch |
|
21
|
1 |
21 |
unless ($l, $word) = /^(.)-(.*)$/ |
|
27
|
8 |
13 |
if ($word =~ s/=$//) { } |
|
|
5 |
8 |
elsif ($word =~ s/=(.+)//) { } |
|
34
|
4 |
2 |
$l =~ /=/ ? : |
|
|
6 |
15 |
unless exists $O{$word} |
|
36
|
0 |
7 |
if $err |
|
45
|
1 |
11 |
if $arg eq '-' |
|
48
|
0 |
11 |
if (index($helpchars, $let) >= 0) { } |
|
|
2 |
9 |
elsif (exists $options{$let}) { } |
|
|
7 |
2 |
elsif (exists $options{"$let="}) { } |
|
55
|
1 |
6 |
if ($arg eq '' and not $arg = shift @ARGV) { } |
|
|
1 |
5 |
elsif ($arg =~ /^-/) { } |
|
65
|
2 |
3 |
if (my $v = $valid{$options{"$let="}}) |
|
71
|
1 |
1 |
if ($opts) |
|
72
|
1 |
0 |
length $opts > 1 ? : |
|
82
|
5 |
2 |
if ($err) |
|
83
|
1 |
4 |
if ($usage) |