line |
true |
false |
branch |
50
|
732 |
61 |
unless ($func eq 'cc_number') |
70
|
0 |
0 |
unless &Scalar::Util::blessed($dfv) and $dfv->can('name_this') |
|
0 |
0 |
unless $dfv->get_current_constraint_name |
|
0 |
0 |
unless &Scalar::Util::blessed($dfv) and $dfv->can('name_this') |
|
0 |
0 |
unless $dfv->get_current_constraint_name |
|
0 |
0 |
unless &Scalar::Util::blessed($dfv) and $dfv->can('name_this') |
|
0 |
0 |
unless $dfv->get_current_constraint_name |
|
0 |
1 |
unless &Scalar::Util::blessed($dfv) and $dfv->can('name_this') |
|
1 |
0 |
unless $dfv->get_current_constraint_name |
|
0 |
0 |
unless &Scalar::Util::blessed($dfv) and $dfv->can('name_this') |
|
0 |
0 |
unless $dfv->get_current_constraint_name |
|
0 |
0 |
unless &Scalar::Util::blessed($dfv) and $dfv->can('name_this') |
|
0 |
0 |
unless $dfv->get_current_constraint_name |
|
0 |
0 |
unless &Scalar::Util::blessed($dfv) and $dfv->can('name_this') |
|
0 |
0 |
unless $dfv->get_current_constraint_name |
|
0 |
0 |
unless &Scalar::Util::blessed($dfv) and $dfv->can('name_this') |
|
0 |
0 |
unless $dfv->get_current_constraint_name |
|
0 |
0 |
unless &Scalar::Util::blessed($dfv) and $dfv->can('name_this') |
|
0 |
0 |
unless $dfv->get_current_constraint_name |
|
0 |
0 |
unless &Scalar::Util::blessed($dfv) and $dfv->can('name_this') |
|
0 |
0 |
unless $dfv->get_current_constraint_name |
|
0 |
0 |
unless &Scalar::Util::blessed($dfv) and $dfv->can('name_this') |
|
0 |
0 |
unless $dfv->get_current_constraint_name |
|
0 |
0 |
unless &Scalar::Util::blessed($dfv) and $dfv->can('name_this') |
|
0 |
0 |
unless $dfv->get_current_constraint_name |
71
|
0 |
732 |
if $@ |
157
|
1 |
129 |
if (grep {/^:regexp_common$/;} @_) |
169
|
9 |
0 |
unless $dfv->get_current_constraint_name |
239
|
34 |
0 |
if (defined $prefix and $prefix eq 'valid_') |
282
|
0 |
8 |
unless (defined $min and defined $max) |
287
|
7 |
1 |
unless $dfv->get_current_constraint_name |
288
|
5 |
3 |
if length $value > $max or length $value < $min |
297
|
0 |
6 |
unless defined $max |
300
|
5 |
1 |
unless $dfv->get_current_constraint_name |
301
|
4 |
2 |
if length $value > $max |
310
|
0 |
5 |
unless defined $min |
313
|
4 |
0 |
unless $dfv->get_current_constraint_name |
314
|
2 |
2 |
if length $value < $min |
338
|
2 |
0 |
unless $dfv->get_current_constraint_name |
344
|
0 |
2 |
ref $data->{$other_field} ? : |
376
|
3 |
0 |
if (defined $value and ref $value eq 'ARRAY') { } |
|
0 |
0 |
elsif ($size == 1) { } |
408
|
0 |
2 |
unless $min and $max |
415
|
2 |
0 |
if (ref $value eq 'ARRAY') { } |
420
|
1 |
1 |
$num_values >= $min && $num_values <= $max ? : |
425
|
0 |
0 |
if ($min <= 1 and $max >= 1) { } |
457
|
11 |
27 |
if ($valid_email = 'Email::Valid'->address($in_email) and $valid_email eq $in_email) { } |
485
|
0 |
4 |
if ($match = match_state(@_)) { } |
502
|
2 |
9 |
if ($state =~ /\b($val)\b/i) { } |
517
|
4 |
6 |
if ($province =~ /\b($val)\b/i) { } |
532
|
2 |
2 |
if ($match = match_zip(@_)) { } |
550
|
2 |
4 |
if ($val =~ /^([ABCEGHJKLMNPRSTVXYabceghjklmnprstvxy][_\W]*\d[_\W]*[A-Za-z][_\W]*[- ]?[_\W]*\d[_\W]*[A-Za-z][_\W]*\d[_\W]*)$/) { } |
565
|
6 |
6 |
if ($val =~ /^(\s*\d{5}(?:[-]\d{4})?\s*)$/) { } |
581
|
4 |
2 |
if ($val =~ /^((?:\D*\d\D*){6,})$/) { } |
597
|
2 |
3 |
if ($val =~ /^((?:\D*\d\D*){7,})$/) { } |
629
|
0 |
1 |
unless $attrs and ref $attrs eq 'HASH' and exists $attrs->{'fields'} and ref $attrs->{'fields'} eq 'ARRAY' |
632
|
0 |
1 |
unless $cc_type_field |
652
|
0 |
28 |
if length $the_card == 0 |
655
|
0 |
28 |
unless $card_type =~ /^[admv]/i |
657
|
2 |
6 |
if $card_type =~ /^v/i and substr($the_card, 0, 1) ne '4' or $card_type =~ /^m/i and substr($the_card, 0, 1) ne '5' and substr($the_card, 0, 1) ne '2' or $card_type =~ /^d/i and substr($the_card, 0, 4) ne '6011' or $card_type =~ /^a/i and substr($the_card, 0, 2) ne '34' and substr($the_card, 0, 2) ne '37' |
666
|
0 |
24 |
unless $the_card =~ /^\d+$/ |
670
|
0 |
4 |
if $digit == 3 and $index != 14 or $digit == 4 and $index != 12 and $index != 15 or $digit == 5 and $index != 15 or $digit == 6 and $index != 13 and $index != 15 |
681
|
50 |
304 |
$product > 9 ? : |
685
|
22 |
2 |
if $the_sum |
688
|
18 |
6 |
if ($the_sum == substr($the_card, -1)) { } |
689
|
18 |
0 |
if ($orig_card =~ /^([\d\s]*)$/) { } |
709
|
2 |
2 |
unless $month =~ /^(\d+)$/ |
712
|
0 |
2 |
unless $year =~ /^(\d+)$/ |
715
|
0 |
2 |
if $month < 1 or $month > 12 |
716
|
2 |
0 |
$year < 70 ? : |
|
2 |
0 |
if $year < 1900 |
719
|
0 |
2 |
if $year < $now[5] or $year == $now[5] and $month <= $now[4] |
733
|
2 |
2 |
if ($val =~ /^([MVAD].*)$/i) { } |
750
|
4 |
2 |
if ($val =~ /^((\d+)\.(\d+)\.(\d+)\.(\d+))$/) { } |
751
|
3 |
1 |
if ($2 >= 0 and $2 <= 255 and ($3 >= 0 and $3 <= 255) and ($4 >= 0 and $4 <= 255) and ($5 >= 0 and $5 <= 255)) { } |