Branch Coverage

blib/lib/Getargs/Long.pm
Criterion Covered Total %
branch 117 152 76.9


line true false branch
13 0 5 if $] eq '5.006'
45 3 3 if (@syms == @_) { }
82 0 0 if $sub =~ /^\(eval/
107 0 8 if $sub =~ /^\(eval/
147 0 25 unless ref $args eq 'ARRAY'
154 8 17 if ($subname ne '')
156 6 2 if (defined $sref) { }
168 11 8 $ignore{$callpkg} ? :
182 8 11 if (ref $_[0] eq 'HASH')
194 0 19 unless ref $vset
203 0 3 $strict ? :
3 5 unless defined $extra
209 0 8 if ($strict)
210 0 0 if ($inplace)
214 0 0 if ($extra)
229 3 16 if (@_ == 1 and ref $_[0]) { }
230 0 3 unless ref $_[0] eq 'ARRAY'
236 0 16 if $extended and @specs % 2
247 10 9 $extended ? :
250 50 30 if ($extended) { }
253 35 15 if (ref $spec) { }
255 0 35 unless ref $spec eq 'ARRAY'
267 12 18 unless defined $name
271 54 26 if $case_insensitive
274 0 80 if $name eq ''
275 0 80 if ref $name
276 0 80 if $seen{$name}++
278 53 27 defined $type ? :
20 60 defined $dflt ? :
294 2 17 if ($subname ne '')
295 2 0 $case_insensitive ? :
320 0 2 if ($extra and not $inplace) { }
331 1 1 if ($inplace or $extra)
340 1 0 if $case_insensitive
363 5 5 if $inplace or $extra
367 5 5 if $inplace or $extra
376 7 3 if ($optional) { }
377 4 3 if ($has_default)
399 7 3 if ($type ne '')
400 5 2 if ($optional) { }
410 5 2 $optional ? :
411 3 4 if ($type =~ /^[isn]$/) { }
435 1 1 if $strict
442 0 2 if $extra
451 0 2 if (chop $@) { }
479 3 14 if $extra and not $inplace
481 0 17 if @$args % 2
483 10 7 if ($case_insensitive) { }
484 20 13 /^-/ ? :
33 33 $i++ % 2 ? :
486 26 0 /^-/ ? :
26 26 $i++ % 2 ? :
490 0 17 if 2 * scalar(keys %args) != @$args
495 7 10 if ($inplace or $extra)
499 17 2 if $case_insensitive
509 50 18 if (exists $args{$name}) { }
15 3 elsif ($optional) { }
515 17 33 if ($inplace or $extra)
519 20 33 if $v > $idx
523 6 9 if defined $dflt
528 56 9 defined $cur ? :
529 23 42 if not defined $type or $type eq ''
531 29 13 if ($optional) { }
532 0 29 if $isthere and not defined $$cur
535 1 12 unless defined $$cur
540 16 25 if ($type =~ /^[isn]$/) { }
541 0 16 if !$optional || $isthere and ref $$cur
545 19 6 $isthere ? :
546 9 10 UNIVERSAL::isa($$cur, 'UNIVERSAL') ? :
1 18 if !$optional || $isthere and UNIVERSAL::isa($$cur, 'UNIVERSAL') ? !$$cur->isa($type) : $ctype ne $type
555 4 3 if $strict and scalar keys %args
558 3 5 if $extra
574 0 0 $ignorecase ? :
576 0 0 if $seen{$key}++
578 0 0 unless @duplicates
592 5 0 @unprocessed == 1 ? :