| line |
true |
false |
branch |
|
37
|
2 |
0 |
if (eval {
do {
require Class::XSAccessor;
'Class::XSAccessor'->VERSION(1.19);
1
}
}) { } |
|
56
|
2 |
0 |
$] >= 5.01 && require mro ? : |
|
81
|
21 |
0 |
if not $Getopt::Yath::HashBase::VERSION{$into} or $Getopt::Yath::HashBase::VERSION{$into} > $ver |
|
92
|
12 |
9 |
if (my $have_new = $into->can("new")) |
|
94
|
1 |
11 |
unless $new_lookup->{$have_new} |
|
99
|
20 |
1 |
$add_new ? : |
|
|
0 |
14 |
unless $Getopt::Yath::HashBase::ATTR_SUBS{$_} |
|
105
|
458 |
86 |
if (ref $v eq 'CODE') { } |
|
128
|
51 |
22 |
if $spec->{'strip'} |
|
137
|
63 |
10 |
if ($spec->{'reader'}) |
|
138
|
0 |
63 |
if ($use_gen) { } |
|
|
63 |
0 |
elsif (not $spec->{'no_xs'}) { } |
|
149
|
23 |
50 |
if ($spec->{'writer'}) { } |
|
|
1 |
49 |
elsif ($spec->{'read_only'}) { } |
|
|
1 |
48 |
elsif ($spec->{'dep_writer'}) { } |
|
150
|
0 |
23 |
if ($use_gen) { } |
|
|
23 |
0 |
elsif (not $spec->{'no_xs'}) { } |
|
161
|
0 |
1 |
$use_gen ? : |
|
164
|
0 |
1 |
$use_gen ? : |
|
167
|
0 |
73 |
if ($spec->{'custom'}) |
|
185
|
0 |
6 |
if (0.004 > ($Getopt::Yath::HashBase::VERSION{$_} || 0)) { } |
|
190
|
6 |
0 |
$list ? : |
|
207
|
11 |
9 |
$__pre_init ? : |
|
210
|
11 |
9 |
$__post_init ? : |
|
217
|
3 |
27 |
if (@_ == 1) { } |
|
221
|
1 |
2 |
if ($type eq 'HASH') { } |
|
225
|
0 |
2 |
unless $type eq "ARRAY" |
|
232
|
1 |
8 |
unless my $key = shift @attributes |
|
244
|
16 |
13 |
unless exists $Getopt::Yath::HashBase::CAN_CACHE{$class} |
|
247
|
21 |
8 |
if $Getopt::Yath::HashBase::CAN_CACHE{$class} |
|
260
|
20 |
0 |
unless defined &{"${into}::new";} |
|
261
|
20 |
0 |
unless defined &{"${into}::add_pre_init";} |
|
262
|
20 |
0 |
unless defined &{"${into}::add_post_init";} |
|
263
|
20 |
0 |
unless defined &{"${into}::_pre_init";} |
|
264
|
20 |
0 |
unless defined &{"${into}::_post_init";} |