2 |
## $Id$ |
## $Id$ |
3 |
## ------------------------------------------------------------------------ |
## ------------------------------------------------------------------------ |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.3 2003/02/20 21:11:43 joko |
6 |
|
## renamed module |
7 |
|
## |
8 |
|
## Revision 1.2 2003/02/14 14:17:42 joko |
9 |
|
## + more warnings and verbosing |
10 |
|
## |
11 |
## Revision 1.1 2002/12/22 14:16:39 joko |
## Revision 1.1 2002/12/22 14:16:39 joko |
12 |
## + initial check-in |
## + initial check-in |
13 |
## |
## |
19 |
use strict; |
use strict; |
20 |
use warnings; |
use warnings; |
21 |
|
|
22 |
use base 'DesignPattern::Object::Logger'; |
use base qw( DesignPattern::Logger ); |
23 |
|
|
24 |
|
|
25 |
use Data::Dumper; |
use Data::Dumper; |
146 |
# dereference data if its still referenced |
# dereference data if its still referenced |
147 |
my $data = ${$self->{data}}; |
my $data = ${$self->{data}}; |
148 |
|
|
149 |
|
if (!$data) { |
150 |
|
$self->log("data is empty: stepkey=$stepkey", 'warning'); |
151 |
|
return; |
152 |
|
} |
153 |
|
|
154 |
#$self->{data} =~ s{ |
#$self->{data} =~ s{ |
155 |
$data =~ s{ |
$data =~ s{ |
156 |
|
|
253 |
#$self->trace('matches', $self->getMatches(), 1); |
#$self->trace('matches', $self->getMatches(), 1); |
254 |
#$self->trace('matches-positions', $self->getMatchPositions(), 1); |
#$self->trace('matches-positions', $self->getMatchPositions(), 1); |
255 |
|
|
256 |
|
#print "\r" if $self->{verbose}; |
257 |
|
print " " x 50 if $self->{verbose}; |
258 |
|
print "\r" if $self->{verbose}; |
259 |
|
|
260 |
} |
} |
261 |
|
|
262 |
sub continue { |
sub continue { |