Branch Coverage

blib/lib/Data/FormValidator/Constraints.pm
Criterion Covered Total %
branch 75 150 50.0


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)) { }