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 |
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; |
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"; |
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; |