| line |
true |
false |
branch |
|
79
|
0 |
1 |
if $_[0] =~ /^[^a-z0-9\s]+$/i |
|
83
|
1 |
1 |
if $Getopt::Mixed::group =~ /[A-Z]/ |
|
85
|
0 |
13 |
unless $Getopt::Mixed::option =~ /^([^=:>]+)([=:][$Getopt::Mixed::typeChars]|>[^=:>]+)?$/o |
|
89
|
4 |
9 |
if ($type =~ /^>(.*)$/) |
|
91
|
0 |
4 |
if not defined $Getopt::Mixed::options{$type} or $Getopt::Mixed::options{$type} =~ /^[^:=]/ |
|
100
|
0 |
1 |
if (defined $ENV{'POSIXLY_CORRECT'}) { } |
|
123
|
1 |
0 |
if $help |
|
138
|
0 |
0 |
if defined $Getopt::Mixed::options{'help'} |
|
171
|
0 |
0 |
unless $problem |
|
195
|
0 |
3 |
if not $type and defined $value |
|
198
|
2 |
1 |
if ($type =~ /^=/) |
|
200
|
1 |
1 |
unless defined $value |
|
201
|
0 |
2 |
unless defined $value |
|
205
|
0 |
3 |
if ($type =~ /i$/) { } |
|
|
1 |
2 |
elsif ($type =~ /f$/) { } |
|
|
0 |
2 |
elsif ($type =~ /^[=:]/ and ref $Getopt::Mixed::checkType) { } |
|
206
|
0 |
0 |
if defined $value and not $value =~ /$Getopt::Mixed::intRegexp/o |
|
210
|
0 |
1 |
if defined $value and not $value =~ /$Getopt::Mixed::floatRegexp/o |
|
217
|
0 |
3 |
if not defined $value and $type =~ /^:/ |
|
242
|
0 |
0 |
if $#matches < 0 |
|
243
|
0 |
0 |
if $#matches == 0 |
|
246
|
0 |
0 |
if $Getopt::Mixed::options{$opt} =~ /^[^=:]/ |
|
249
|
0 |
0 |
unless $_ eq $opt or $Getopt::Mixed::options{$_} eq $opt |
|
271
|
0 |
4 |
if $#ARGV < 0 |
|
273
|
0 |
4 |
if ($Getopt::Mixed::optionEnd) |
|
275
|
0 |
0 |
if $Getopt::Mixed::order == $Getopt::Mixed::RETURN_IN_ORDER |
|
283
|
0 |
1 |
if $Getopt::Mixed::order == $Getopt::Mixed::REQUIRE_ORDER |
|
284
|
0 |
1 |
if $Getopt::Mixed::order == $Getopt::Mixed::RETURN_IN_ORDER |
|
286
|
1 |
0 |
if $i > $#ARGV |
|
292
|
1 |
2 |
if (substr($option, 0, 1) eq substr($option, 1, 1)) { } |
|
295
|
0 |
1 |
if (length $option == 2) |
|
301
|
0 |
1 |
if ($opt =~ /^([^=]+)=(.*)$/) |
|
305
|
0 |
1 |
if $Getopt::Mixed::ignoreCase |
|
308
|
0 |
1 |
unless defined $Getopt::Mixed::options{$opt} and length $opt > 1 |
|
310
|
0 |
1 |
unless $opt |
|
312
|
0 |
1 |
if ($optType =~ /^[^:=]/) |
|
321
|
0 |
2 |
if $Getopt::Mixed::ignoreCase |
|
322
|
0 |
2 |
unless defined $Getopt::Mixed::options{$opt} |
|
324
|
1 |
1 |
if ($optType =~ /^[^:=]/) |
|
328
|
2 |
0 |
if (length $option == 2 or $optType) { } |
|
335
|
2 |
0 |
if ($optType) |
|
336
|
2 |
0 |
length $option > 2 ? : |
|
337
|
2 |
0 |
if $value |
|
362
|
1 |
0 |
if $#_ >= 0 |
|
366
|
0 |
1 |
if $Getopt::Mixed::order == $Getopt::Mixed::RETURN_IN_ORDER |
|
374
|
0 |
3 |
unless defined $value |