/[cvs]/nfo/perl/libs/Data/Storage/Handler/Abstract.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Storage/Handler/Abstract.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by joko, Thu Dec 5 07:57:48 2002 UTC revision 1.8 by joko, Fri Dec 13 21:48:35 2002 UTC
# Line 2  Line 2 
2  ##    $Id$  ##    $Id$
3  ##    --------------------------------------------------------------------------------  ##    --------------------------------------------------------------------------------
4  ##    $Log$  ##    $Log$
5    ##    Revision 1.8  2002/12/13 21:48:35  joko
6    ##    + sub _abstract_function
7    ##
8  ##    Revision 1.7  2002/12/05 07:57:48  joko  ##    Revision 1.7  2002/12/05 07:57:48  joko
9  ##    + now using Tie::SecureHash as a base for the COREHANDLE  ##    + now using Tie::SecureHash as a base for the COREHANDLE
10  ##    + former public COREHANDLE becomes private _COREHANDLE now  ##    + former public COREHANDLE becomes private _COREHANDLE now
# Line 32  package Data::Storage::Handler::Abstract Line 35  package Data::Storage::Handler::Abstract
35  use strict;  use strict;
36  use warnings;  use warnings;
37    
38    use base qw( DesignPattern::Object );
39    
40  use Data::Dumper;  use Data::Dumper;
41  use Tie::SecureHash;  use Tie::SecureHash;
42  #use Data::Storage::Handler;  #use Data::Storage::Handler;
# Line 244  sub DESTROY { Line 249  sub DESTROY {
249    }    }
250  }  }
251    
   
 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;  
 }  
   
252  sub _typeCheck2 {  sub _typeCheck2 {
253    my $type = shift;    my $type = shift;
254    print "type: $type";    print "type: $type";
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed