Beta Shell
v2.0 ยท web2.us.cloudlogin.co
[FM]
[CMD]
[PHP]
[DB]
[INFO]
[SEC]
File Manager
~
/
usr
/
share
/
perl5
/
vendor_perl
/
DBM
/
Deep
/
Sector
/
DBI
Upload
4 items
Name
Size
Perms
Modified
Actions
[ .. / .. ]
Reference.pm
5.18 KB
-rw-r--r--
2019-10-16 10:59:24
Edit
Del
Scalar.pm
511 B
-rw-r--r--
2019-10-16 10:59:24
Edit
Del
Editing: Scalar.pm
(511 B)
Path: /usr/share/perl5/vendor_perl/DBM/Deep/Sector/DBI/Scalar.pm
Back
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__