| 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 ? : |