| line |
true |
false |
branch |
|
118
|
0 |
1 |
unless eval ' use Class::Accessor::Fast::XS; 1 ' and do {
'base'->import('Class::Accessor::Fast::XS');
1
} or eval {
do {
require Class::Accessor::Fast;
1
}
} and do {
'base'->import('Class::Accessor::Fast');
1
} |
|
133
|
0 |
7 |
if ref $pkg |
|
135
|
7 |
0 |
unless $CLASS{$pkg}{'list'} |
|
145
|
0 |
119 |
unless $CLASS{$pkg}{'isa'} |
|
146
|
57 |
62 |
unless $CLASS{$pkg}{'fields'} |
|
147
|
94 |
41 |
$_ ne $pkg && $_->can('field_list') ? : |
|
163
|
8 |
2 |
unless @_ |
|
171
|
2 |
0 |
unless warnings::enabled($ME) |
|
172
|
0 |
0 |
if (/Odd number of elements/s) |
|
173
|
0 |
0 |
length $_ ? : |
|
|
0 |
0 |
defined $_ ? : |
|
174
|
0 |
0 |
if $sw |
|
178
|
0 |
0 |
if $sw |
|
181
|
0 |
2 |
@_ == 1 && ref $_[0] ? : |
|
188
|
0 |
4 |
if ($chk{$_}) { } |
|
|
0 |
4 |
elsif (warnings::enabled($ME)) { } |
|
202
|
0 |
7 |
unless (my $me = shift()) eq $ME |
|
205
|
5 |
2 |
unless $pkg->isa($me) |