File Coverage

blib/lib/FormValidator/Simple/ArrayList.pm

Criterion	Covered	Total	%
statement	22	25	88.0
branch			n/a
condition			n/a
subroutine	7	9	77.7
pod	1	5	20.0
total	30	39	76.9

package FormValidator::Simple::ArrayList;
use strict;
use base qw/Class::Accessor::Fast/;
use FormValidator::Simple::Iterator;

__PACKAGE__->mk_accessors(qw/records/);

sub new {
    my $class = shift;
    my $self  = bless { }, $class;
    $self->records( [ ] );
    $self->_init(@_);
    return $self;
}

sub _init {
    my ($self, @args) = @_;
}

sub append {
    my ($self, $record) = @_;
    push @{ $self->records }, $record;
}

sub get_record_at {
    my ($self, $index) = @_;
    return $self->records->[$index];
}

sub records_count {
    my $self = shift;
    return scalar @{ $self->records };
}

sub iterator {
    my $self = shift;
    return FormValidator::Simple::Iterator->new($self);
}

1;
__END__