| line |
true |
false |
branch |
|
99
|
13 |
0 |
unless (exists $imported_validators{$package}) |
|
102
|
0 |
13 |
if ($@) |
|
114
|
81 |
0 |
if (defined $subref) |
|
124
|
7 |
0 |
if (defined $filter) |
|
138
|
7 |
0 |
if (defined $filter) |
|
154
|
6 |
0 |
if (defined $filter) |
|
181
|
1 |
311 |
if ($required_re and &$required_re($k)) |
|
185
|
6 |
306 |
if ($optional_re and &$optional_re($k)) |
|
192
|
0 |
0 |
if (defined $valid{$field}) |
|
193
|
0 |
0 |
if (ref $dependent_require_some eq 'CODE') { } |
|
197
|
0 |
0 |
if (ref $returned_require_some eq 'HASH') |
|
204
|
0 |
0 |
if (ref $dependent_require_some eq 'HASH') |
|
223
|
56 |
256 |
if (ref $valid{$field}) { } |
|
224
|
18 |
38 |
if (ref $valid{$field} eq 'ARRAY') |
|
226
|
1 |
34 |
unless defined $valid{$field}[$i] and length $valid{$field}[$i] and not $valid{$field}[$i] =~ /^\x00$/ |
|
229
|
2 |
16 |
unless grep {defined $_;} @{$valid{$field};} |
|
234
|
2 |
252 |
unless defined $valid{$field} and length $valid{$field} and not $valid{$field} =~ /^\x00$/ |
|
240
|
12 |
4 |
if (defined $valid{$field}) |
|
241
|
7 |
5 |
if (ref $deps eq 'HASH') { } |
|
|
4 |
1 |
elsif (ref $deps eq 'CODE') { } |
|
246
|
2 |
12 |
if (ref $valid{$field} eq 'ARRAY' and scalar @{$valid{$field};} == 1) { } |
|
253
|
7 |
7 |
if ($val_to_compare eq $key) |
|
282
|
6 |
6 |
if $valid{$field} |
|
284
|
6 |
0 |
if ($require_all) |
|
300
|
0 |
146 |
if ($dependency_re) |
|
303
|
0 |
0 |
if ($dependency_re->{$re}{'sub'}->($k)) |
|
306
|
0 |
0 |
if (ref $deps eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $deps eq 'CODE') { } |
|
312
|
0 |
0 |
if (ref $valid{$k} eq 'ARRAY' and scalar @{$valid{$k};} == 1) { } |
|
318
|
0 |
0 |
if ($val_to_compare eq $key) |
|
344
|
0 |
0 |
if (defined $valid{$field}) |
|
345
|
0 |
0 |
if (ref $dependent_optional eq 'CODE') { } |
|
377
|
2 |
1 |
if /$re/ |
|
384
|
145 |
1 |
unless $profile->{'defaults'} |
|
387
|
3 |
0 |
unless (exists $valid{$field}) |
|
388
|
1 |
2 |
if (ref $value and ref $value eq 'CODE') { } |
|
398
|
38 |
223 |
unless exists $valid{$field} |
|
406
|
2 |
1 |
$deps[0] =~ /^\d+$/ ? : |
|
408
|
3 |
8 |
if exists $valid{$dep} |
|
410
|
1 |
2 |
unless $enough_required_fields >= $num_fields_to_require |
|
428
|
3 |
143 |
if (defined $profile->{'untaint_regexp_map'} or defined $profile->{'untaint_constraint_fields'}) { } |
|
|
10 |
266 |
elsif (defined $profile->{'untaint_all_constraints'} and $profile->{'untaint_all_constraints'} == 1) { } |
|
430
|
3 |
0 |
if (defined $profile->{'untaint_constraint_fields'}) |
|
431
|
3 |
0 |
if (ref $profile->{'untaint_constraint_fields'} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($valid{$profile->{'untaint_constraint_fields'}}) { } |
|
442
|
0 |
3 |
if (defined $profile->{'untaint_regexp_map'}) |
|
444
|
0 |
0 |
if (ref $profile->{'untaint_regexp_map'} eq 'ARRAY') { } |
|
454
|
0 |
0 |
if $untaint_hash{$field} |
|
455
|
0 |
0 |
if $field =~ /$regex/ |
|
472
|
3 |
15 |
if ($profile->{'missing_optional_valid'} and $optional{$field} and not exists $valid{$field}) |
|
546
|
0 |
104 |
if defined $val |
|
548
|
52 |
52 |
if (defined $key) |
|
549
|
2 |
50 |
wantarray ? : |
|
553
|
1 |
51 |
wantarray ? : |
|
582
|
22 |
46 |
if defined $_[1] |
|
584
|
1 |
45 |
wantarray ? : |
|
618
|
13 |
35 |
if defined $field |
|
620
|
9 |
26 |
wantarray ? : |
|
650
|
2 |
2 |
wantarray ? : |
|
|
4 |
31 |
if defined $_[1] |
|
653
|
31 |
0 |
wantarray ? : |
|
686
|
1 |
16 |
if (ref $msgs eq 'CODE') { } |
|
697
|
0 |
16 |
if (defined $controls and ref $controls ne 'HASH') |
|
709
|
1 |
31 |
if (not defined $href->{'invalid_separator'} and defined $href->{'invalid_seperator'}) |
|
734
|
9 |
7 |
if ($self->has_invalid) |
|
744
|
6 |
10 |
if ($self->has_missing) |
|
753
|
12 |
4 |
unless ($self->success) |
|
754
|
3 |
9 |
if defined $profile{'any_errors'} |
|
801
|
26 |
34 |
if ($data) |
|
802
|
0 |
26 |
unless ref $data eq 'HASH' |
|
808
|
60 |
0 |
if ($field) { } |
|
824
|
1 |
205 |
if ($p{'as_hashref'}) { } |
|
857
|
4 |
12 |
unless defined $match |
|
858
|
5 |
7 |
$self->{'__UNTAINT_THIS'} ? : |
|
878
|
0 |
16 |
unless scalar @_ == 2 |
|
879
|
0 |
16 |
unless ref $href eq 'HASH' |
|
899
|
41 |
10 |
if (substr($re, 0, 1) eq '(') { } |
|
902
|
12 |
63 |
$force_method_p ? : |
|
904
|
5 |
70 |
if ($untaint_this and defined $match) { } |
|
917
|
0 |
10 |
$untaint_this ? : |
|
919
|
0 |
10 |
if ($force_method_p) { } |
|
925
|
0 |
10 |
if $@ |
|
935
|
0 |
24 |
unless $fmt =~ /%s/ |
|
946
|
436 |
495 |
unless defined $val |
|
949
|
228 |
267 |
if (ref $val eq 'ARRAY') { } |
|
951
|
221 |
7 |
grep(defined($_), @$val) ? : |
|
955
|
267 |
0 |
length $val ? : |
|
964
|
0 |
26 |
unless scalar @_ == 3 |
|
965
|
7 |
19 |
if (ref $valid->{$field} eq 'ARRAY') { } |
|
967
|
22 |
0 |
if defined $valid->{$field}[$i] |
|
971
|
19 |
0 |
if defined $valid->{$field} |
|
994
|
0 |
189 |
unless scalar @_ == 4 |
|
1000
|
46 |
143 |
unless ref $constraint_spec |
|
1003
|
51 |
138 |
if (ref $c->{'constraint'} eq 'HASH') |
|
1007
|
16 |
35 |
if $constraint_spec->{'constraint_method'} |
|
1011
|
22 |
167 |
if (ref $c->{'constraint'} eq 'Regexp' or $c->{'constraint'} =~ m[^\s*(/.+/|m(.).+\2)[cgimosx]*\s*$]) { } |
|
|
93 |
74 |
elsif (ref $c->{'constraint'} eq 'CODE') { } |
|
1021
|
27 |
0 |
unless ($c->{'name'} or ref $c->{'constraint'}) |
|
1026
|
3 |
71 |
if ($untaint_this) { } |
|
1029
|
0 |
3 |
if ($match_sub) { } |
|
|
2 |
1 |
elsif ($c->{'constraint'} =~ /^RE_/) { } |
|
1045
|
53 |
18 |
if (defined *{&qualify_to_ref($routine);}{'CODE'}) { } |
|
|
12 |
6 |
elsif (my $valid_sub = *{&qualify_to_ref('valid_' . $c->{'constraint'});}{'CODE'}) { } |
|
|
5 |
1 |
elsif ($c->{'constraint'} =~ /^RE_/) { } |
|
1084
|
0 |
191 |
unless scalar @_ == 4 |
|
1087
|
37 |
154 |
if (defined $c->{'params'}) { } |
|
1090
|
20 |
41 |
ref $fname ? : |
|
1097
|
103 |
88 |
if $c->{'is_method'} |
|
1120
|
0 |
191 |
unless scalar @_ == 4 |
|
1132
|
162 |
29 |
if (defined $match) |
|
1133
|
12 |
150 |
$untaint_this ? : |
|
1136
|
93 |
98 |
unless $success |
|
1154
|
46 |
292 |
if (&Scalar::Util::blessed($data) and $data->can('param')) { } |
|
|
292 |
0 |
elsif (ref $data eq 'HASH') { } |
|
1165
|
0 |
167 |
if ($data->isa('CGI::Simple')) { } |
|
1174
|
0 |
167 |
scalar @v > 1 ? : |
|
1217
|
4 |
5 |
if ref $_ |
|
1221
|
3 |
4 |
$self->get_current_constraint_value =~ qr/^$re$/ ? : |
|
1229
|
0 |
292 |
unless scalar @_ == 3 |
|
1231
|
0 |
292 |
unless $name =~ /^constraint(_method)?$/ |
|
1242
|
34 |
20 |
if (&$sub($key)) |
|
1246
|
2 |
32 |
if (ref $cur eq 'ARRAY') { } |
|
|
1 |
31 |
elsif ($cur) { } |
|
1257
|
0 |
34 |
if $profile->{'debug'} |
|
1295
|
5 |
171 |
unless exists $valid->{$field} |
|
1297
|
20 |
151 |
if ref $constraint_list eq 'ARRAY' |
|
1313
|
81 |
106 |
if $force_method_p |
|
1315
|
7 |
180 |
if ref $valid->{$field} eq 'ARRAY' |
|
1317
|
7 |
180 |
if ($is_value_list) { } |
|
1319
|
11 |
3 |
unless (exists $constraints_seen{\$c}) |
|
1327
|
4 |
7 |
if ($failed->{'failed'}) { } |
|
1332
|
0 |
7 |
if $untaint_this |
|
1344
|
89 |
91 |
if ($failed->{'failed'}) { } |
|
1348
|
12 |
79 |
if $untaint_this |
|
1353
|
85 |
84 |
if (@invalid_list) |
|
1357
|
14 |
71 |
$is_constraint_list ? : |