| line |
true |
false |
branch |
|
28
|
2 |
0 |
$] >= 5.01 && require mro ? : |
|
44
|
21 |
0 |
if not $Object::HashBase::VERSION{$into} or $Object::HashBase::VERSION{$into} > $ver |
|
52
|
0 |
6 |
unless $Object::HashBase::ATTR_SUBS{$_} |
|
55
|
7 |
14 |
$into->can('new') ? : |
|
60
|
10 |
35 |
if $spec->{'strip'} |
|
67
|
41 |
4 |
if $spec->{'reader'} |
|
68
|
37 |
8 |
if $spec->{'writer'} |
|
69
|
2 |
43 |
if $spec->{'read_only'} |
|
70
|
2 |
43 |
if $spec->{'dep_writer'} |
|
90
|
0 |
6 |
if (0.004 > ($Object::HashBase::VERSION{$_} || 0)) { } |
|
95
|
6 |
0 |
$list ? : |
|
109
|
3 |
8 |
if (@_ == 1) { } |
|
113
|
1 |
2 |
if ($type eq 'HASH') { } |
|
117
|
0 |
2 |
unless $type eq 'ARRAY' |
|
124
|
1 |
8 |
unless my $key = shift @attributes |
|
136
|
5 |
5 |
unless exists $Object::HashBase::CAN_CACHE{$class} |
|
138
|
2 |
8 |
if $Object::HashBase::CAN_CACHE{$class} |