File Coverage

blib/lib/Lingua/ZH/CCDICT/ResultSet/Array.pm

Criterion	Covered	Total	%
statement	15	22	68.1
branch	0	2	0.0
condition			n/a
subroutine	5	6	83.3
pod	2	3	66.6
total	22	33	66.6

package Lingua::ZH::CCDICT::ResultSet::Array;

use strict;
use warnings;

use base 'Lingua::ZH::CCDICT::ResultSet';


sub new
{
    my $class = shift;
    my %p = @_;

    return bless { index => 0,
                   array => $p{array},
                 }, $class;
}

sub next
{
    my $self = shift;

    my $index = $self->{index};

    unless ( exists $self->{array}[$index] )
    {
        $self->{index} = 0;

        return;
    }

    $self->{index}++;

    return $self->{array}[$index];
}

sub all
{
    my $self = shift;

    return @{ $self->{array} };
}


1;

__END__