| line |
!l |
l&&!r |
l&&r |
condition |
|
335
|
0 |
14 |
6 |
@optionlist and ref $optionlist[0] |
|
|
14 |
0 |
6 |
@optionlist and ref $optionlist[0] and UNIVERSAL::isa($optionlist[0], "HASH") |
|
344
|
0 |
20 |
0 |
@optionlist and $optionlist[0] =~ /^\W+$/ |
|
|
0 |
0 |
0 |
$optionlist[0] eq '<>' && @optionlist > 0 && ref $optionlist[1] |
|
|
20 |
0 |
0 |
@optionlist and $optionlist[0] =~ /^\W+$/ and not $optionlist[0] eq '<>' && @optionlist > 0 && ref $optionlist[1] |
|
369
|
0 |
0 |
0 |
@optionlist > 0 && ref $optionlist[0] |
|
|
2 |
0 |
0 |
defined $userlinkage and not @optionlist > 0 && ref $optionlist[0] |
|
|
2 |
0 |
0 |
defined $userlinkage and not @optionlist > 0 && ref $optionlist[0] and exists $userlinkage->{$opt} |
|
|
0 |
0 |
0 |
defined $userlinkage and not @optionlist > 0 && ref $optionlist[0] and exists $userlinkage->{$opt} and ref $userlinkage->{$opt} |
|
375
|
0 |
0 |
2 |
@optionlist > 0 and ref $optionlist[0] |
|
|
0 |
0 |
2 |
@optionlist > 0 and ref $optionlist[0] and ref $optionlist[0] eq "CODE" |
|
379
|
0 |
0 |
0 |
@optionlist and ref $optionlist[0] |
|
393
|
0 |
0 |
0 |
@optionlist and ref $optionlist[0] |
|
401
|
5 |
1 |
5 |
@optionlist > 0 and ref $optionlist[0] |
|
402
|
6 |
0 |
0 |
exists $userlinkage->{$orig} and ref $userlinkage->{$orig} |
|
417
|
8 |
7 |
15 |
@optionlist > 0 and ref $optionlist[0] |
|
468
|
30 |
0 |
0 |
$opctl{$name}[0] eq "I" and $opctl{$name}[3] == 1 || $opctl{$name}[3] == 2 |
|
477
|
0 |
0 |
20 |
$argv and UNIVERSAL::isa($argv, "ARRAY") |
|
512
|
0 |
18 |
52 |
$goon and @$argv > 0 |
|
519
|
0 |
51 |
1 |
defined $opt and $opt eq $argend |
|
625
|
1 |
0 |
0 |
$Getopt::Long::debug and $eval_error ne "" |
|
686
|
0 |
0 |
35 |
$argcnt >= $ctl->[5] and $ctl->[5] != -1 |
|
696
|
0 |
0 |
0 |
$ctl->[0] eq 'o' && $arg =~ /^0/ |
|
714
|
0 |
0 |
0 |
@$argv and &ValidValue($ctl, $argv->[0], 0, $argend, $prefix) |
|
718
|
0 |
0 |
0 |
$ctl->[0] eq 'o' && $arg =~ /^0/ |
|
748
|
3 |
0 |
0 |
$Getopt::Long::debug and $eval_error ne "" |
|
778
|
10 |
9 |
0 |
@ret and $Getopt::Long::order == $Getopt::Long::PERMUTE || $Getopt::Long::passthrough |
|
885
|
15 |
2 |
0 |
$Getopt::Long::bundling and defined $4 |
|
888
|
17 |
0 |
0 |
defined $mi and not $mi |
|
|
17 |
0 |
0 |
defined $mi and not $mi and not defined $ma |
|
|
0 |
0 |
0 |
defined $mi and not $mi and not defined $ma and not defined $cm |
|
901
|
0 |
17 |
0 |
defined $ma and not $ma |
|
903
|
0 |
17 |
0 |
defined $ma and $ma < $mi |
|
914
|
32 |
4 |
0 |
$Getopt::Long::bundling && length $_ == 1 |
|
932
|
36 |
0 |
0 |
$dups and $^W |
|
953
|
39 |
0 |
0 |
$opt eq "-" and not defined $opctl->{''} |
|
965
|
1 |
35 |
3 |
$starter =~ /^$Getopt::Long::longprefix$/ || $Getopt::Long::getopt_compat && ($Getopt::Long::bundling == 0 || $Getopt::Long::bundling == 2) and (my $oppos = index($opt, "=", 1)) > 0 |
|
979
|
37 |
2 |
0 |
$Getopt::Long::bundling || $bundling_values and $starter eq "-" |
|
|
0 |
0 |
39 |
$Getopt::Long::autoabbrev and $opt ne "" |
|
985
|
0 |
0 |
0 |
$Getopt::Long::bundling == 2 and length $tryopt > 1 |
|
|
0 |
0 |
0 |
$Getopt::Long::bundling == 2 and length $tryopt > 1 and defined $opctl->{$tryopt} |
|
1045
|
0 |
0 |
0 |
$Getopt::Long::auto_version and exists $hit{'version'} |
|
|
0 |
0 |
0 |
$Getopt::Long::auto_help and exists $hit{'help'} |
|
1064
|
4 |
35 |
0 |
@hits == 1 and $hits[0] ne $opt |
|
1066
|
0 |
0 |
0 |
$Getopt::Long::bundling && length $tryopt == 1 |
|
1083
|
0 |
0 |
1 |
$Getopt::Long::bundling == 1 and length $starter == 1 |
|
1142
|
0 |
0 |
0 |
$optargtype == 0 and not $mand |
|
1188
|
17 |
0 |
0 |
$ctl->[3] == 2 and defined $arg |
|
1234
|
2 |
0 |
0 |
$Getopt::Long::bundling and defined $rest |
|
|
2 |
0 |
0 |
$Getopt::Long::bundling and defined $rest and $rest =~ /^($key_valid)($o_valid)(.*)$/is |
|
1238
|
0 |
0 |
0 |
$type eq 'o' && $arg =~ /^0/ |
|
1239
|
0 |
0 |
0 |
defined $rest and $rest ne "" |
|
1243
|
2 |
0 |
0 |
$type eq 'o' && $arg =~ /^0/ |
|
1278
|
0 |
0 |
0 |
$Getopt::Long::bundling and defined $rest |
|
|
0 |
0 |
0 |
$Getopt::Long::bundling and defined $rest and $rest =~ /^($key_valid)($o_valid)(.*)$/s |
|
1283
|
0 |
0 |
0 |
defined $rest and $rest ne "" |
|
1377
|
19 |
0 |
7 |
$try eq 'default' || $try eq 'defaults' and $action |
|
|
6 |
0 |
0 |
$try =~ /^prefix=(.+)$/ and $action |
|
|
3 |
0 |
3 |
$try =~ /^prefix_pattern=(.+)$/ and $action |
|
|
0 |
0 |
3 |
$try =~ /^long_prefix_pattern=(.+)$/ and $action |
|
1534
|
0 |
0 |
0 |
@_ == 2 and $_[0] eq $tag |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
147
|
0 |
2 |
0 |
ref $that || $that |
|
279
|
2 |
1 |
0 |
$Getopt::Long::caller ||= (caller)[0] |
|
294
|
5 |
15 |
0 |
$Getopt::Long::caller || (caller)[0] |
|
422
|
13 |
0 |
2 |
$rl eq "SCALAR" or $rl eq "REF" |
|
468
|
0 |
0 |
0 |
$opctl{$name}[3] == 1 || $opctl{$name}[3] == 2 |
|
493
|
0 |
0 |
0 |
defined $opctl{'help'} or defined $opctl{'?'} |
|
553
|
29 |
0 |
1 |
ref $linkage{$opt} eq "SCALAR" or ref $linkage{$opt} eq "REF" |
|
778
|
9 |
0 |
0 |
$Getopt::Long::order == $Getopt::Long::PERMUTE || $Getopt::Long::passthrough |
|
854
|
15 |
0 |
21 |
$spec eq "" or $spec eq "+" |
|
|
15 |
4 |
17 |
$spec eq "" or $spec eq "+" or $spec eq "!" |
|
900
|
0 |
0 |
17 |
defined $ma or defined $cm |
|
965
|
24 |
14 |
1 |
$starter =~ /^$Getopt::Long::longprefix$/ || $Getopt::Long::getopt_compat && ($Getopt::Long::bundling == 0 || $Getopt::Long::bundling == 2) |
|
979
|
2 |
0 |
37 |
$Getopt::Long::bundling || $bundling_values |
|
1034
|
39 |
0 |
0 |
@hits <= 1 or grep(($_ eq $opt), @hits) == 1 |
|
1107
|
15 |
3 |
17 |
$type eq "" or $type eq "!" |
|
|
18 |
0 |
17 |
$type eq "" or $type eq "!" or $type eq "+" |
|
1108
|
15 |
0 |
3 |
$type eq "" or $type eq "+" |
|
1133
|
0 |
0 |
0 |
defined $rest or @$argv > 0 |
|
1160
|
0 |
14 |
0 |
defined $rest || @$argv > 0 |
|
1165
|
0 |
0 |
0 |
$mand or $ctl->[3] == 2 |
|
1205
|
2 |
0 |
0 |
$type eq "i" or $type eq "I" |
|
|
2 |
0 |
0 |
$type eq "i" or $type eq "I" or $type eq "o" |
|
1214
|
0 |
0 |
1 |
defined $optarg or defined $rest |
|
1219
|
0 |
0 |
1 |
$arg eq $argend or $arg =~ /^$prefix.+/ |
|
1246
|
0 |
0 |
0 |
defined $optarg or $mand |
|
1289
|
0 |
0 |
0 |
defined $optarg or $mand |
|
1326
|
0 |
0 |
0 |
$type eq "i" or $type eq "I" |
|
|
0 |
0 |
0 |
$type eq "i" or $type eq "I" or $type eq "o" |
|
1333
|
0 |
0 |
0 |
$arg eq $argend or $arg =~ /^$prefix.+/ |
|
1377
|
7 |
0 |
19 |
$try eq 'default' || $try eq 'defaults' |
|
|
0 |
0 |
19 |
$try eq "posix_default" or $try eq "posix_defaults" |
|
|
0 |
0 |
19 |
$try eq "auto_abbrev" or $try eq "autoabbrev" |
|
|
0 |
6 |
13 |
$try eq "ignorecase" or $try eq "ignore_case" |
|
|
0 |
2 |
11 |
$try eq "ignorecase_always" or $try eq "ignore_case_always" |
|
|
2 |
0 |
6 |
$try eq "pass_through" or $try eq "passthrough" |
|
1492
|
0 |
0 |
0 |
$pa->{'-output'} || ($pa->{'-exitval'} eq 'NOEXIT' || $pa->{'-exitval'} < 2 ? \*STDOUT : \*STDERR) |