Condition Coverage

blib/lib/Data/FormValidator/Results.pm
Criterion Covered Total %
condition 84 112 75.0


and 3 conditions

line !l l&&!r l&&r condition
181 305 6 1 $required_re and &$required_re($k)
185 301 5 6 $optional_re and &$optional_re($k)
226 3 1 34 defined $valid{$field}[$i] and length $valid{$field}[$i]
4 0 34 defined $valid{$field}[$i] and length $valid{$field}[$i] and not $valid{$field}[$i] =~ /^\x00$/
234 2 2 252 defined $valid{$field} and length $valid{$field}
4 0 252 defined $valid{$field} and length $valid{$field} and not $valid{$field} =~ /^\x00$/
246 12 0 2 ref $valid{$field} eq 'ARRAY' and scalar @{$valid{$field};} == 1
312 0 0 0 ref $valid{$k} eq 'ARRAY' and scalar @{$valid{$k};} == 1
388 2 0 1 ref $value and ref $value eq 'CODE'
428 133 0 10 defined $profile->{'untaint_all_constraints'} and $profile->{'untaint_all_constraints'} == 1
472 288 11 7 $profile->{'missing_optional_valid'} and $optional{$field}
11 4 3 $profile->{'missing_optional_valid'} and $optional{$field} and not exists $valid{$field}
697 0 16 0 defined $controls and ref $controls ne 'HASH'
709 1 30 1 not defined $href->{'invalid_separator'} and defined $href->{'invalid_seperator'}
904 70 0 5 $untaint_this and defined $match
1154 292 0 46 &Scalar::Util::blessed($data) and $data->can('param')

or 2 conditions

line l !l condition
126 6 1 (ref $filter eq 'CODE' ? $filter : *{&qualify_to_ref("filter_$filter");}{'CODE'}) || die("No filter found named: '${filter}'")
140 6 1 (ref $filter eq 'CODE' ? $filter : *{&qualify_to_ref("filter_$filter");}{'CODE'}) || die("No filter found named '${filter}'")
156 5 1 (ref $filter eq 'CODE' ? $filter : *{&qualify_to_ref("filter_$filter");}{'CODE'}) || die("No filter found named '${filter}'")
415 80 66 $profile->{'constraints'} ||= {}
420 69 77 $profile->{'constraint_methods'} ||= {}
484 0 144 $self->{'valid'} ||= {}
685 15 2 $self->{'profile'}{'msgs'} || {}
696 3 13 shift() || {}
703 3 13 $self->{'msgs'} ||= {}
704 14 2 $self->{'profile'}{'msgs'} ||= {}
799 51 9 $self->{'__META'} ||= {}
893 51 289 shift() || (return undef)
933 24 0 $fmt ||= '* %s'
1036 2 0 eval 'sub { &_create_regexp_common_constraint(@_)}' || die("could not create Regexp::Common constraint: $@")
1058 5 0 eval 'sub { return defined &_create_regexp_common_constraint(@_)}' || die("could not create Regexp::Common constraint: $@")
1220 7 0 &$re_name('-keep', 1, @params) || die('no matching Regexp::Common routine found')
1298 1 151 $untaint_all || $untaint_href->{$field} || 0

or 3 conditions

line l !l&&r !l&&!r condition
72 0 149 0 ref $proto || $proto
365 222 3 58 exists $optional{$_} || exists $required{$_} || exists $require_some{$_}
428 0 3 143 defined $profile->{'untaint_regexp_map'} or defined $profile->{'untaint_constraint_fields'}
508 12 5 10 $self->has_invalid || $self->has_missing
738 10 8 0 $profile{'constraints'}{$_} || $profile{'invalid'}
1004 16 35 0 $constraint_spec->{'constraint_method'} || $constraint_spec->{'constraint'}
1011 21 1 167 ref $c->{'constraint'} eq 'Regexp' or $c->{'constraint'} =~ m[^\s*(/.+/|m(.).+\2)[cgimosx]*\s*$]
1021 47 0 27 $c->{'name'} or ref $c->{'constraint'}
1022 0 27 0 $c->{'name'} ||= $c->{'constraint'}
1166 0 0 0 $data->upload($k) || $data->param($k)