7 |
BEGIN { |
BEGIN { |
8 |
use Exporter (); |
use Exporter (); |
9 |
use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); |
use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); |
10 |
$VERSION = 0.01; |
$VERSION = 0.02; |
11 |
@ISA = qw (Exporter); |
@ISA = qw (Exporter); |
12 |
#Give a hoot don't pollute, do not export more than needed by default |
#Give a hoot don't pollute, do not export more than needed by default |
13 |
@EXPORT = qw (); |
@EXPORT = qw (); |
196 |
my $f = substr($fields,$addr,$len); |
my $f = substr($fields,$addr,$len); |
197 |
print STDERR "tag/len/addr $tag [$len] $addr: '$f'\n" if ($self->{debug}); |
print STDERR "tag/len/addr $tag [$len] $addr: '$f'\n" if ($self->{debug}); |
198 |
|
|
199 |
$row->{$tag} = $f; |
if ($row->{$tag}) { |
200 |
|
$row->{$tag} .= $f; |
201 |
|
} else { |
202 |
|
$row->{$tag} = $f; |
203 |
|
} |
204 |
|
|
205 |
my $del = substr($fields,$addr+$len-1,1); |
my $del = substr($fields,$addr+$len-1,1); |
206 |
|
|