| line |
true |
false |
branch |
|
45
|
2 |
29 |
unless ref $arg_ref eq 'HASH' |
|
48
|
0 |
29 |
unless $name |
|
64
|
68 |
106 |
if (defined $contents) |
|
65
|
29 |
39 |
if ($method eq 'scalar') |
|
69
|
17 |
12 |
unless defined $contents |
|
77
|
145 |
12 |
unless exists $$arg_ref{$method} |
|
81
|
7 |
5 |
if (defined $override) |
|
93
|
14 |
4 |
if (defined $value) |
|
98
|
18 |
0 |
!ref($return_value) ? : |
|
|
0 |
18 |
!defined($return_value) ? : |
|
105
|
19 |
5 |
if (defined $value) { } |
|
106
|
1 |
18 |
wantarray ? : |
|
110
|
1 |
4 |
wantarray ? : |
|
116
|
18 |
5 |
if (defined $value) { } |
|
117
|
1 |
17 |
wantarray ? : |
|
121
|
1 |
4 |
wantarray ? : |
|
127
|
13 |
4 |
if (defined $value) { } |
|
137
|
14 |
50 |
if ($slot_to_be_replaced eq 'SCALAR') { } |
|
144
|
0 |
0 |
unless reftype $value eq $slot_to_be_replaced or reftype $value eq 'REF' and $slot_to_be_replaced eq 'SCALAR' |
|
167
|
8 |
0 |
if (defined $slot_to_delete) |
|
177
|
0 |
8 |
unless $package |
|
187
|
0 |
8 |
unless defined $slot_to_delete |
|
190
|
8 |
40 |
if $method eq $slot_to_delete |
|
194
|
6 |
34 |
if $method eq 'scalar' |
|
200
|
15 |
25 |
if defined $$storage_ref{$self} |