my @lines = split(/\r?\n/, $data);
$data = { items => [] };
- my $headers = shift @lines;
- my $multiline = $headers =~ s/\^//g;
- my @header = split(/\|/, $headers );
+ my $header_line = shift @lines;
+ my $multiline = $header_line =~ s/\^//g;
+ @header = split(/\|/, $header_line );
warn "# header ", dump( @header );
- $self->session( 'header' => [ @header ] );
- $self->session( 'columns' => [ @header ] );
while ( my $line = shift @lines ) {
+ $line =~ s/\^//g;
chomp $line;
my @v = split(/\|/, $line);
while ( @lines && $#v < $#header ) {