line |
true |
false |
branch |
43
|
2 |
15 |
unless defined $name |
44
|
2 |
13 |
unless $args |
45
|
2 |
11 |
unless ref $args eq 'HASH' |
53
|
0 |
33 |
if ($arg =~ /^-/) { } |
91
|
2 |
61 |
unless defined $args and ref $args eq 'HASH' |
93
|
6 |
55 |
unless defined $$args{'name'} and exists $$args{'value'} |
97
|
36 |
19 |
unless $$args{'name'} =~ /^([^\[]+?)\[(\d+?)\]\[([^\]]+?)\]$/ |
101
|
0 |
38 |
unless (defined $param_name and defined $index and defined $key) |
102
|
0 |
51 |
defined $_ ? : |
105
|
2 |
36 |
unless $param_name eq $self->name |
108
|
0 |
36 |
unless (defined $$self{'_param_template'}{$key}) |
142
|
2 |
10 |
unless defined $args and ref $args eq 'HASH' |
161
|
4 |
82 |
unless (exists $$object{$template_name}) |
169
|
8 |
78 |
if (scalar grep($param_name, @{$self->fields_required;}) and not scalar grep('required', @{$$object{$param_name}{'checks'};})) |
188
|
10 |
18 |
if $$self{'_validated'} |
191
|
2 |
16 |
if $self->min_objects gt $self->max_objects and $self->max_objects gt 0 |
211
|
2 |
14 |
if $self->min_objects and $self->min_objects gt @{$$self{'_objects'};} |
214
|
2 |
14 |
if $self->max_objects and $self->max_objects lt @{$$self{'_objects'};} |
260
|
0 |
14 |
if ($self->construct_object) { } |
261
|
0 |
0 |
defined $$object{$_}->value ? : |
277
|
64 |
2 |
defined $$object{$_}->value ? : |
297
|
21 |
52 |
if defined $_[0] |
306
|
21 |
50 |
if defined $_[0] |
314
|
13 |
90 |
if defined $_[0] |
322
|
11 |
14 |
if @_ |