File Coverage

blib/lib/FormValidator/Simple/Constraints.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 1 0.0
total 26 27 96.3


line stmt bran cond sub pod time code
1             package FormValidator::Simple::Constraints;
2 24     24   21861 use strict;
  24         45  
  24         1025  
3 24     24   1428 use base qw/FormValidator::Simple::ArrayList/;
  24         1533  
  24         5685  
4 24     24   572 use FormValidator::Simple::Constants;
  24         45  
  24         1519  
5 24     24   134 use FormValidator::Simple::Iterator;
  24         8293  
  24         1775  
6              
7             __PACKAGE__->mk_accessors(qw/needs_blank_check/);
8              
9             sub _init {
10 215     215   290 my $self = shift;
11 215         590 $self->needs_blank_check( FALSE );
12             }
13              
14             sub iterator {
15 102     102 0 733 my $self = shift;
16 102         582 return FormValidator::Simple::Constraint::Iterator->new($self);
17             }
18              
19             package FormValidator::Simple::Constraint::Iterator;
20 24     24   11607 use base qw/FormValidator::Simple::Iterator/;
  24         58  
  24         5912  
21              
22             1;
23             __END__