Improved coverage by commenting out unused subs and adding some tests (one of which...

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

diff --git a/lib/DBM/Deep/Engine.pm b/lib/DBM/Deep/Engine.pm
index d315aab..c5dcaa6 100644 (file)
--- a/lib/DBM/Deep/Engine.pm
+++ b/lib/DBM/Deep/Engine.pm
@@ -915,8 +915,8 @@ sub new {
     $self->_init;
     return $self;
 }
-sub _init {}
-sub clone { die "Must be implemented in the child class" }
+#sub _init {}
+#sub clone { die "Must be implemented in the child class" }
 
 sub engine { $_[0]{engine} }
 sub offset { $_[0]{offset} }
@@ -1800,7 +1800,7 @@ sub free {
     my $e = $self->engine;
 
     for my $i ( 0 .. $e->hash_chars - 1 ) {
-        my $l = $self->location_for( $i ) or next;
+        my $l = $self->get_entry( $i ) or next;
         $e->_load_sector( $l )->free;
     }