/[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.3 by joko, Thu Feb 20 18:56:41 2003 UTC
# Line 2  Line 2 
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  ##  ##
# Line 16  package Data::Query::Filter::Regexp; Line 22  package Data::Query::Filter::Regexp;
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    ------------
# Line 47  sub _init { Line 53  sub _init {
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    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed