X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBM%2FDeep%2FSector%2FFile%2FScalar.pm;fp=lib%2FDBM%2FDeep%2FSector%2FFile%2FScalar.pm;h=b8a95191fbe27ae77b213d4bf43529569fe08fc4;hb=a4d36ff61c367864cdf95523dd9771b01773930c;hp=7dfa04126d61a3d664b8a6392dfb2cb5e6010ca5;hpb=18bc2fa6f00cd17c961f2a7fe94296fefbf569c4;p=dbsrgits%2FDBM-Deep.git

diff --git a/lib/DBM/Deep/Sector/File/Scalar.pm b/lib/DBM/Deep/Sector/File/Scalar.pm
index 7dfa041..b8a9519 100644
--- a/lib/DBM/Deep/Sector/File/Scalar.pm
+++ b/lib/DBM/Deep/Sector/File/Scalar.pm
@@ -31,6 +31,15 @@ sub free {
     return;
 }
 
+sub clone {
+    my $self = shift;
+    return ref($self)->new({
+        engine => $self->engine,
+        type   => $self->type,
+        data   => $self->data,
+    });
+}
+
 sub type { $_[0]{engine}->SIG_DATA }
 sub _init {
     my $self = shift;
@@ -107,8 +116,6 @@ sub chain_loc {
 
 sub data {
     my $self = shift;
-#    my ($args) = @_;
-#    $args ||= {};
 
     my $data;
     while ( 1 ) {