Branch Coverage

blib/lib/Getopt/Panjang.pm
Criterion Covered Total %
branch 70 88 79.5


line true false branch
19 1 0 @_ ? :
21 1 0 if (grep {$_ eq $imp;} @EXPORT, @EXPORT_OK) { }
79 18 0 if ($args{'argv'}) { }
80 0 18 unless ref $args{'argv'} eq 'ARRAY'
85 0 18 unless my $spec = $args{'spec'}
86 0 18 unless ref $args{'spec'} eq 'HASH'
89 0 27 unless ref $spec->{$_} eq 'CODE'
108 10 36 if $short_mode and length $o > 1
109 19 17 if ($o eq $wanted) { }
3 14 elsif (index($o, $wanted) == 0) { }
120 4 21 if (not @candidates) { }
1 20 elsif (@candidates > 1) { }
139 14 3 @_ ? :
144 1 16 if ($@) { }
161 2 24 if ($argv->[$i] eq '--') { }
18 6 elsif ($argv->[$i] =~ /\A--(.+?)(?:=(.*))?\z/) { }
4 2 elsif ($argv->[$i] =~ /\A-(.*)/) { }
170 4 14 if ($findres->[0] == 404) { }
1 13 elsif ($findres->[0] == 300) { }
0 13 elsif ($findres->[0] != 200) { }
187 13 0 if ($speckey =~ /=[fios]\@?\z/) { }
188 2 11 if (defined $val_in_opt) { }
190 1 1 if (length $val_in_opt) { }
192 0 1 unless $setres->[0] == 200
199 1 10 if ($i + 1 >= @$argv)
206 1 9 unless $setres->[0] == 200
211 0 0 unless $setres->[0] == 200
222 0 7 unless $findres->[0] == 200
227 4 3 if ($speckey =~ /=[fios]\@?\z/) { }
228 2 2 if (length $str) { }
231 0 2 unless $setres->[0] == 200
235 1 1 if ($i + 1 >= @$argv)
243 0 1 unless $setres->[0] == 200
248 0 3 unless $setres->[0] == 200
263 10 8 if (not keys %unknown_opts || keys %ambiguous_opts || keys %val_missing_opts || keys %val_invalid_opts) { }
270 4 4 if (keys %unknown_opts)
273 0 4 keys %unknown_opts > 1 ? :
279 3 5 if (keys %val_missing_opts)
282 0 3 keys %val_missing_opts > 1 ? :
288 1 7 @errs > 1 ? :
291 4 14 keys %unknown_opts ? :
1 17 keys %ambiguous_opts ? :
3 15 keys %val_missing_opts ? :
1 17 keys %val_invalid_opts ? :