1 package DBM::Deep::Engine::Sector::Null;
6 use warnings FATAL => 'all';
8 use DBM::Deep::Engine::Sector::Data;
9 our @ISA = qw( DBM::Deep::Engine::Sector::Data );
11 sub type { $_[0]{engine}->SIG_NULL }
18 my $engine = $self->engine;
20 unless ( $self->offset ) {
21 $self->{offset} = $engine->_request_data_sector( $self->size );
23 my $string = chr(0) x $self->size;
25 substr( $string, 0, 1, $self->type );
26 substr( $string, $self->base_size, $engine->byte_size + 1,
27 pack( $engine->StP($engine->byte_size), 0 ) # Chain loc
28 . pack( $engine->StP(1), $self->data_length ), # Data length
31 $engine->storage->print_at( $self->offset, $string );