2 |
## $Id$ |
## $Id$ |
3 |
## ------------------------------------------------------------------------ |
## ------------------------------------------------------------------------ |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.2 2003/02/09 04:53:23 joko |
6 |
|
## + object creation done via new mechanism |
7 |
|
## |
8 |
## Revision 1.1 2002/12/23 04:22:22 joko |
## Revision 1.1 2002/12/23 04:22:22 joko |
9 |
## + refactored from Data::Filter |
## + refactored from Data::Filter |
10 |
## |
## |
25 |
use Data::Dumper; |
use Data::Dumper; |
26 |
|
|
27 |
use Regexp::Group; |
use Regexp::Group; |
28 |
use libp qw( mkObject ); |
use DesignPattern::Object; |
29 |
use Data::Compare::Struct qw( isEmpty ); |
use Data::Compare::Struct qw( isEmpty ); |
30 |
|
|
31 |
# ------------ common perl object constructor ------------ |
# ------------ common perl object constructor ------------ |
50 |
my $self = shift; |
my $self = shift; |
51 |
|
|
52 |
# 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!) |
53 |
$self->{declaration} = mkObject($self->{module}); |
$self->{declaration} = DesignPattern::Object->fromPackage($self->{module}); |
54 |
#print Dumper($self->{declaration}); |
#print Dumper($self->{declaration}); |
55 |
|
|
56 |
|
|