File Coverage

blib/lib/FormValidator/Simple/Iterator.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	0	3	0.0
total	24	27	88.8

package FormValidator::Simple::Iterator;
use strict;

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

sub _init {
    my ($self, $records) = @_;
    $self->{_index}   = 0;
    $self->{_records} = $records;
}

sub reset {
    my $self = shift;
    $self->{_index} = 0;
}

sub next {
    my $self = shift;
    return unless ($self->{_records}->records_count > $self->{_index});
    my $record = $self->{_records}->get_record_at($self->{_index});
    $self->{_index}++;
    return $record;
}

1;
__END__