1 package DBM::Deep::Engine::Sector::Index;
3 use base qw( DBM::Deep::Engine::Sector );
8 my $engine = $self->engine;
10 unless ( $self->offset ) {
11 my $leftover = $self->size - $self->base_size;
13 $self->{offset} = $engine->_request_index_sector( $self->size );
14 $engine->storage->print_at( $self->offset, $engine->SIG_INDEX ); # Sector type
15 # Skip staleness counter
16 $engine->storage->print_at( $self->offset + $self->base_size,
17 chr(0) x $leftover, # Zero-fill the rest
27 unless ( $self->{size} ) {
28 my $e = $self->engine;
29 $self->{size} = $self->base_size + $e->byte_size * $e->hash_chars;
34 sub free_meth { return '_add_free_index_sector' }
38 my $e = $self->engine;
40 for my $i ( 0 .. $e->hash_chars - 1 ) {
41 my $l = $self->get_entry( $i ) or next;
42 $e->_load_sector( $l )->free;
51 return $self->offset + $self->base_size + $idx * $self->engine->byte_size;
58 my $e = $self->engine;
60 DBM::Deep->_throw_error( "get_entry: Out of range ($idx)" )
61 if $idx < 0 || $idx >= $e->hash_chars;
65 $e->storage->read_at( $self->_loc_for( $idx ), $e->byte_size ),
73 my $e = $self->engine;
75 DBM::Deep->_throw_error( "set_entry: Out of range ($idx)" )
76 if $idx < 0 || $idx >= $e->hash_chars;
78 $self->engine->storage->print_at(
79 $self->_loc_for( $idx ),
80 pack( $StP{$e->byte_size}, $loc ),