/[cvs]/nfo/perl/libs/Data/Query/Filter/Regexp.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Query/Filter/Regexp.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by joko, Mon Dec 23 04:22:22 2002 UTC revision 1.2 by joko, Sun Feb 9 04:53:23 2003 UTC
# Line 2  Line 2 
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  ##  ##
# Line 22  use base 'DesignPattern::Object::Logger' Line 25  use base 'DesignPattern::Object::Logger'
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    ------------
# Line 47  sub _init { Line 50  sub _init {
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    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed