--- nfo/perl/libs/Data/Query/Filter/Regexp.pm	2002/12/23 04:22:22	1.1
+++ nfo/perl/libs/Data/Query/Filter/Regexp.pm	2003/02/09 04:53:23	1.2
@@ -1,7 +1,10 @@
 ## ------------------------------------------------------------------------
-##  $Id: Regexp.pm,v 1.1 2002/12/23 04:22:22 joko Exp $
+##  $Id: Regexp.pm,v 1.2 2003/02/09 04:53:23 joko Exp $
 ## ------------------------------------------------------------------------
 ##  $Log: Regexp.pm,v $
+##  Revision 1.2  2003/02/09 04:53:23  joko
+##  + object creation done via new mechanism
+##
 ##  Revision 1.1  2002/12/23 04:22:22  joko
 ##  + refactored from Data::Filter
 ##
@@ -22,7 +25,7 @@
 use Data::Dumper;
 
 use Regexp::Group;
-use libp qw( mkObject );
+use DesignPattern::Object;
 use Data::Compare::Struct qw( isEmpty );
 
 # ------------    common perl object constructor    ------------
@@ -47,7 +50,7 @@
   my $self = shift;
   
   # try to load filter-declaration from configuration scope inside perl-module (yes - it's already abstracted out there!)
-  $self->{declaration} = mkObject($self->{module});
+  $self->{declaration} = DesignPattern::Object->fromPackage($self->{module});
 #print Dumper($self->{declaration});