| line |
true |
false |
branch |
|
41
|
7 |
0 |
$] >= 5.01 && require mro ? : |
|
55
|
28 |
0 |
if not $Test2::Harness::Util::HashBase::VERSION{$into} or $Test2::Harness::Util::HashBase::VERSION{$into} > $Test2::Harness::Util::HashBase::VERSION |
|
63
|
0 |
10 |
unless $Test2::Harness::Util::HashBase::ATTR_SUBS{$_} |
|
66
|
11 |
17 |
$into->can('new') ? : |
|
68
|
24 |
42 |
if $STRIP{$p} |
|
75
|
2 |
42 |
$p eq '^' ? : |
|
|
22 |
44 |
$p eq '-' ? : |
|
93
|
0 |
12 |
if (0.004 > ($Test2::Harness::Util::HashBase::VERSION{$_} || 0)) { } |
|
98
|
12 |
0 |
$list ? : |
|
112
|
6 |
24 |
if (@_ == 1) { } |
|
116
|
2 |
4 |
if ($type eq 'HASH') { } |
|
120
|
0 |
4 |
unless $type eq 'ARRAY' |
|
127
|
2 |
16 |
unless my $key = shift @attributes |
|
139
|
14 |
14 |
unless exists $Test2::Harness::Util::HashBase::CAN_CACHE{$class} |
|
141
|
12 |
16 |
if $Test2::Harness::Util::HashBase::CAN_CACHE{$class} |