lib/DBM/Deep/Sector/File/Data.pm

   1 package DBM::Deep::Sector::File::Data;
   2
   3 use 5.006_000;
   4
   5 use strict;
   6 use warnings FATAL => 'all';
   7
   8 use base qw( DBM::Deep::Sector::File );
   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__