[dbsrgits/DBM-Deep.git] / lib / DBM / Deep / Engine / Sector / Data.pm

package DBM::Deep::Engine::Sector::Data;

use 5.006_000;

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

use DBM::Deep::Engine::Sector;
our @ISA = qw( DBM::Deep::Engine::Sector );

# This is in bytes
sub size {
    my $e = ref($_[0]) ? $_[0]{engine} : $_[1];
    return $e->data_sector_size;
}
sub free_meth { return '_add_free_data_sector' }

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

1;
__END__
Commit	Line	Data
065b45be	1	package DBM::Deep::Engine::Sector::Data;
065b45be	2
9c7d9738	3	use 5.006_000;
065b45be	4
	5	use strict;
	6	use warnings FATAL => 'all';
	7
065b45be	8	use DBM::Deep::Engine::Sector;
	9	our @ISA = qw( DBM::Deep::Engine::Sector );
	10
	11	# This is in bytes
badf847c	12	sub size {
	13	my $e = ref($_[0]) ? $_[0]{engine} : $_[1];
	14	return $e->data_sector_size;
	15	}
065b45be	16	sub free_meth { return '_add_free_data_sector' }
	17
	18	sub clone {
	19	my $self = shift;
	20	return ref($self)->new({
	21	engine => $self->engine,
	22	type => $self->type,
	23	data => $self->data,
	24	});
	25	}
	26
	27	1;
	28	__END__