| line |
true |
false |
branch |
|
20
|
2 |
0 |
if (eval {
do {
require Class::XSAccessor;
'Class::XSAccessor'->VERSION(1.19);
1
}
}) { } |
|
39
|
2 |
0 |
$] >= 5.01 && require mro ? : |
|
64
|
25 |
0 |
if not $Object::HashBase::VERSION{$into} or $Object::HashBase::VERSION{$into} > $ver |
|
75
|
9 |
16 |
if (my $have_new = $into->can("new")) |
|
77
|
3 |
6 |
unless $new_lookup->{$have_new} |
|
82
|
22 |
3 |
$add_new ? : |
|
|
0 |
8 |
unless $Object::HashBase::ATTR_SUBS{$_} |
|
88
|
185 |
94 |
if (ref $v eq 'CODE') { } |
|
111
|
10 |
43 |
if $spec->{'strip'} |
|
120
|
49 |
4 |
if ($spec->{'reader'}) |
|
121
|
0 |
49 |
if ($use_gen) { } |
|
|
49 |
0 |
elsif (not $spec->{'no_xs'}) { } |
|
132
|
45 |
8 |
if ($spec->{'writer'}) { } |
|
|
2 |
6 |
elsif ($spec->{'read_only'}) { } |
|
|
2 |
4 |
elsif ($spec->{'dep_writer'}) { } |
|
133
|
0 |
45 |
if ($use_gen) { } |
|
|
45 |
0 |
elsif (not $spec->{'no_xs'}) { } |
|
144
|
0 |
2 |
$use_gen ? : |
|
147
|
0 |
2 |
$use_gen ? : |
|
150
|
0 |
53 |
if ($spec->{'custom'}) |
|
168
|
0 |
6 |
if (0.004 > ($Object::HashBase::VERSION{$_} || 0)) { } |
|
173
|
6 |
0 |
$list ? : |
|
190
|
6 |
16 |
$__pre_init ? : |
|
193
|
6 |
16 |
$__post_init ? : |
|
200
|
3 |
10 |
if (@_ == 1) { } |
|
204
|
1 |
2 |
if ($type eq 'HASH') { } |
|
208
|
0 |
2 |
unless $type eq "ARRAY" |
|
215
|
1 |
8 |
unless my $key = shift @attributes |
|
227
|
7 |
5 |
unless exists $Object::HashBase::CAN_CACHE{$class} |
|
230
|
4 |
8 |
if $Object::HashBase::CAN_CACHE{$class} |
|
243
|
22 |
0 |
unless defined &{"${into}::new";} |
|
244
|
22 |
0 |
unless defined &{"${into}::add_pre_init";} |
|
245
|
22 |
0 |
unless defined &{"${into}::add_post_init";} |
|
246
|
22 |
0 |
unless defined &{"${into}::_pre_init";} |
|
247
|
22 |
0 |
unless defined &{"${into}::_post_init";} |