Beta Shell v2.0

File Manager

~ /usr/share/perl5/vendor_perl/DBM/Deep/Sector

Name	Size	Perms	Modified	Actions
[ .. / .. ]
DBI	-	drwxr-xr-x	2022-02-23 11:31:33	Del
DBI.pm	1.07 KB	-rw-r--r--	2019-10-16 10:59:24	Edit Del
File	-	drwxr-xr-x	2022-02-23 11:31:33	Del
File.pm	2.58 KB	-rw-r--r--	2019-10-16 10:59:24	Edit Del

Editing: DBI.pm (1.07 KB)

package DBM::Deep::Sector::DBI;

use 5.008_004;

use strict;
use warnings FATAL => 'all';

use base qw( DBM::Deep::Sector );

use DBM::Deep::Sector::DBI::Reference ();
use DBM::Deep::Sector::DBI::Scalar ();

sub free {
    my $self = shift;

    $self->engine->storage->delete_from(
        $self->table, $self->offset,
    );
}

sub reload {
    my $self = shift;
    $self->_init;
}

sub load {
    my $self = shift;
    my ($engine, $offset, $type) = @_;

    if ( !defined $type || $type eq 'refs' ) {
        return DBM::Deep::Sector::DBI::Reference->new({
            engine => $engine,
            offset => $offset,
        });
    }
    elsif ( $type eq 'datas' ) {
        my $sector = DBM::Deep::Sector::DBI::Scalar->new({
            engine => $engine,
            offset => $offset,
        });

        if ( $sector->{data_type} eq 'R' ) {
            return $self->load(
                $engine, $sector->{value}, 'refs',
            );
        }

        return $sector;
    }

    DBM::Deep->_throw_error( "'$offset': Don't know what to do with type '$type'" );
}

1;
__END__