| 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) |