Branch Coverage

blib/lib/Getopt/Long/Util.pm
Criterion Covered Total %
branch 61 96 63.5


line true false branch
71 2 23 if $optspec eq "<>"
73 2 21 unless $optspec =~ qr/\A (?P-{0,2}) (?P[A-Za-z0-9_][A-Za-z0-9_-]*) (?P (?: \| (?:[^:|!+=:-][^:|!+=:]*) )*)? (?: (?P!) | (?P\+) | (?: = (?P[siof]) (?P|[%\@])? (?: \{ (?: (?P\d+), )? (?P\d+) \} )? ) | (?: : (?P[siof]) (?P|[%\@])? ) | (?: : (?P-?\d+) (?P|[%\@])? ) | (?: : (?P\+) (?P|[%\@])? ) )? \z/x
111 1 20 if (defined $res{'optnum'})
115 7 14 if ($res{'aliases'}) { }
118 7 11 unless length $al
119 0 11 if $al eq $res{'name'}
120 0 11 if grep {$_ eq $al;} @als
130 3 18 if $res{'is_neg'}
131 1 20 if $res{'is_inc'}
194 3 10 if ref $_[0] eq "HASH"
197 0 13 unless my $parse = parse_getopt_long_opt_spec($optspec)
200 1 12 if $parse->{'is_arg'}
209 2 16 if ($parse->{'is_neg'} and length $_ > 1) { }
213 11 5 if (length $_ > 1) { }
220 8 2 if ($i == 1 and $parse->{'type'} || $parse->{'opttype'})
226 0 8 if $parse->{'opttype'}
227 3 5 $parse->{'type'} && $parse->{'desttype'} eq '%' ? :
228 3 5 if $parse->{'desttype'} eq "%"
230 0 8 if $parse->{'opttype'}
232 0 8 if $parse->{'opttype'}
233 3 5 $parse->{'type'} && $parse->{'desttype'} eq '%' ? :
234 3 5 if $parse->{'desttype'} eq "%"
235 0 8 defined $opts->{'value_label_link'} ? :
236 0 8 if $parse->{'opttype'}
238 5 11 if ($parse->{'desttype'} // "") =~ /@|%/
239 5 11 if ($parse->{'desttype'} // "") =~ /@|%/
242 6 12 if length $plain_res
243 6 12 if length $pod_res
249 1 11 if ($opts->{'extended'}) { }
301 0 0 unless defined $args{'filename'} xor defined $args{'string'}
312 0 0 if (defined $args{'filename'})
314 0 0 unless (-f $fn)
318 0 0 unless ($include_noexec or -x _)
323 0 0 unless (open $fh, "<", $fn)
329 0 0 unless ($str eq "#!")
334 0 0 unless ($shebang =~ /perl/)
345 0 0 unless ($str =~ /\A#!/)
349 0 0 unless ($str =~ /\A#!.*perl/)
364 0 0 if (/^\s*(use|require)\s+(Getopt::Long(?:::Complete|::Less|::EvenLess)?)(\s|;|$)/)
413 0 0 $2 ? :
0 0 $2 ? :
0 0 $is_getopt ? :
460 1 3 if @$go_spec and ref $go_spec->[0] eq "HASH"
466 5 4 if (@$go_spec and ref $go_spec->[0]) { }
2 2 elsif ($hash_storage) { }
469 0 2 unless my $res = parse_getopt_long_opt_spec($opt_spec)
472 1 1 unless exists $hash_storage->{$name}
475 1 1 ref $hash_storage->{$name} ? :