Branch Coverage

blib/lib/Getopt/Long/EvenLess.pm
Criterion Covered Total %
branch 51 64 79.6


line true false branch
22 6 6 if (ref $_[0] eq 'HASH') { }
28 5 1 if ($_ eq 'pass_through') { }
0 1 elsif ($_ eq 'no_pass_through') { }
0 1 elsif ($_ eq 'auto_abbrev') { }
1 0 elsif ($_ eq 'no_auto_abbrev') { }
0 0 elsif ($_ =~ /\A(no_ignore_case|no_getopt_compat|gnu_compat|bundling|permute)\z/) { }
49 1 0 @_ ? :
51 2 0 if (grep {$_ eq $imp;} @EXPORT, @EXPORT_OK) { }
80 11 52 if $short_mode and length $o > 1
81 22 30 if ($o eq $wanted) { }
8 23 elsif ($config->{'auto_abbrev'} and index($o, $wanted) == 0) { }
92 9 27 if (not @candidates) { }
3 24 elsif (@candidates > 1) { }
93 5 4 unless ($config->{'pass_through'})
99 1 2 unless ($config->{'pass_through'})
115 19 3 @_ ? :
122 2 39 if ($argv->[$i] eq '--') { }
28 11 elsif ($argv->[$i] =~ /\A--(.+?)(?:=(.*))?\z/) { }
5 6 elsif ($argv->[$i] =~ /\A-(.*)/) { }
131 8 20 if (not defined $opt) { }
3 17 elsif (not length $opt) { }
142 17 0 if ($spec =~ /=[fios][\@%]?\z/) { }
143 3 14 if (defined $val_in_opt) { }
147 1 13 if ($i + 1 >= @$argv)
169 1 7 if (not defined $opt) { }
0 7 elsif (not length $opt) { }
171 1 0 unless $remaining_pushed++
176 0 0 unless $remaining_pushed++
182 4 3 if ($spec =~ /=[fios][\@%]?\z/) { }
183 2 2 if (length $str) { }
188 1 1 if ($i + 1 >= @$argv)
190 1 0 unless ($config->{'pass_through'})