Array-Iterator

 view release on metacpan or  search on metacpan

lib/Array/Iterator/Circular.pm  view on Meta::CPAN

16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
=cut
 
our $VERSION = '0.135';
 
our @ISA = qw(Array::Iterator);
 
sub _init {
    my ($self, @args) = @_;
    $self->{loop_counter} = 0;
    $self->SUPER::_init(@args);
}
 
# always return true, since
# we just keep looping
sub has_next { 1 }
 
sub next {
        my ($self) = @_;
    unless ($self->_current_index < $self->getLength()) {
        $self->_current_index = 0;



( run in 0.314 second using v1.01-cache-2.11-cpan-4e96b696675 )