Got arrays working, requiring that make_reference and clone be added and functional

[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..3f44fca 100644 (file)
--- a/lib/DBM/Deep/Sector.pm
+++ b/lib/DBM/Deep/Sector.pm
@@ -15,7 +15,16 @@ 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} }