| line |
true |
false |
branch |
|
49
|
1 |
41 |
unless defined $_[0] |
|
51
|
29 |
12 |
if $_[0] =~ /$field_value_r/ |
|
57
|
10 |
12 |
unless my($t) = $_[0] =~ /$field_value_b64_r/ |
|
62
|
109 |
30 |
defined $_[0] ? : |
|
75
|
9 |
63 |
if defined ${"${caller}::$method_prefix$_";} |
|
77
|
0 |
63 |
unless defined ${"${class}::_symbol_$_";} |
|
85
|
1 |
1 |
unless $caller->can($k) |
|
91
|
0 |
0 |
unless $caller->can($k) |
|
101
|
8 |
20 |
unless dor($klass, '') =~ /$klass_r/ |
|
104
|
16 |
4 |
if (my $r = ref $_[0]) |
|
105
|
0 |
16 |
unless $r eq 'HASH' |
|
109
|
6 |
10 |
unless dor($_, '') =~ /$field_name_r/ |
|
112
|
2 |
8 |
if $h{'isa'} |
|
114
|
5 |
5 |
if (length dor(my $throw_alias = $h{'throw_alias'}, '')) |
|
115
|
1 |
4 |
if defined $throw_aliases{$throw_alias} |
|
120
|
1 |
8 |
if (length dor(my $name_alias = $h{'name_alias'}, '')) |
|
121
|
0 |
1 |
if defined $name_aliases{$name_alias} |
|
127
|
2 |
11 |
if not $override and $registered{$klass} |
|
139
|
4 |
2 |
unless $caller->can($k) |
|
145
|
1 |
1 |
unless $caller->can($k) |
|
150
|
3 |
14 |
$_[2] ? : |
|
156
|
0 |
37 |
unless $registered{$class} |
|
158
|
2 |
24 |
unless $class->_fields_hashref->{$_} |