1 package DBM::Deep::Iterator::Index;
6 use warnings FATAL => 'all';
9 my $self = bless $_[1] => $_[0];
10 $self->{curr_index} = 0;
16 return $self->{curr_index} >= $self->{iterator}{engine}->hash_chars;
19 sub get_next_iterator {
24 return if $self->at_end;
25 $loc = $self->{sector}->get_entry( $self->{curr_index}++ );
28 return $self->{iterator}->get_sector_iterator( $loc );