| line |
true |
false |
branch |
|
158
|
0 |
345 |
if (ref $_[0] eq 'ARRAY') { } |
|
|
0 |
345 |
elsif (ref $_[0]) { } |
|
167
|
0 |
345 |
if grep /;/, @$spec > 1 |
|
172
|
345 |
0 |
if (defined $invocant) |
|
173
|
345 |
0 |
if ($invocant eq 'self') { } |
|
176
|
0 |
0 |
if (UNIVERSAL::isa($_[0], $invocant)) { } |
|
187
|
14 |
617 |
if $spec->[$_] eq '*' |
|
188
|
265 |
352 |
if ($spec->[$_] eq ';') { } |
|
|
0 |
352 |
elsif ($spec->[$_] =~ /;/) { } |
|
194
|
0 |
0 |
if $els[0] eq '' |
|
196
|
0 |
0 |
if @els > 2 |
|
199
|
0 |
0 |
unless $spec->[$_] =~ /^;/ |
|
213
|
132 |
342 |
if defined $_[0] and $_[0] =~ /^-/ |
|
214
|
0 |
342 |
if ($spec->[0] eq '*') { } |
|
224
|
0 |
212 |
unless $k =~ /^-/ |
|
230
|
0 |
212 |
if exists $result{$name} |
|
232
|
0 |
212 |
unless @$spec > 0 and @$spec[-1] eq '*' or grep {$name eq $_;} @$spec |
|
238
|
0 |
345 |
if (@missing) |
|
242
|
345 |
0 |
defined $self ? : |