| line |
true |
false |
branch |
|
10
|
0 |
195 |
unless my $class = ref $self || $self and $attrs |
|
12
|
0 |
195 |
if ref $value and ref $value ne 'CODE' |
|
14
|
0 |
195 |
if grep {$_ ne 'weak';} keys %kv |
|
17
|
9 |
186 |
if ($kv{'weak'}) |
|
19
|
9 |
0 |
unless ($weak_names{$class}) |
|
30
|
1 |
8 |
ref $attrs eq 'ARRAY' ? : |
|
33
|
30 |
165 |
ref $attrs eq 'ARRAY' ? : |
|
38
|
10 |
243 |
if ($kv{'weak'}) { } |
|
|
117 |
126 |
elsif (ref $value) { } |
|
|
55 |
71 |
elsif (defined $value) { } |
|
39
|
7 |
3 |
if (ref $value) { } |
|
46
|
0 |
0 |
exists $_[0]{$attr} ? : |
|
|
0 |
0 |
if @_ == 1 |
|
48
|
0 |
0 |
if ref($_[0]{$attr} = $_[1]) |
|
54
|
0 |
0 |
if @_ == 1 |
|
55
|
0 |
0 |
if ref($_[0]{$attr} = $_[1]) |
|
63
|
17 |
5 |
exists $_[0]{$attr} ? : |
|
|
22 |
1 |
if @_ == 1 |
|
71
|
1 |
0 |
exists $_[0]{$attr} ? : |
|
|
1 |
0 |
if @_ == 1 |
|
79
|
0 |
0 |
if @_ == 1 |