Branch Coverage

blib/lib/Getopt/Long/More.pm
Criterion Covered Total %
branch 46 126 36.5


line true false branch
43 0 0 if wantarray
44 0 0 if (@$args)
70 6 20 if (ref $_[0])
72 6 0 if (&Scalar::Util::reftype($_[0]) eq 'HASH')
81 0 26 if ($Getopt::Long::auto_help)
90 0 26 if ($Getopt::Long::auto_version)
107 51 22 unless (ref $e eq 'Getopt::Long::More::OptSpec')
112 8 14 unless exists $e->{'handler'}
114 3 11 if ($prev eq '<>') { }
130 0 26 if ($ENV{'COMP_SHELL'}) { }
0 26 elsif ($ENV{'COMMAND_LINE'}) { }
138 0 26 if ($ENV{'COMP_LINE'} or $ENV{'COMMAND_LINE'})
140 0 0 if ($ENV{'COMP_LINE'}) { }
0 0 elsif ($ENV{'COMMAND_LINE'}) { }
153 0 0 if ($i % 2 == 0)
156 0 0 if (ref $os eq 'Getopt::Long::More::OptSpec')
158 0 0 unless $completion
159 0 0 if (ref $completion eq 'ARRAY')
169 0 0 if ($o eq '<>') { }
180 0 0 if ($args{'type'} eq 'optval' and $opt_completions{$args{'ospec'}}) { }
0 0 elsif ($args{'type'} eq 'arg' and $arg_completion) { }
196 0 0 if ($shell eq 'bash') { }
0 0 elsif ($shell eq 'fish') { }
0 0 elsif ($shell eq 'tcsh') { }
0 0 elsif ($shell eq 'zsh') { }
223 22 51 if ($i > 0 and ref $_ eq 'Getopt::Long::More::OptSpec')
227 8 14 if ($_->{'required'})
228 4 4 if ($osname eq '<>') { }
2 2 elsif (exists $_->{'handler'}) { }
229 2 2 if ($has_arg_handler) { }
230 1 1 unless ($arg_handler_accessed)
234 1 1 unless (@{$ary;})
239 1 1 if (ref $_->{'handler'} eq 'SCALAR' and not defined ${$$_{'handler'};}) { }
0 1 elsif (ref $_->{'handler'} eq 'ARRAY' and not @{$_->{'handler'};}) { }
0 2 elsif (ref $_->{'handler'} eq 'HASH' and not keys %{$$_{'handler'};}) { }
257 5 12 if (defined $_->{'default'})
258 1 4 if ($osname eq '<>') { }
2 2 elsif (exists $_->{'handler'}) { }
261 1 1 if (ref $_->{'handler'} eq 'SCALAR' and not defined ${$$_{'handler'};}) { }
0 1 elsif (ref $_->{'handler'} eq 'ARRAY' and not @{$_->{'handler'};}) { }
0 2 elsif (ref $_->{'handler'} eq 'HASH' and not keys %{$$_{'handler'};}) { }
285 0 0 @_ ? :
290 0 0 if ($i % 2 == 0)
293 0 0 if $osname eq '<>'
296 0 0 length $oname > 1 ? :
300 0 0 if $max_opt_spec_len < $len
302 0 0 if (ref $os eq 'Getopt::Long::More::OptSpec')
304 0 0 if $os->{'required'}
318 0 0 $_->[3] ? :
0 0 defined $_->[4] ? :
330 0 0 @_ ? :
334 0 0 if ($i % 2 == 0)
337 0 0 if $osname eq '<>'
340 0 0 length $oname > 1 ? :
344 0 0 if (ref $os eq 'Getopt::Long::More::OptSpec')
347 0 0 if $os->{'required'}
358 0 0 if ($_->[3])
359 0 0 if (defined $_->[4])
360 0 0 @notes ? :
361 0 0 if length $_->[1]
362 0 0 if length $_->[2]
376 4 30 if /\A(x|x\..+|_.*)\z/
377 2 28 unless (/\A(handler|required|default|summary|description|completion)\z/)