| blib/lib/Data/FormValidator/Results.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 82 | 112 | 73.2 |
| 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 | 18 | 0 | $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') |
| 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 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 72 | 0 | 149 | 0 | ref $proto || $proto |
| 365 | 222 | 0 | 61 | 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 | 0 | 8 | $profile{'constraints'}{$_} || $profile{'invalid'} |
| 1004 | 16 | 0 | 35 | $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) |