/usr/share/perl5/DBM/Deep/Sector/DBI/Scalar.pm is in libdbm-deep-perl 2.0002-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | package DBM::Deep::Sector::DBI::Scalar;
use strict;
use warnings FATAL => 'all';
use base qw( DBM::Deep::Sector::DBI );
sub table { 'datas' }
sub _init {
my $self = shift;
if ( $self->offset ) {
my ($rows) = $self->engine->storage->read_from(
datas => $self->offset,
qw( id data_type key value ),
);
$self->{$_} = $rows->[0]{$_} for qw( data_type key value );
}
return;
}
sub data {
my $self = shift;
$self->{value};
}
1;
__END__
|