| line |
true |
false |
branch |
|
17
|
0 |
5 |
if (@_ != 2) |
|
23
|
3 |
2 |
unless exists $$self{$key} |
|
36
|
0 |
0 |
if ($key eq 'can' and defined $index and $index != /\d+/) |
|
40
|
0 |
0 |
if ($key eq 'isa' and defined $index and $index != /\d+/) |
|
41
|
0 |
0 |
$index eq 'UNIVERSAL' ? : |
|
|
0 |
0 |
unless $index eq ref $self or $index eq 'Data::AsObject::Hash' |
|
53
|
15 |
6 |
exists $$self{$key} ? : |
|
54
|
21 |
0 |
ref($self) =~ /^.*::(\w+)$/ ? : |
|
56
|
4 |
17 |
unless ($data) |
|
57
|
0 |
4 |
if $key eq 'DESTROY' |
|
61
|
1 |
3 |
if $mode eq 'Loose' |
|
62
|
2 |
2 |
if $mode eq 'Strict' |
|
66
|
5 |
0 |
if (defined $index and $index =~ /\d+/ and &$Data::AsObject::__check_type($data) eq 'ARRAY' and exists $$data[$index]) |
|
76
|
4 |
13 |
if (&$Data::AsObject::__check_type($data) eq 'ARRAY') { } |
|
|
2 |
11 |
elsif (&$Data::AsObject::__check_type($data) eq 'HASH') { } |
|
89
|
2 |
4 |
if $has_colon_or_dash |
|
91
|
2 |
4 |
if (@matches == 1) { } |
|
|
0 |
4 |
elsif (@matches > 1) { } |