| line |
!l |
l&&!r |
l&&r |
condition |
|
333
|
0 |
14 |
6 |
@optionlist and ref $optionlist[0] |
|
|
14 |
0 |
6 |
@optionlist and ref $optionlist[0] and UNIVERSAL::isa($optionlist[0], "HASH") |
|
342
|
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] |
|
367
|
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} |
|
373
|
0 |
0 |
2 |
@optionlist > 0 and ref $optionlist[0] |
|
|
0 |
0 |
2 |
@optionlist > 0 and ref $optionlist[0] and ref $optionlist[0] eq "CODE" |
|
377
|
0 |
0 |
0 |
@optionlist and ref $optionlist[0] |
|
391
|
0 |
0 |
0 |
@optionlist and ref $optionlist[0] |
|
399
|
5 |
1 |
5 |
@optionlist > 0 and ref $optionlist[0] |
|
400
|
6 |
0 |
0 |
exists $userlinkage->{$orig} and ref $userlinkage->{$orig} |
|
415
|
8 |
7 |
15 |
@optionlist > 0 and ref $optionlist[0] |
|
466
|
30 |
0 |
0 |
$opctl{$name}[0] eq "I" and $opctl{$name}[3] == 1 || $opctl{$name}[3] == 2 |
|
475
|
0 |
0 |
20 |
$argv and UNIVERSAL::isa($argv, "ARRAY") |
|
510
|
0 |
18 |
52 |
$goon and @$argv > 0 |
|
517
|
0 |
51 |
1 |
defined $opt and $opt eq $argend |
|
623
|
1 |
0 |
0 |
$Getopt::Long::debug and $eval_error ne "" |
|
684
|
0 |
0 |
35 |
$argcnt >= $ctl->[5] and $ctl->[5] != -1 |
|
694
|
0 |
0 |
0 |
$ctl->[0] eq 'o' && $arg =~ /^0/ |
|
712
|
0 |
0 |
0 |
@$argv and &ValidValue($ctl, $argv->[0], 0, $argend, $prefix) |
|
716
|
0 |
0 |
0 |
$ctl->[0] eq 'o' && $arg =~ /^0/ |
|
746
|
3 |
0 |
0 |
$Getopt::Long::debug and $eval_error ne "" |
|
776
|
10 |
9 |
0 |
@ret and $Getopt::Long::order == $Getopt::Long::PERMUTE || $Getopt::Long::passthrough |
|
870
|
15 |
2 |
0 |
$Getopt::Long::bundling and defined $4 |
|
873
|
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 |
|
886
|
0 |
17 |
0 |
defined $ma and not $ma |
|
888
|
0 |
17 |
0 |
defined $ma and $ma < $mi |
|
899
|
32 |
4 |
0 |
$Getopt::Long::bundling && length $_ == 1 |
|
917
|
36 |
0 |
0 |
$dups and $^W |
|
938
|
39 |
0 |
0 |
$opt eq "-" and not defined $opctl->{''} |
|
950
|
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 |
|
964
|
37 |
2 |
0 |
$Getopt::Long::bundling || $bundling_values and $starter eq "-" |
|
|
0 |
0 |
39 |
$Getopt::Long::autoabbrev and $opt ne "" |
|
970
|
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} |
|
1030
|
0 |
0 |
0 |
$Getopt::Long::auto_version and exists $hit{'version'} |
|
|
0 |
0 |
0 |
$Getopt::Long::auto_help and exists $hit{'help'} |
|
1049
|
4 |
35 |
0 |
@hits == 1 and $hits[0] ne $opt |
|
1051
|
0 |
0 |
0 |
$Getopt::Long::bundling && length $tryopt == 1 |
|
1068
|
0 |
0 |
1 |
$Getopt::Long::bundling == 1 and length $starter == 1 |
|
1127
|
0 |
0 |
0 |
$optargtype == 0 and not $mand |
|
1173
|
17 |
0 |
0 |
$ctl->[3] == 2 and defined $arg |
|
1219
|
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 |
|
1223
|
0 |
0 |
0 |
$type eq 'o' && $arg =~ /^0/ |
|
1224
|
0 |
0 |
0 |
defined $rest and $rest ne "" |
|
1228
|
2 |
0 |
0 |
$type eq 'o' && $arg =~ /^0/ |
|
1263
|
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 |
|
1268
|
0 |
0 |
0 |
defined $rest and $rest ne "" |
|
1362
|
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 |
|
1519
|
0 |
0 |
0 |
@_ == 2 and $_[0] eq $tag |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
145
|
0 |
2 |
0 |
ref $that || $that |
|
277
|
2 |
1 |
0 |
$Getopt::Long::caller ||= (caller)[0] |
|
292
|
5 |
15 |
0 |
$Getopt::Long::caller || (caller)[0] |
|
420
|
13 |
0 |
2 |
$rl eq "SCALAR" or $rl eq "REF" |
|
466
|
0 |
0 |
0 |
$opctl{$name}[3] == 1 || $opctl{$name}[3] == 2 |
|
491
|
0 |
0 |
0 |
defined $opctl{'help'} or defined $opctl{'?'} |
|
551
|
29 |
0 |
1 |
ref $linkage{$opt} eq "SCALAR" or ref $linkage{$opt} eq "REF" |
|
776
|
9 |
0 |
0 |
$Getopt::Long::order == $Getopt::Long::PERMUTE || $Getopt::Long::passthrough |
|
852
|
15 |
0 |
21 |
$spec eq "" or $spec eq "+" |
|
|
15 |
4 |
17 |
$spec eq "" or $spec eq "+" or $spec eq "!" |
|
885
|
0 |
0 |
17 |
defined $ma or defined $cm |
|
950
|
24 |
14 |
1 |
$starter =~ /^$Getopt::Long::longprefix$/ || $Getopt::Long::getopt_compat && ($Getopt::Long::bundling == 0 || $Getopt::Long::bundling == 2) |
|
964
|
2 |
0 |
37 |
$Getopt::Long::bundling || $bundling_values |
|
1019
|
39 |
0 |
0 |
@hits <= 1 or grep(($_ eq $opt), @hits) == 1 |
|
1092
|
15 |
3 |
17 |
$type eq "" or $type eq "!" |
|
|
18 |
0 |
17 |
$type eq "" or $type eq "!" or $type eq "+" |
|
1093
|
15 |
0 |
3 |
$type eq "" or $type eq "+" |
|
1118
|
0 |
0 |
0 |
defined $rest or @$argv > 0 |
|
1145
|
0 |
14 |
0 |
defined $rest || @$argv > 0 |
|
1150
|
0 |
0 |
0 |
$mand or $ctl->[3] == 2 |
|
1190
|
2 |
0 |
0 |
$type eq "i" or $type eq "I" |
|
|
2 |
0 |
0 |
$type eq "i" or $type eq "I" or $type eq "o" |
|
1199
|
0 |
0 |
1 |
defined $optarg or defined $rest |
|
1204
|
0 |
0 |
1 |
$arg eq $argend or $arg =~ /^$prefix.+/ |
|
1231
|
0 |
0 |
0 |
defined $optarg or $mand |
|
1274
|
0 |
0 |
0 |
defined $optarg or $mand |
|
1311
|
0 |
0 |
0 |
$type eq "i" or $type eq "I" |
|
|
0 |
0 |
0 |
$type eq "i" or $type eq "I" or $type eq "o" |
|
1318
|
0 |
0 |
0 |
$arg eq $argend or $arg =~ /^$prefix.+/ |
|
1362
|
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" |
|
1477
|
0 |
0 |
0 |
$pa->{'-output'} || ($pa->{'-exitval'} eq 'NOEXIT' || $pa->{'-exitval'} < 2 ? \*STDOUT : \*STDERR) |
|
1534
|
0 |
0 |
0 |
$pa->{'-message'} //= delete $pa->{'-msg'} |