line |
!l |
l&&!r |
l&&r |
condition |
181
|
249 |
6 |
1 |
$required_re and &$required_re($k) |
185
|
245 |
5 |
6 |
$optional_re and &$optional_re($k) |
204
|
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$/ |
212
|
2 |
1 |
233 |
defined $valid{$field} and length $valid{$field} |
|
3 |
0 |
233 |
defined $valid{$field} and length $valid{$field} and not $valid{$field} =~ /^\x00$/ |
224
|
10 |
0 |
2 |
ref $valid{$field} eq 'ARRAY' and scalar @{$valid{$field};} == 1 |
292
|
2 |
0 |
1 |
ref $value and ref $value eq 'CODE' |
332
|
111 |
0 |
10 |
defined $profile->{'untaint_all_constraints'} and $profile->{'untaint_all_constraints'} == 1 |
376
|
237 |
13 |
0 |
$profile->{'missing_optional_valid'} and $optional{$field} |
|
8 |
3 |
2 |
$profile->{'missing_optional_valid'} and $optional{$field} and not exists $valid{$field} |
601
|
0 |
16 |
0 |
defined $controls and ref $controls ne 'HASH' |
613
|
1 |
30 |
1 |
not defined $href->{'invalid_separator'} and defined $href->{'invalid_seperator'} |
808
|
70 |
0 |
5 |
$untaint_this and defined $match |
1058
|
285 |
0 |
0 |
&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}'") |
319
|
68 |
56 |
$profile->{'constraints'} ||= {} |
324
|
57 |
67 |
$profile->{'constraint_methods'} ||= {} |
388
|
0 |
122 |
$self->{'valid'} ||= {} |
589
|
15 |
2 |
$self->{'profile'}{'msgs'} || {} |
600
|
3 |
13 |
shift() || {} |
607
|
3 |
13 |
$self->{'msgs'} ||= {} |
608
|
14 |
2 |
$self->{'profile'}{'msgs'} ||= {} |
703
|
0 |
0 |
$self->{'__META'} ||= {} |
797
|
48 |
245 |
shift() || (return undef) |
837
|
24 |
0 |
$fmt ||= '* %s' |
940
|
2 |
0 |
eval 'sub { &_create_regexp_common_constraint(@_)}' || die("could not create Regexp::Common constraint: $@") |
962
|
5 |
0 |
eval 'sub { return defined &_create_regexp_common_constraint(@_)}' || die("could not create Regexp::Common constraint: $@") |
1124
|
7 |
0 |
&$re_name(-'keep', 1, @params) || die('no matching Regexp::Common routine found') |
1202
|
1 |
125 |
$untaint_all || $untaint_href->{$field} || 0 |
line |
l |
!l&&r |
!l&&!r |
condition |
72
|
0 |
127 |
0 |
ref $proto || $proto |
269
|
182 |
0 |
49 |
exists $optional{$_} || exists $required{$_} || exists $require_some{$_} |
332
|
0 |
3 |
121 |
defined $profile->{'untaint_regexp_map'} or defined $profile->{'untaint_constraint_fields'} |
412
|
12 |
5 |
10 |
$self->has_invalid || $self->has_missing |
642
|
10 |
0 |
8 |
$profile{'constraints'}{$_} || $profile{'invalid'} |
908
|
5 |
0 |
33 |
$constraint_spec->{'constraint_method'} || $constraint_spec->{'constraint'} |
915
|
21 |
1 |
137 |
ref $c->{'constraint'} eq 'Regexp' or $c->{'constraint'} =~ m[^\s*(/.+/|m(.).+\2)[cgimosx]*\s*$] |
925
|
45 |
0 |
16 |
$c->{'name'} or ref $c->{'constraint'} |
926
|
0 |
16 |
0 |
$c->{'name'} ||= $c->{'constraint'} |
1070
|
0 |
0 |
0 |
$data->upload($k) || $data->param($k) |