| line |
true |
false |
branch |
|
23
|
0 |
0 |
$fglob && 'GLOB' eq ref $fglob && *$fglob{'HASH'} ? : |
|
33
|
0 |
0 |
unless $$Fattr{$_[0]} |
|
79
|
0 |
0 |
unless @_ |
|
88
|
0 |
0 |
if ($inheritor eq $base) |
|
92
|
0 |
0 |
if grep $_->isa($base), ($inheritor, @bases) |
|
109
|
0 |
0 |
if $@ and not $@ =~ /^Can't locate \Q$fn\E .*? at .* line [0-9]+(?:, <[^>]*> (?:line|chunk) [0-9]+)?\.\n\z/s or $@ =~ /Compilation failed in require at .* line [0-9]+(?:, <[^>]*> (?:line|chunk) [0-9]+)?\.\n\z/ |
|
111
|
0 |
0 |
unless (%{"${base}::";}) |
|
123
|
0 |
0 |
if defined $sigdie |
|
127
|
0 |
0 |
if (has_fields($base) or has_attr($base)) |
|
129
|
0 |
0 |
if ($fields_base) { } |
|
140
|
0 |
0 |
if (defined $fields_base) |
|
149
|
0 |
0 |
unless $base |
|
158
|
0 |
0 |
if (keys %$dfields) |
|
172
|
0 |
0 |
if ($fno = $dfields->{$k} and $fno != $v) |
|
177
|
0 |
0 |
if ($battr->[$v] & 2) { } |
|
187
|
0 |
0 |
if defined $dattr->[$idx] |