| 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 |
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 |
|
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' 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' |
|
665
|
0 |
24 |
unless $the_card =~ /^\d+$/ |
|
669
|
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 |
|
680
|
50 |
304 |
$product > 9 ? : |
|
684
|
22 |
2 |
if $the_sum |
|
687
|
18 |
6 |
if ($the_sum == substr($the_card, -1)) { } |
|
688
|
18 |
0 |
if ($orig_card =~ /^([\d\s]*)$/) { } |
|
708
|
2 |
2 |
unless $month =~ /^(\d+)$/ |
|
711
|
0 |
2 |
unless $year =~ /^(\d+)$/ |
|
714
|
0 |
2 |
if $month < 1 or $month > 12 |
|
715
|
2 |
0 |
$year < 70 ? : |
|
|
2 |
0 |
if $year < 1900 |
|
718
|
0 |
2 |
if $year < $now[5] or $year == $now[5] and $month <= $now[4] |
|
732
|
2 |
2 |
if ($val =~ /^([MVAD].*)$/i) { } |
|
749
|
4 |
2 |
if ($val =~ /^((\d+)\.(\d+)\.(\d+)\.(\d+))$/) { } |
|
750
|
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)) { } |