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 |
## |
## |
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 |
|
|
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 |
|
|
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 { |