| line |
true |
false |
branch |
|
76
|
7 |
56 |
if (exists $key_map->{$key}) { }
|
|
|
0 |
56 |
elsif (exists $method_map->{$key}) { }
|
|
78
|
0 |
7 |
unless my $spec_key = $key_map->{$key}
|
|
83
|
0 |
0 |
unless my $method = $method_map->{$key}
|
|
92
|
0 |
7 |
wantarray ? :
|
|
106
|
0 |
0 |
$meta ? :
|
|
|
0 |
0 |
defined $args{'indent'} ? :
|
|
109
|
0 |
0 |
defined $args{'inline'} ? :
|
|
110
|
0 |
0 |
defined $args{'inline'} ? :
|
|
118
|
0 |
0 |
if exists $hash{'key_columns'}
|
|
125
|
0 |
0 |
if length $name > $max_len
|
|
126
|
0 |
0 |
if length $name < $min_len or $min_len < 0
|
|
129
|
0 |
0 |
if (defined $name_padding and $name_padding > 0) { }
|
|
159
|
0 |
0 |
if ($attr =~ /^(?: id | name | method_name | method_code | auto_method_types |
deferred_make_method_args | parent )$/x)
|
|
165
|
0 |
0 |
$self->can($attr) ? :
|
|
167
|
0 |
0 |
unless (defined $val)
|
|
172
|
0 |
0 |
if $attr =~ /^_?share_db$/ and $self->share_db
|
|
174
|
0 |
0 |
if ($attr =~ /^_(share_db|key_columns)$/) { }
|
|
|
0 |
0 |
elsif ($attr eq 'method_name') { }
|
|
180
|
0 |
0 |
unless my $names = $self->{$attr}
|
|
185
|
0 |
0 |
if ($name ne $self->build_method_name_for_type($type))
|
|
192
|
0 |
0 |
unless ($custom)
|
|
202
|
0 |
0 |
if ($type eq $def_type)
|
|
209
|
0 |
0 |
if $found != @$def_types
|
|
213
|
0 |
0 |
unless $custom
|
|
226
|
0 |
0 |
unless ($object->isa($self->parent->class))
|
|
236
|
0 |
0 |
if ($ref eq 'ARRAY')
|
|
238
|
0 |
0 |
@{$related_objects;} ? :
|
|
241
|
0 |
0 |
$ref ? :
|