/[cvs]/nfo/perl/libs/Regexp/Group.pm
ViewVC logotype

Diff of /nfo/perl/libs/Regexp/Group.pm

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

revision 1.1 by joko, Sun Dec 22 14:16:39 2002 UTC revision 1.4 by joko, Thu Mar 27 15:45:00 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ------------------------------------------------------------------------  ## ------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.4  2003/03/27 15:45:00  joko
6    ##  fixes to modules regarding new namespace(s) below Data::Mungle::*
7    ##
8    ##  Revision 1.3  2003/02/20 21:11:43  joko
9    ##  renamed module
10    ##
11    ##  Revision 1.2  2003/02/14 14:17:42  joko
12    ##  + more warnings and verbosing
13    ##
14  ##  Revision 1.1  2002/12/22 14:16:39  joko  ##  Revision 1.1  2002/12/22 14:16:39  joko
15  ##  + initial check-in  ##  + initial check-in
16  ##  ##
# Line 13  package Regexp::Group; Line 22  package Regexp::Group;
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 Data::Compare::Struct qw( isEmpty );  use Data::Mungle::Compare::Struct qw( isEmpty );
31    
32  my @patterns;  my @patterns;
33    
# Line 140  sub _scan_step { Line 149  sub _scan_step {
149      # dereference data if its still referenced      # dereference data if its still referenced
150      my $data = ${$self->{data}};      my $data = ${$self->{data}};
151    
152        if (!$data) {
153          $self->log("data is empty: stepkey=$stepkey", 'warning');
154          return;
155        }
156    
157      #$self->{data} =~ s{      #$self->{data} =~ s{
158      $data =~ s{      $data =~ s{
159    
# Line 242  sub _scan_step { Line 256  sub _scan_step {
256      #$self->trace('matches', $self->getMatches(), 1);      #$self->trace('matches', $self->getMatches(), 1);
257      #$self->trace('matches-positions', $self->getMatchPositions(), 1);      #$self->trace('matches-positions', $self->getMatchPositions(), 1);
258    
259        #print "\r" if $self->{verbose};
260        print " " x 50 if $self->{verbose};
261        print "\r" if $self->{verbose};
262    
263  }  }
264    
265  sub continue {  sub continue {
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