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 ();
19 $self->engine->storage->delete_from(
20 $self->table, $self->offset,
31 my ($engine, $offset, $type) = @_;
33 if ( $type eq 'refs' ) {
34 return DBM::Deep::Sector::DBI::Reference->new({
39 elsif ( $type eq 'datas' ) {
40 my $sector = DBM::Deep::Sector::DBI::Scalar->new({
45 if ( $sector->{data_type} eq 'R' ) {
47 $engine, $sector->{value}, 'refs',
54 DBM::Deep->_throw_error( "'$offset': Don't know what to do with type '$type'" );