--- nfo/perl/libs/Data/Storage/Handler/Abstract.pm	2002/12/05 07:57:48	1.7
+++ nfo/perl/libs/Data/Storage/Handler/Abstract.pm	2002/12/13 21:48:35	1.8
@@ -1,7 +1,10 @@
 ##    --------------------------------------------------------------------------------
-##    $Id: Abstract.pm,v 1.7 2002/12/05 07:57:48 joko Exp $
+##    $Id: Abstract.pm,v 1.8 2002/12/13 21:48:35 joko Exp $
 ##    --------------------------------------------------------------------------------
 ##    $Log: Abstract.pm,v $
+##    Revision 1.8  2002/12/13 21:48:35  joko
+##    + sub _abstract_function
+##
 ##    Revision 1.7  2002/12/05 07:57:48  joko
 ##    + now using Tie::SecureHash as a base for the COREHANDLE
 ##    + former public COREHANDLE becomes private _COREHANDLE now
@@ -32,6 +35,8 @@
 use strict;
 use warnings;
 
+use base qw( DesignPattern::Object );
+
 use Data::Dumper;
 use Tie::SecureHash;
 #use Data::Storage::Handler;
@@ -244,18 +249,6 @@
   }
 }
 
-
-sub _abstract_function {
-  my $self = shift;
-  my $fName = shift;
-  my $class = ref($self);
-  # was:
-  # $logger->error( __PACKAGE__ . ": function \"$fName\" is an abstract method, please implement it in \"$class\"");
-  # is:
-  die( __PACKAGE__ . ": function \"$fName\" is an abstract method, please implement it in \"$class\"");
-  #exit;
-}
-
 sub _typeCheck2 {
   my $type = shift;
   print "type: $type";