1 package DBM::Deep::Sector::DBI;
6 use warnings FATAL => 'all';
8 use base qw( DBM::Deep::Sector );
10 use DBM::Deep::Sector::DBI::Reference ();
11 use DBM::Deep::Sector::DBI::Scalar ();
16 $self->engine->storage->delete_from(
17 $self->table, $self->offset,
28 my ($engine, $offset, $type) = @_;
30 if ( $type eq 'refs' ) {
31 return DBM::Deep::Sector::DBI::Reference->new({
36 elsif ( $type eq 'datas' ) {
37 my $sector = DBM::Deep::Sector::DBI::Scalar->new({
42 if ( $sector->{data_type} eq 'R' ) {
44 $engine, $sector->{value}, 'refs',
51 DBM::Deep->_throw_error( "'$offset': Don't know what to do with type '$type'" );