| line |
true |
false |
branch |
|
92
|
0 |
0 |
if @_ |
|
94
|
0 |
0 |
if (@_) |
|
100
|
1 |
0 |
if @_ |
|
102
|
1 |
0 |
if (@_) |
|
108
|
0 |
8 |
unless exists &main::help |
|
109
|
0 |
8 |
unless exists &main::version |
|
110
|
8 |
0 |
unless (defined $mainhelp) |
|
115
|
8 |
0 |
unless (defined $mainver) |
|
126
|
0 |
7 |
if $colons eq '::' |
|
127
|
0 |
7 |
if $switch eq ':' |
|
128
|
0 |
7 |
if $switches{$switch} |
|
129
|
0 |
7 |
if ($colons) { } |
|
137
|
1 |
7 |
if defined $switches{'-'} |
|
138
|
0 |
8 |
if (defined $ENV{'GETOPT_WONDERBRA_DUMP_FMT'}) |
|
151
|
0 |
2 |
unless (exists $switches{$s}) |
|
156
|
2 |
0 |
if ($type eq 'noarg') { } |
|
|
0 |
0 |
elsif ($type eq 'arg') { } |
|
159
|
0 |
0 |
if (length $_) |
|
160
|
0 |
0 |
if (@$arg) |
|
169
|
0 |
2 |
if $_[0] eq 'help' |
|
170
|
0 |
2 |
if $_[0] eq 'version' |
|
171
|
1 |
1 |
unless defined $switches{'-'} |
|
179
|
0 |
8 |
unless @_ |
|
185
|
0 |
7 |
unless defined($_ = shift()) |
|
186
|
1 |
6 |
unless (s/^-//) |
|
187
|
0 |
6 |
unless (length $_) |
|
188
|
2 |
4 |
unless (s/^-//) |
|
189
|
2 |
2 |
if (length $_) |