File Coverage

lib/Array/AsHash/Iterator.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	6	6	100.0
total	36	36	100.0

package Array::AsHash::Iterator;

use strict;
use warnings;

our $VERSION = '0.02';

#    my $iterator = Array::AsHash->new({array => \@array})->each;
sub new {
    my $class = shift;
    my $self = $class->_initialize(@_);
    return $self;
}

sub _initialize {
    my ( $class, $arg_for ) = @_;
    my $self = bless {
        parent_of    => $arg_for->{parent},
        iterator_for => $arg_for->{iterator},
    } => $class;
}

sub next {
    my $self = shift;
    return $self->{iterator_for}->();
}

sub first {
    my $self = shift;
    return $self->parent->first;
}

sub last {
    my $self = shift;
    return $self->parent->last;
}

sub reset_each {
    my $self = shift;
    return $self->parent->reset_each;
}

sub parent {
    my $self = shift;
    return $self->{parent_of};
}

1;
__END__