/[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.4 by joko, Thu Mar 27 15:31:03 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ------------------------------------------------------------------------  ## ------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.4  2003/03/27 15:31:03  joko
6    ##  fixes to modules regarding new namespace(s) below Data::Mungle::*
7    ##
8    ##  Revision 1.3  2003/02/20 18:56:41  joko
9    ##  renamed modules
10    ##
11    ##  Revision 1.2  2003/02/09 04:53:23  joko
12    ##  + object creation done via new mechanism
13    ##
14  ##  Revision 1.1  2002/12/23 04:22:22  joko  ##  Revision 1.1  2002/12/23 04:22:22  joko
15  ##  + refactored from Data::Filter  ##  + refactored from Data::Filter
16  ##  ##
# Line 16  package Data::Query::Filter::Regexp; Line 25  package Data::Query::Filter::Regexp;
25  use strict;  use strict;
26  use warnings;  use warnings;
27    
28  use base 'DesignPattern::Object::Logger';  use base qw( DesignPattern::Logger );
29    
30    
31  use Data::Dumper;  use Data::Dumper;
32    
33  use Regexp::Group;  use Regexp::Group;
34  use libp qw( mkObject );  use DesignPattern::Object;
35  use Data::Compare::Struct qw( isEmpty );  use Data::Mungle::Compare::Struct qw( isEmpty );
36    
37  # ------------    common perl object constructor    ------------  # ------------    common perl object constructor    ------------
38  sub new {  sub new {
# Line 47  sub _init { Line 56  sub _init {
56    my $self = shift;    my $self = shift;
57        
58    # 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!)
59    $self->{declaration} = mkObject($self->{module});    $self->{declaration} = DesignPattern::Object->fromPackage($self->{module});
60  #print Dumper($self->{declaration});  #print Dumper($self->{declaration});
61        
62    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed