| line |
true |
false |
branch |
|
22
|
0 |
0 |
$fglob && 'GLOB' eq ref $fglob && *$fglob{'HASH'} ? : |
|
32
|
0 |
0 |
unless $$Fattr{$_[0]} |
|
78
|
0 |
0 |
unless @_ |
|
87
|
0 |
0 |
if ($inheritor eq $base) |
|
91
|
0 |
0 |
if grep $_->isa($base), ($inheritor, @bases) |
|
108
|
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/ |
|
110
|
0 |
0 |
unless (%{"${base}::";}) |
|
122
|
0 |
0 |
if defined $sigdie |
|
126
|
0 |
0 |
if (has_fields($base) or has_attr($base)) |
|
128
|
0 |
0 |
if ($fields_base) { } |
|
139
|
0 |
0 |
if (defined $fields_base) |
|
148
|
0 |
0 |
unless $base |
|
157
|
0 |
0 |
if (keys %$dfields) |
|
171
|
0 |
0 |
if ($fno = $dfields->{$k} and $fno != $v) |
|
176
|
0 |
0 |
if ($battr->[$v] & 2) { } |
|
186
|
0 |
0 |
if defined $dattr->[$idx] |