2 |
## $Id$ |
## $Id$ |
3 |
## ------------------------------------------------------------------------ |
## ------------------------------------------------------------------------ |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.3 2003/02/20 18:56:41 joko |
6 |
|
## renamed modules |
7 |
|
## |
8 |
|
## Revision 1.2 2003/02/09 04:53:23 joko |
9 |
|
## + object creation done via new mechanism |
10 |
|
## |
11 |
## Revision 1.1 2002/12/23 04:22:22 joko |
## Revision 1.1 2002/12/23 04:22:22 joko |
12 |
## + refactored from Data::Filter |
## + refactored from Data::Filter |
13 |
## |
## |
22 |
use strict; |
use strict; |
23 |
use warnings; |
use warnings; |
24 |
|
|
25 |
use base 'DesignPattern::Object::Logger'; |
use base qw( DesignPattern::Logger ); |
26 |
|
|
27 |
|
|
28 |
use Data::Dumper; |
use Data::Dumper; |
29 |
|
|
30 |
use Regexp::Group; |
use Regexp::Group; |
31 |
use libp qw( mkObject ); |
use DesignPattern::Object; |
32 |
use Data::Compare::Struct qw( isEmpty ); |
use Data::Compare::Struct qw( isEmpty ); |
33 |
|
|
34 |
# ------------ common perl object constructor ------------ |
# ------------ common perl object constructor ------------ |
53 |
my $self = shift; |
my $self = shift; |
54 |
|
|
55 |
# try to load filter-declaration from configuration scope inside perl-module (yes - it's already abstracted out there!) |
# try to load filter-declaration from configuration scope inside perl-module (yes - it's already abstracted out there!) |
56 |
$self->{declaration} = mkObject($self->{module}); |
$self->{declaration} = DesignPattern::Object->fromPackage($self->{module}); |
57 |
#print Dumper($self->{declaration}); |
#print Dumper($self->{declaration}); |
58 |
|
|
59 |
|
|