/[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.9 by joko, Thu Dec 19 16:30:23 2002 UTC
# Line 2  Line 2 
2  ##    $Id$  ##    $Id$
3  ##    --------------------------------------------------------------------------------  ##    --------------------------------------------------------------------------------
4  ##    $Log$  ##    $Log$
5    ##    Revision 1.9  2002/12/19 16:30:23  joko
6    ##    + added 'sub dropDb' and 'sub rebuildDb' as croakers for concrete implementations of methods in proper handlers
7    ##
8    ##    Revision 1.8  2002/12/13 21:48:35  joko
9    ##    + sub _abstract_function
10    ##
11  ##    Revision 1.7  2002/12/05 07:57:48  joko  ##    Revision 1.7  2002/12/05 07:57:48  joko
12  ##    + now using Tie::SecureHash as a base for the COREHANDLE  ##    + now using Tie::SecureHash as a base for the COREHANDLE
13  ##    + former public COREHANDLE becomes private _COREHANDLE now  ##    + former public COREHANDLE becomes private _COREHANDLE now
# Line 32  package Data::Storage::Handler::Abstract Line 38  package Data::Storage::Handler::Abstract
38  use strict;  use strict;
39  use warnings;  use warnings;
40    
41    use base qw( DesignPattern::Object );
42    
43  use Data::Dumper;  use Data::Dumper;
44  use Tie::SecureHash;  use Tie::SecureHash;
45  #use Data::Storage::Handler;  #use Data::Storage::Handler;
# Line 244  sub DESTROY { Line 252  sub DESTROY {
252    }    }
253  }  }
254    
   
 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;  
 }  
   
255  sub _typeCheck2 {  sub _typeCheck2 {
256    my $type = shift;    my $type = shift;
257    print "type: $type";    print "type: $type";
# Line 377  sub _typeCheck2 { Line 373  sub _typeCheck2 {
373      return;      return;
374    }    }
375    
376      sub dropDb {
377        my $self = shift;
378        $self->_abstract_function('dropDb');
379        return;
380      }
381    
382      sub rebuildDb {
383        my $self = shift;
384        $self->_abstract_function('rebuildDb');
385        return;
386      }
387    
388  1;  1;
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.9
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed