| line |
true |
false |
branch |
|
23
|
35 |
22 |
if ($arg =~ /^[A-Z][A-Z0-9_]*$/) |
|
24
|
26 |
9 |
if (exists $data{'name'}) |
|
44
|
8 |
14 |
if (ref $arg eq 'HASH') |
|
55
|
9 |
1 |
if (exists $data{'name'}) |
|
69
|
8 |
2 |
if ($start_ordinal == 0 and $ordinal_for_data{$caller} > 0) |
|
76
|
0 |
7 |
if @_ < 2 |
|
77
|
1 |
6 |
unless (exists $data_by_ordinal{$caller}[$_[1]]) |
|
105
|
15 |
22 |
if (blessed($_[1]) and $_[1]->isa('Class::Constant::Object')) |
|
106
|
9 |
6 |
refaddr($_[0]) == refaddr($_[1]) ? : |
|
122
|
0 |
16 |
if $method =~ /^[A-Z]+$/ |
|
124
|
0 |
16 |
unless ($method =~ /^get_/) |
|
132
|
0 |
16 |
unless $data |
|
134
|
0 |
16 |
unless (exists $$data{'methods'} and exists $$data{'methods'}{$name}) |