1 package DBM::Deep::Sector::File;
6 use warnings FATAL => 'all';
8 use base qw( DBM::Deep::Sector );
10 use DBM::Deep::Sector::File::BucketList ();
11 use DBM::Deep::Sector::File::Index ();
12 use DBM::Deep::Sector::File::Null ();
13 use DBM::Deep::Sector::File::Reference ();
14 use DBM::Deep::Sector::File::Scalar ();
20 return $self->engine->SIG_SIZE + $STALE_SIZE;
23 sub free_meth { die "free_meth must be implemented in a child class" }
28 my $e = $self->engine;
30 $e->storage->print_at( $self->offset, $e->SIG_FREE );
31 # Skip staleness counter
32 $e->storage->print_at( $self->offset + $self->base_size,
33 chr(0) x ($self->size - $self->base_size),
36 my $free_meth = $self->free_meth;
37 $e->$free_meth( $self->offset, $self->size );
42 =head2 load( $offset )
44 This will instantiate and return the sector object that represents the data
51 my ($engine, $offset) = @_;
53 # Add a catch for offset of 0 or 1
54 return if !$offset || $offset <= 1;
56 my $type = $engine->storage->read_at( $offset, 1 );
57 return if $type eq chr(0);
59 if ( $type eq $engine->SIG_ARRAY || $type eq $engine->SIG_HASH ) {
60 return DBM::Deep::Sector::File::Reference->new({
66 # XXX Don't we need key_md5 here?
67 elsif ( $type eq $engine->SIG_BLIST ) {
68 return DBM::Deep::Sector::File::BucketList->new({
74 elsif ( $type eq $engine->SIG_INDEX ) {
75 return DBM::Deep::Sector::File::Index->new({
81 elsif ( $type eq $engine->SIG_NULL ) {
82 return DBM::Deep::Sector::File::Null->new({
88 elsif ( $type eq $engine->SIG_DATA ) {
89 return DBM::Deep::Sector::File::Scalar->new({
95 # This was deleted from under us, so just return and let the caller figure it out.
96 elsif ( $type eq $engine->SIG_FREE ) {
100 DBM::Deep->_throw_error( "'$offset': Don't know what to do with type '$type'" );