| 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 { |
Parent Directory
| 
Revision Log
| 
Patch
