| line |
true |
false |
branch |
|
25
|
35 |
22 |
if ($arg =~ /^[A-Z][A-Z0-9_]*$/) |
|
26
|
26 |
9 |
if (exists $data{'name'}) |
|
41
|
24 |
11 |
if &looks_like_number($value) |
|
46
|
8 |
14 |
if (ref $arg eq 'HASH') |
|
48
|
0 |
8 |
if &looks_like_number($value) |
|
54
|
2 |
12 |
if &looks_like_number($value) |
|
57
|
9 |
1 |
if (exists $data{'name'}) |
|
71
|
8 |
2 |
if ($start_ordinal == 0 and $ordinal_for_data{$caller} > 0) |
|
78
|
0 |
7 |
if @_ < 2 |
|
79
|
1 |
6 |
unless (exists $data_by_ordinal{$caller}[$_[1]]) |
|
107
|
15 |
22 |
if (&blessed($_[1]) and $_[1]->isa('Class::Constant::Object')) |
|
108
|
9 |
6 |
&refaddr($_[0]) == &refaddr($_[1]) ? : |
|
124
|
0 |
16 |
if $method =~ /^[A-Z]+$/ |
|
126
|
0 |
16 |
unless ($method =~ /^get_/) |
|
134
|
0 |
16 |
unless $data |
|
136
|
0 |
16 |
unless (exists $data->{'methods'} and exists $data->{'methods'}{$name}) |