1 package DBM::Deep::Iterator;
6 use warnings FATAL => 'all';
10 use DBM::Deep::Iterator::Index;
11 use DBM::Deep::Iterator::BucketList;
19 engine => $args->{engine},
20 base_offset => $args->{base_offset},
23 Scalar::Util::weaken( $self->{engine} );
28 sub reset { $_[0]{breadcrumbs} = [] }
30 sub get_sector_iterator {
34 my $sector = $self->{engine}->_load_sector( $loc )
37 if ( $sector->isa( 'DBM::Deep::Engine::Sector::Index' ) ) {
38 return DBM::Deep::Iterator::Index->new({
43 elsif ( $sector->isa( 'DBM::Deep::Engine::Sector::BucketList' ) ) {
44 return DBM::Deep::Iterator::BucketList->new({
50 DBM::Deep->_throw_error( "get_sector_iterator(): Why did $loc make a $sector?" );
57 my $crumbs = $self->{breadcrumbs};
58 my $e = $self->{engine};
62 # This will be a Reference sector
63 my $sector = $e->_load_sector( $self->{base_offset} )
64 # If no sector is found, thist must have been deleted from under us.
67 if ( $sector->staleness != $obj->_staleness ) {
71 my $loc = $sector->get_blist_loc
74 push @$crumbs, $self->get_sector_iterator( $loc );
77 warn "2: " . $obj->_dump_file;
85 my $iterator = $crumbs->[-1];
88 if ( $iterator->at_end ) {
93 if ( $iterator->isa( 'DBM::Deep::Iterator::Index' ) ) {
94 # If we don't have any more, it will be caught at the
96 if ( my $next = $iterator->get_next_iterator ) {
102 unless ( $iterator->isa( 'DBM::Deep::Iterator::BucketList' ) ) {
103 DBM::Deep->_throw_error(
104 "Should have a bucketlist iterator here - instead have $iterator"
108 # At this point, we have a BucketList iterator
109 my $key = $iterator->get_next_key;
110 if ( defined $key ) {
113 #XXX else { $iterator->set_to_end() } ?
115 # We hit the end of the bucketlist iterator, so redo
119 DBM::Deep->_throw_error( "get_next_key(): How did we get here?" );