File Coverage

blib/lib/M3/ServerView/ResultSet.pm

Criterion	Covered	Total	%
statement	27	29	93.1
branch	5	6	83.3
condition			n/a
subroutine	9	10	90.0
pod	6	6	100.0
total	47	51	92.1

package M3::ServerView::ResultSet;

use strict;
use warnings;

use Carp qw(croak);

use Scalar::Util qw(refaddr);

sub new {
    my ($pkg, $records) = @_;

    $records = [] unless defined $records;

    croak "Not an array reference" unless ref $records eq "ARRAY";

    my $self = bless $records, $pkg;
    $self->reset();

    return $self;
}

{
    my %Position;
    sub reset {
        my ($self) = @_;
        $Position{refaddr $self} = 0;
    }

    sub next {
        my ($self) = @_;
        return if $Position{refaddr $self} >= @$self;
        return $self->[$Position{refaddr $self}++];
    }
}

sub all {
    my ($self) = @_;
    return @$self;
}

sub first {
    my ($self) = @_;
    return $self->[0];
}

sub count {
    my ($self) = @_;
    return scalar @$self;
}

1;
__END__