Branch Coverage

blib/lib/Getargs/Mixed.pm
Criterion Covered Total %
branch 44 44 100.0


line true false branch
164 78 76 if UNIVERSAL::isa($_[0], 'Getargs::Mixed')
167 90 64 if (ref $_[0] eq 'ARRAY') { }
4 60 elsif (ref $_[0]) { }
176 2 148 if grep(/;/, @$spec) > 1
181 60 88 if (defined $invocant)
182 20 40 if ($invocant eq 'self') { }
185 20 20 if (UNIVERSAL::isa($_[0], $invocant)) { }
196 22 387 if $spec->[$_] eq '*'
198 11 376 if ($spec->[$_] eq ';') { }
22 354 elsif ($spec->[$_] =~ /;/) { }
206 2 20 if @els > 2
209 14 6 if $els[0] eq ''
214 6 14 unless $spec->[$_] =~ /^;/
227 117 127 if defined $_[0] and $_[0] =~ /^-/
230 6 121 unless @$spec and $spec->[0]
233 2 119 if ($spec->[0] eq '*') { }
243 2 288 unless $k =~ /^-/
249 2 286 if exists $result{$name}
251 2 284 unless @$spec > 0 and @$spec[-1] eq '*' or grep {$name eq $_;} @$spec
258 2 132 $me->{'-undef_ok'} ? :
260 4 130 if (@missing)
264 60 70 defined $self ? :