| line |
true |
false |
branch |
|
33
|
0 |
27 |
unless my $class = ref $self || $self and $attrs |
|
35
|
0 |
27 |
if ref $value and ref $value ne 'CODE' |
|
38
|
0 |
27 |
ref $attrs eq 'ARRAY' ? : |
|
39
|
0 |
27 |
unless $attr =~ /^[a-zA-Z_]\w*$/ |
|
42
|
8 |
19 |
if (ref $value) { } |
|
|
19 |
0 |
elsif (defined $value) { } |
|
44
|
0 |
2 |
exists $_[0]{$attr} ? : |
|
|
2 |
0 |
if @_ == 1 |
|
51
|
4 |
7 |
exists $_[0]{$attr} ? : |
|
|
11 |
1 |
if @_ == 1 |
|
58
|
0 |
0 |
if @_ == 1 |
|
65
|
5 |
7 |
unless my $flag = shift() |
|
68
|
5 |
2 |
if ($flag eq '-base') { } |
|
|
2 |
0 |
elsif ($flag eq '-strict') { } |
|
|
0 |
0 |
elsif (my $file = $flag and not $flag->can('new')) { } |
|
80
|
5 |
2 |
if ($flag) |
|
94
|
0 |
0 |
@_ > 1 ? : |
|
|
0 |
2 |
@_ ? : |
|
108
|
0 |
0 |
/^\+(.+)$/ ? : |
|
|
0 |
0 |
unless my $class = &Scalar::Util::blessed($self) |
|
112
|
0 |
0 |
/^\+(.+)$/ ? : |