| line |
true |
false |
branch |
|
20
|
8 |
5 |
if (ref $ref) |
|
21
|
0 |
8 |
if (reftype $ref eq 'SCALAR') { } |
|
|
8 |
0 |
elsif (reftype $ref eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (reftype $ref eq 'HASH') { } |
|
37
|
3 |
8 |
if $tied and $tied->isa('Data::COW') |
|
49
|
3 |
8 |
if (my $obj = cow_object($ref)) { } |
|
50
|
3 |
0 |
if ($$obj{'parent'} == $parent) { } |
|
65
|
6 |
5 |
if (ref $ref and not overload::Overloaded($ref) && overload::Method($ref, '=')) { } |
|
70
|
0 |
6 |
if (reftype $ref eq 'SCALAR') { } |
|
|
6 |
0 |
elsif (reftype $ref eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (reftype $ref eq 'HASH') { } |
|
88
|
0 |
6 |
if (blessed $ref) |
|
102
|
2 |
3 |
unless $$self{'const'} |
|
106
|
0 |
3 |
if (blessed $old) |
|
109
|
2 |
1 |
if ($$self{'parent'}) |
|
138
|
0 |
0 |
if defined $key |
|
171
|
5 |
0 |
if defined $key |
|
229
|
0 |
0 |
if defined $key |