my $count;
my $parser;
my @buffer = ();
+ my $asn_header_buffer;
if ( $type eq 'csv' || $type eq 'fixedlength' ) {
if ( $type eq 'csv' ) {
my $asn_output = $parser->decode( $data )
or die "No ". $asn_format->{'macro'}. " found\n";
+ $asn_header_buffer = &{ $asn_format->{'header_buffer'} }( $asn_output );
+
my $rows = &{ $asn_format->{'arrayref'} }( $asn_output );
$count = @buffer = @$rows;
last unless scalar(@buffer);
my $row = shift @buffer;
foreach my $key ( keys %{ $asn_format->{map} } ) {
- $hash{$key} = &{ $asn_format->{map}{$key} }( $row );
+ $hash{$key} = &{ $asn_format->{map}{$key} }( $row, $asn_header_buffer );
}
} else {