Branch Coverage

blib/lib/CGI/ValidOp/Object.pm
Criterion Covered Total %
branch 43 50 86.0


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 @_