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

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