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 our $VERSION = '0.01';
   9
  10 use DBM::Deep::Engine::Sector;
  11 our @ISA = qw( DBM::Deep::Engine::Sector );
  12
  13 # This is in bytes
  14 sub size { $_[0]{engine}->data_sector_size }
  15 sub free_meth { return '_add_free_data_sector' }
  16
  17 sub clone {
  18     my $self = shift;
  19     return ref($self)->new({
  20         engine => $self->engine,
  21         type   => $self->type,
  22         data   => $self->data,
  23     });
  24 }
  25
  26 1;
  27 __END__