File Coverage

lib/Class/DBI/Lite/Iterator.pm

Criterion	Covered	Total	%
statement	13	14	92.8
branch	2	2	100.0
condition			n/a
subroutine	6	7	85.7
pod	3	5	60.0
total	24	28	85.7

package Class::DBI::Lite::Iterator;

use strict;
use warnings 'all';

#==============================================================================
sub new
{
  my ($class, $data) = @_;

  return bless {
    data => $data,
    count => scalar(@$data),
    idx   => 0
  }, $class;
}# end new()


#==============================================================================
sub first
{
  $_[0]->{data}->[0];
}# end first()


#==============================================================================
sub next
{
  my $s = shift;
  return unless $s->{idx} < $s->{count};
  $s->{data}->[ $s->{idx}++ ];
}# end next()


#==============================================================================
sub count
{
  $_[0]->{count};
}# end count()


#==============================================================================
sub reset
{
  $_[0]->{idx} = 0;
}# end reset()

1;# return true:

__END__