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

package DBM::Deep::Sector::File::Data;

use 5.006_000;

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

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

# This is in bytes
sub size { $_[0]{engine}->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
2c70efe1	1	package DBM::Deep::Sector::File::Data;
f0276afb	2
	3	use 5.006_000;
	4
	5	use strict;
	6	use warnings FATAL => 'all';
	7
2c70efe1	8	use base qw( DBM::Deep::Sector::File );
f0276afb	9
	10	# This is in bytes
	11	sub size { $_[0]{engine}->data_sector_size }
	12	sub free_meth { return '_add_free_data_sector' }
	13
	14	sub clone {
	15	my $self = shift;
	16	return ref($self)->new({
	17	engine => $self->engine,
	18	type => $self->type,
	19	data => $self->data,
	20	});
	21	}
	22
	23	1;
	24	__END__