Condition Coverage

blib/lib/Getopt/Long.pm
Criterion Covered Total %
condition 103 308 33.4


and 3 conditions

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
883 15 2 0 $Getopt::Long::bundling and defined $4
886 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
899 0 17 0 defined $ma and not $ma
901 0 17 0 defined $ma and $ma < $mi
912 32 4 0 $Getopt::Long::bundling && length $_ == 1
930 36 0 0 $dups and $^W
951 39 0 0 $opt eq "-" and not defined $opctl->{''}
963 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
977 37 2 0 $Getopt::Long::bundling || $bundling_values and $starter eq "-"
0 0 39 $Getopt::Long::autoabbrev and $opt ne ""
983 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}
1043 0 0 0 $Getopt::Long::auto_version and exists $hit{'version'}
0 0 0 $Getopt::Long::auto_help and exists $hit{'help'}
1062 4 35 0 @hits == 1 and $hits[0] ne $opt
1064 0 0 0 $Getopt::Long::bundling && length $tryopt == 1
1081 0 0 1 $Getopt::Long::bundling == 1 and length $starter == 1
1140 0 0 0 $optargtype == 0 and not $mand
1186 17 0 0 $ctl->[3] == 2 and defined $arg
1232 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
1236 0 0 0 $type eq 'o' && $arg =~ /^0/
1237 0 0 0 defined $rest and $rest ne ""
1241 2 0 0 $type eq 'o' && $arg =~ /^0/
1276 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
1281 0 0 0 defined $rest and $rest ne ""
1375 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
1532 0 0 0 @_ == 2 and $_[0] eq $tag

or 2 conditions

line l !l condition
790 0 0 $v[3] or 0
0 0 $v[4] || ''
0 0 $v[5] || ''
873 0 0 $dest ||= "\$"
890 0 17 $dest ||= "\$"
905 17 0 $ma || -1
1539 0 0 shift() || {}

or 3 conditions

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 "!"
898 0 0 17 defined $ma or defined $cm
963 24 14 1 $starter =~ /^$Getopt::Long::longprefix$/ || $Getopt::Long::getopt_compat && ($Getopt::Long::bundling == 0 || $Getopt::Long::bundling == 2)
977 2 0 37 $Getopt::Long::bundling || $bundling_values
1032 39 0 0 @hits <= 1 or grep(($_ eq $opt), @hits) == 1
1105 15 3 17 $type eq "" or $type eq "!"
18 0 17 $type eq "" or $type eq "!" or $type eq "+"
1106 15 0 3 $type eq "" or $type eq "+"
1131 0 0 0 defined $rest or @$argv > 0
1158 0 14 0 defined $rest || @$argv > 0
1163 0 0 0 $mand or $ctl->[3] == 2
1203 2 0 0 $type eq "i" or $type eq "I"
2 0 0 $type eq "i" or $type eq "I" or $type eq "o"
1212 0 0 1 defined $optarg or defined $rest
1217 0 0 1 $arg eq $argend or $arg =~ /^$prefix.+/
1244 0 0 0 defined $optarg or $mand
1287 0 0 0 defined $optarg or $mand
1324 0 0 0 $type eq "i" or $type eq "I"
0 0 0 $type eq "i" or $type eq "I" or $type eq "o"
1331 0 0 0 $arg eq $argend or $arg =~ /^$prefix.+/
1375 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"
1490 0 0 0 $pa->{'-output'} || ($pa->{'-exitval'} eq 'NOEXIT' || $pa->{'-exitval'} < 2 ? \*STDOUT : \*STDERR)
1547 0 0 0 $pa->{'-message'} //= delete $pa->{'-msg'}