<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">package DBM::Deep::Sector;

use 5.008_004;

use strict;
use warnings FATAL =&gt; 'all';

use Scalar::Util ();

sub new {
    my $self = bless $_[1], $_[0];
    Scalar::Util::weaken( $self-&gt;{engine} );
    $self-&gt;_init;
    return $self;
}

sub _init {}

sub clone {
    my $self = shift;
    return ref($self)-&gt;new({
        engine =&gt; $self-&gt;engine,
        type   =&gt; $self-&gt;type,
        data   =&gt; $self-&gt;data,
    });
}


sub engine { $_[0]{engine} }
sub offset { $_[0]{offset} }
sub type   { $_[0]{type}   }
sub staleness { $_[0]{staleness} }

sub load { die "load must be implemented in a child class" }

1;
__END__
</pre></body></html>