| line |
true |
false |
branch |
|
45
|
1 |
0 |
$] >= 5.01 && require mro ? : |
|
58
|
2 |
0 |
if not $My::Prefix::HashBase::VERSION{$into} or $My::Prefix::HashBase::VERSION{$into} > $ver |
|
66
|
0 |
1 |
unless $My::Prefix::HashBase::ATTR_SUBS{$_} |
|
69
|
1 |
1 |
$into->can('new') ? : |
|
71
|
0 |
2 |
if $STRIP{$p} |
|
78
|
0 |
2 |
$p eq '^' ? : |
|
|
0 |
2 |
$p eq '-' ? : |
|
96
|
0 |
0 |
if (0.004 > ($My::Prefix::HashBase::VERSION{$_} || 0)) { } |
|
101
|
0 |
0 |
$list ? : |
|
115
|
0 |
0 |
if (@_ == 1) { } |
|
119
|
0 |
0 |
if ($type eq 'HASH') { } |
|
123
|
0 |
0 |
unless $type eq 'ARRAY' |
|
130
|
0 |
0 |
unless my $key = shift @attributes |
|
142
|
0 |
0 |
unless exists $My::Prefix::HashBase::CAN_CACHE{$class} |
|
144
|
0 |
0 |
if $My::Prefix::HashBase::CAN_CACHE{$class} |