Refactored Sector:: out from under Engine:: and into its own area

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

diff --git a/lib/DBM/Deep/Engine/Sector.pm b/lib/DBM/Deep/Engine/Sector.pm
index d99e9ea..9bbf29c 100644 (file)
--- a/lib/DBM/Deep/Engine/Sector.pm
+++ b/lib/DBM/Deep/Engine/Sector.pm
@@ -5,51 +5,33 @@ use 5.006_000;
 use strict;
 use warnings FATAL => 'all';
 
-my $STALE_SIZE = 2;
-
-# Please refer to the pack() documentation for further information
-my %StP = (
-    1 => 'C', # Unsigned char value (no order needed as it's just one byte)
-    2 => 'n', # Unsigned short in "network" (big-endian) order
-    4 => 'N', # Unsigned long in "network" (big-endian) order
-    8 => 'Q', # Usigned quad (no order specified, presumably machine-dependent)
-);
-
-sub new {
-    my $self = bless $_[1], $_[0];
-    Scalar::Util::weaken( $self->{engine} );
-    $self->_init;
-    return $self;
-}
-
-#sub _init {}
-#sub clone { DBM::Deep->_throw_error( "Must be implemented in the child class" ); }
-
-sub engine { $_[0]{engine} }
-sub offset { $_[0]{offset} }
-sub type   { $_[0]{type} }
-
-sub base_size {
-   my $self = shift;
-   return $self->engine->SIG_SIZE + $STALE_SIZE;
-}
-
-sub free {
-    my $self = shift;
-
-    my $e = $self->engine;
-
-    $e->storage->print_at( $self->offset, $e->SIG_FREE );
-    # Skip staleness counter
-    $e->storage->print_at( $self->offset + $self->base_size,
-        chr(0) x ($self->size - $self->base_size),
-    );
-
-    my $free_meth = $self->free_meth;
-    $e->$free_meth( $self->offset, $self->size );
-
-    return;
-}
-
 1;
 __END__
+
+new({
+    engine =>
+    type   =>
+    offset =>
+})
+    _init( $args )
+staleness
+get_data_for({
+    key_md5    =>
+    allow_head =>
+})
+get_data_location_for({
+    key_md5    =>
+    allow_head =>
+})
+write_data({
+    key     =>
+    key_md5 =>
+    value   => $value_sector,
+})
+size
+get_classname
+delete_key({
+    key_md5    =>
+    allow_head =>
+})
+get_refcount