line |
true |
false |
branch |
100
|
0 |
1 |
if $args->{'fields'} |
167
|
0 |
0 |
unless $fields and ref $fields |
171
|
0 |
0 |
ref $fields eq 'ARRAY' ? : |
174
|
0 |
0 |
if (not ref $fdata) { } |
185
|
0 |
0 |
if $values and $values->{$name} |
205
|
0 |
0 |
unless $fields |
208
|
0 |
0 |
if $args->{'submit_name'} |
213
|
0 |
0 |
if (ref $fields eq "HASH") |
237
|
0 |
0 |
if ($self->{'submit_name'}) |
240
|
0 |
0 |
$cgi->param($self->{'submit_name'}) || $cgi->param($self->{'submit_name'} . '.x') || $cgi->param($self->{'submit_name'} . '.y') ? : |
260
|
0 |
0 |
if defined $cgivalue |
265
|
0 |
0 |
if (defined $cgivalue and not $dont_sanitize) |
271
|
0 |
0 |
if defined $fdata->{'phase'} and $phase < $fdata->{'phase'} |
274
|
0 |
0 |
unless defined $value |
275
|
0 |
0 |
unless ($have_cgivalues) |
276
|
0 |
0 |
unless defined $value |
277
|
0 |
0 |
unless defined $value |
283
|
0 |
0 |
unless defined $value |
291
|
0 |
0 |
if (not length $value and $fdata->{'required'}) { } |
|
0 |
0 |
elsif ($fdata->{'maxlength'} and length $value > $fdata->{'maxlength'}) { } |
|
0 |
0 |
elsif ($fdata->{'minlength'} and length $value and length $value < $fdata->{'minlength'}) { } |
|
0 |
0 |
elsif ($style eq 'text') { } |
|
0 |
0 |
elsif ($style eq 'textarea') { } |
|
0 |
0 |
elsif ($style eq 'file') { } |
|
0 |
0 |
elsif ($style eq 'email') { } |
|
0 |
0 |
elsif ($style eq 'usphone') { } |
|
0 |
0 |
elsif ($style eq 'phone') { } |
|
0 |
0 |
elsif ($style eq 'int' or $style eq 'integer' or $style eq 'number') { } |
|
0 |
0 |
elsif ($style eq 'real') { } |
|
0 |
0 |
elsif ($style eq 'password') { } |
|
0 |
0 |
elsif ($style eq 'country') { } |
|
0 |
0 |
elsif ($style eq 'usstate' or $style eq 'uscontst') { } |
|
0 |
0 |
elsif ($style eq 'cctype') { } |
|
0 |
0 |
elsif ($style eq 'ccnum') { } |
|
0 |
0 |
elsif ($style eq 'month') { } |
|
0 |
0 |
elsif ($style eq 'year') { } |
|
0 |
0 |
elsif ($style eq 'checkbox') { } |
|
0 |
0 |
elsif ($style eq 'selection') { } |
308
|
0 |
0 |
unless ($value) |
313
|
0 |
0 |
if (length $value and not $value =~ m[^[\w\.\+/\$\%\&\`{}'=-]+\@([a-z0-9-]+\.)+[a-z]+$]i) |
318
|
0 |
0 |
unless $fdata->{'maxlength'} |
319
|
0 |
0 |
if (length $value) |
321
|
0 |
0 |
if (length $value == 7) { } |
|
0 |
0 |
elsif (length $value == 11) { } |
|
0 |
0 |
elsif (length $value != 10) { } |
325
|
0 |
0 |
if (substr($value, 0, 1) ne 1) |
338
|
0 |
0 |
unless $fdata->{'maxlength'} |
339
|
0 |
0 |
if (length $value) |
346
|
0 |
0 |
if (length $p < 10) { } |
|
0 |
0 |
elsif (length $p == 10) { } |
|
0 |
0 |
elsif (length $p > 13) { } |
356
|
0 |
0 |
unless ($newerr) |
358
|
0 |
0 |
if $e |
363
|
0 |
0 |
if (length $value) |
364
|
0 |
0 |
if ($value =~ /^-?[\d,']+$/) { } |
366
|
0 |
0 |
if (defined $fdata->{'minvalue'} and $value < $fdata->{'minvalue'}) |
370
|
0 |
0 |
if (defined $fdata->{'maxvalue'} and $value > $fdata->{'maxvalue'}) |
381
|
0 |
0 |
if (length $value) |
382
|
0 |
0 |
if ($value =~ /^-?[\d,'\.]+$/) { } |
384
|
0 |
0 |
if (defined $fdata->{'minvalue'} and $value < $fdata->{'minvalue'}) |
388
|
0 |
0 |
if (defined $fdata->{'maxvalue'} and $value > $fdata->{'maxvalue'}) |
399
|
0 |
0 |
if (length $value and $fdata->{'pair'} and $value ne $cgi->param($fdata->{'pair'})) |
409
|
0 |
0 |
if $match |
411
|
0 |
0 |
if (length $value and not $match) |
416
|
0 |
0 |
$style eq 'usstate' ? : |
422
|
0 |
0 |
if $match |
424
|
0 |
0 |
if (length $value and not $match) |
433
|
0 |
0 |
if $match |
435
|
0 |
0 |
if (length $value and not $match) |
440
|
0 |
0 |
if (length $value) |
441
|
0 |
0 |
$fdata->{'pair'} ? : |
446
|
0 |
0 |
if (length $value) |
448
|
0 |
0 |
if ($value < 1 or $value > 12) |
454
|
0 |
0 |
if ($fdata->{'minyear'} and $fdata->{'maxyear'}) { } |
|
0 |
0 |
elsif (length $value) { } |
457
|
0 |
0 |
if (length $value) |
459
|
0 |
0 |
if ($value < $minyear) { } |
|
0 |
0 |
elsif ($value > $maxyear) { } |
471
|
0 |
0 |
if ($value < 1900 or $value > 2099) |
484
|
0 |
0 |
if ($have_cgivalues) { } |
485
|
0 |
0 |
defined $fdata->{'newvalue'} ? : |
|
0 |
0 |
(defined $fdata->{'newvalue'} ? $fdata->{'newvalue'} : $cgivalue) ? : |
488
|
0 |
0 |
defined $fdata->{'value'} ? : |
|
0 |
0 |
(defined $fdata->{'value'} ? $fdata->{'value'} : $fdata->{'default'}) ? : |
492
|
0 |
0 |
if (length $value) |
494
|
0 |
0 |
if (ref $opt eq 'HASH') { } |
|
0 |
0 |
elsif (ref $opt eq 'ARRAY') { } |
495
|
0 |
0 |
unless (defined $opt->{$value}) |
502
|
0 |
0 |
unless defined $$opt[$i + 1] |
503
|
0 |
0 |
if ($opt->[$i] eq $value) |
508
|
0 |
0 |
unless ($found) |
523
|
0 |
0 |
if ($newerr and not $have_submit && $have_cgivalues) |
530
|
0 |
0 |
if ($newerr) { } |
542
|
0 |
0 |
defined $value ? : |
545
|
0 |
0 |
$fdata->{'required'} ? : |
556
|
0 |
0 |
if ($have_submit and $have_cgivalues and not $errstr) |
558
|
0 |
0 |
if (@rc < 2) { } |
|
0 |
0 |
elsif (scalar(@rc) % 2 == 0) { } |
564
|
0 |
0 |
unless $e |
566
|
0 |
0 |
if ($fname) { } |
570
|
0 |
0 |
if ($fdata->{'errstr'}) { } |
571
|
0 |
0 |
$fdata->{'errstr'} =~ /\.\s*$/ ? : |
578
|
0 |
0 |
if $errstr |
582
|
0 |
0 |
if $errstr |
583
|
0 |
0 |
if $errstr |
598
|
0 |
0 |
unless ($have_submit and $have_cgivalues) |
621
|
0 |
0 |
if ($style eq 'country') { } |
|
0 |
0 |
elsif ($style eq 'usstate' or $style eq 'uscontst') { } |
|
0 |
0 |
elsif ($style eq 'cctype') { } |
|
0 |
0 |
elsif ($style eq 'month') { } |
|
0 |
0 |
elsif ($style eq 'year' and not $fdata->{'maxlength'} and $fdata->{'minyear'} and $fdata->{'maxyear'}) { } |
|
0 |
0 |
elsif ($style eq 'checkbox') { } |
|
0 |
0 |
elsif ($style eq 'selection') { } |
|
0 |
0 |
elsif ($style eq 'text' or $style eq 'phone' or $style eq 'usphone' or $style eq 'ccnum' or $style eq 'email' or $style eq 'year' or $style eq 'number' or $style eq 'int' or $style eq 'integer' or $style eq 'real') { } |
|
0 |
0 |
elsif ($style eq 'textarea') { } |
|
0 |
0 |
elsif ($style eq 'file') { } |
|
0 |
0 |
elsif ($style eq 'password') { } |
630
|
0 |
0 |
$style eq 'usstate' ? : |
671
|
0 |
0 |
$value ? : |
722
|
0 |
0 |
if ($seloptions) |
728
|
0 |
0 |
unless defined $v and length $v |
729
|
0 |
0 |
unless defined $t |
731
|
0 |
0 |
unless ($used_selected) |
732
|
0 |
0 |
$selcompare ? : |
733
|
0 |
0 |
if ($equal) |
745
|
0 |
0 |
$sel ? : |
750
|
0 |
0 |
if (ref $seloptions eq 'HASH') { } |
|
0 |
0 |
elsif (ref $seloptions eq 'ARRAY') { } |
776
|
0 |
0 |
unless ($has_empty) |
801
|
0 |
0 |
if (not $have_submit && $have_cgivalues or $errstr or $keep_form) |
804
|
0 |
0 |
if ($errstr and $have_cgivalues) |
819
|
0 |
0 |
unless $keep_form and not $errstr and $have_cgivalues and $have_submit |
845
|
0 |
0 |
if (ref $fields eq 'ARRAY') { } |
847
|
0 |
0 |
if $fdata->{'name'} eq $name |
851
|
0 |
0 |
if $fields->{$name} |
854
|
0 |
0 |
if $soft_failure |
873
|
0 |
0 |
if (ref $fields eq 'ARRAY') { } |
891
|
0 |
0 |
if ($self->{'form_ok'}) |
906
|
0 |
0 |
if ($self->{'check_form'}) |
927
|
0 |
0 |
if ($self->{'pre_check_form'}) |
1210
|
0 |
0 |
if $st =~ /^AK/ |
1211
|
0 |
0 |
if $st =~ /^AS/ |
1212
|
0 |
0 |
if $st =~ /^FM/ |
1213
|
0 |
0 |
if $st =~ /^GU/ |
1214
|
0 |
0 |
if $st =~ /^HI/ |
1215
|
0 |
0 |
if $st =~ /^MH/ |
1216
|
0 |
0 |
if $st =~ /^MP/ |
1217
|
0 |
0 |
if $st =~ /^VI/ |
1342
|
0 |
4 |
if (length $number < 13) |
1351
|
57 |
3 |
$weight < 10 ? : |
1353
|
0 |
4 |
if (substr($number, -1) ne (10 - $sum % 10) % 10) |
1363
|
1 |
3 |
if ($number =~ /^(?:34|37)/) { } |
|
3 |
0 |
elsif ($number =~ /^4/) { } |
|
0 |
0 |
elsif ($number =~ /^5/) { } |
|
0 |
0 |
elsif ($number =~ /^6/) { } |
1386
|
4 |
0 |
if ($reqlen) |
1387
|
1 |
3 |
unless scalar grep({length $number == $_;} @$reqlen) |
1393
|
0 |
3 |
if ($type and not lc($type) =~ /$realtype/) |
1399
|
3 |
0 |
if $args->{'validated'} |
1400
|
3 |
0 |
if $args->{'typecode'} |
1411
|
0 |
0 |
if (substr($year, 0, 1) eq '+') { } |
|
0 |
0 |
elsif (substr($year, 0, 1) eq '-') { } |
|
0 |
0 |
elsif ($year < 20) { } |
|
0 |
0 |
elsif ($year < 100) { } |
1442
|
0 |
1 |
if ($self->can("Tx_translate")) |
1449
|
0 |
0 |
exists $values->{$1} ? : |