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 {
  13     my $e = ref($_[0]) ? $_[0]{engine} : $_[1];
  14     return $e->data_sector_size;
  15 }
  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__