Added recursion test, hoisted staleness() to Sector.pm, and refactored to write_bucke...

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

diff --git a/lib/DBM/Deep/Sector.pm b/lib/DBM/Deep/Sector.pm
index 8174f1a..2241d6e 100644 (file)
--- a/lib/DBM/Deep/Sector.pm
+++ b/lib/DBM/Deep/Sector.pm
@@ -15,11 +15,21 @@ sub new {
 }
 
 sub _init {}
-sub clone { die "clone must be implemented in a child class" }
+#sub clone { die "clone must be implemented in a child class" }
+sub clone {
+    my $self = shift;
+    return ref($self)->new({
+        engine => $self->engine,
+        type   => $self->type,
+        data   => $self->data,
+    });
+}
+
 
 sub engine { $_[0]{engine} }
 sub offset { $_[0]{offset} }
 sub type   { $_[0]{type}   }
+sub staleness { $_[0]{staleness} }
 
 sub load { die "load must be implemented in a child class" }