Branch Coverage

blib/lib/Getopt/Long/More.pm
Criterion Covered Total %
branch 58 142 40.8


line true false branch
45 0 0 if wantarray
46 0 0 if (@$args)
72 6 20 if (ref $_[0])
74 6 0 if (&Scalar::Util::reftype($_[0]) eq 'HASH')
83 0 26 if ($Getopt::Long::auto_help)
92 0 26 if ($Getopt::Long::auto_version)
109 51 22 unless (ref $e eq 'Getopt::Long::More::OptSpec')
114 8 14 unless exists $e->{'destination'}
116 3 11 if ($prev eq '<>') { }
132 0 26 if ($ENV{'COMP_SHELL'}) { }
0 26 elsif ($ENV{'COMMAND_LINE'}) { }
140 0 26 if ($ENV{'COMP_LINE'} or $ENV{'COMMAND_LINE'})
142 0 0 if ($ENV{'COMP_LINE'}) { }
0 0 elsif ($ENV{'COMMAND_LINE'}) { }
155 0 0 if ($i % 2 == 0)
158 0 0 if (ref $os eq 'Getopt::Long::More::OptSpec')
160 0 0 unless $completion
161 0 0 if (ref $completion eq 'ARRAY')
171 0 0 if ($o eq '<>') { }
182 0 0 if ($args{'type'} eq 'optval' and $opt_completions{$args{'ospec'}}) { }
0 0 elsif ($args{'type'} eq 'arg' and $arg_completion) { }
198 0 0 if ($shell eq 'bash') { }
0 0 elsif ($shell eq 'fish') { }
0 0 elsif ($shell eq 'tcsh') { }
0 0 elsif ($shell eq 'zsh') { }
225 22 51 if ($i > 0 and ref $_ eq 'Getopt::Long::More::OptSpec')
229 8 14 if ($_->{'required'})
230 4 4 if ($osname eq '<>') { }
2 2 elsif (exists $_->{'destination'}) { }
231 2 2 if ($has_arg_handler) { }
232 1 1 unless ($arg_handler_accessed)
236 1 1 unless (@{$ary;})
241 1 1 if (ref $_->{'destination'} eq 'SCALAR' and not defined ${$$_{'destination'};}) { }
0 1 elsif (ref $_->{'destination'} eq 'ARRAY' and not @{$_->{'destination'};}) { }
0 2 elsif (ref $_->{'destination'} eq 'HASH' and not keys %{$$_{'destination'};}) { }
259 5 12 if (defined $_->{'default'})
260 1 4 if ($osname eq '<>') { }
2 2 elsif (exists $_->{'destination'}) { }
263 1 1 if (ref $_->{'destination'} eq 'SCALAR' and not defined ${$$_{'destination'};}) { }
0 1 elsif (ref $_->{'destination'} eq 'ARRAY' and not @{$_->{'destination'};}) { }
0 2 elsif (ref $_->{'destination'} eq 'HASH' and not keys %{$$_{'destination'};}) { }
287 0 0 @_ ? :
292 0 0 if ($i % 2 == 0)
295 0 0 if $osname eq '<>'
298 0 0 length $oname > 1 ? :
302 0 0 if $max_opt_spec_len < $len
304 0 0 if (ref $os eq 'Getopt::Long::More::OptSpec')
306 0 0 if $os->{'required'}
320 0 0 $_->[3] ? :
0 0 defined $_->[4] ? :
332 0 0 @_ ? :
336 0 0 if ($i % 2 == 0)
339 0 0 if $osname eq '<>'
342 0 0 length $oname > 1 ? :
346 0 0 if (ref $os eq 'Getopt::Long::More::OptSpec')
349 0 0 if $os->{'required'}
360 0 0 if ($_->[3])
361 0 0 if (defined $_->[4])
362 0 0 @notes ? :
363 0 0 if length $_->[1]
364 0 0 if length $_->[2]
381 0 28 unless shift()
384 56 28 unless $_
391 26 2 unless exists $o{$k}
393 2 0 defined $canon ? :
401 26 2 unless exists $o{$k}
404 0 2 unless defined $canon
406 1 1 if (exists $o{$canon})
413 0 27 wantarray ? :
428 4 31 if /\A(x|x\..+|_.*)\z/
429 2 29 unless (/\A(required|default|summary|description|destination|completion)\z/)