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