1 package DBM::Deep::Sector::DBI::Scalar;
4 use warnings FATAL => 'all';
6 use base qw( DBM::Deep::Sector::DBI );
13 my $engine = $self->engine;
14 unless ( $self->offset ) {
15 # my ($rows) = $self->engine->storage->write_to(
17 # ( map { $_ => $self->{$_} } qw( ref_id data_type key value class ) ),
21 my ($rows) = $self->engine->storage->read_from(
22 datas => $self->offset,
23 qw( data_type key value class ),
26 $self->{$_} = $rows->[0]{$_} for qw( data_type key value class );
42 $self->engine->storage->write_to(
43 datas => $args->{value}{offset},
44 ref_id => $self->offset,
47 value => $args->{value}{value},
48 class => $args->{value}{class},
51 $args->{value}->reload;