| 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} ? : |