view release on metacpan or  search on metacpan

lib/Pithub/ResultSet.pm  view on Meta::CPAN

sub new {
    my ( $class, @array ) = @_;
    my $_array   = $array[0];
    my $iterator = {
        _current_index => 0,
        _length        => 0,
        _iteratee      => [],
        _iterated      => 0,
    };
    bless $iterator => $class;
    $iterator->_init( scalar @{$_array}, $_array );
    return $iterator;
}

sub _init {
    my ( $self, $length, $iteratee ) = @_;
    $self->{_current_index} = 0;
    $self->{_length}        = $length;
    $self->{_iteratee}      = $iteratee;
}