The code that I am using is as follows (stripped of non-essential features):

#!/usr/bin/perl
use strict;
use Data::Dumper;

# testing _get_csv
local *MCVE::MCVE_Ub = sub { [qw/ 333 444 /] };
local *MCVE::MCVE_NumRows    = sub { 3 };
local *MCVE::MCVE_NumColumns = sub { 2 };
my @columns = ('foo', 'bar');
local *MCVE::MCVE_GetHeader  = sub { shift @columns };
my @rows = qw/ 333 aaa 444 bbb 555 ccc /;
local *MCVE::MCVE_GetCellByNum = sub { shift @rows };

my $report = _get_csv();
print Dumper $report;

sub _get_csv
{
    my $rows    = MCVE::MCVE_NumRows();
    my $columns = MCVE::MCVE_NumColumns();

    my %report;
    my @headers;
    my @data = ({}) x ($rows-1); # need an extra for the header

    foreach my $column ( 0 .. $columns - 1 )
    {
        push @headers, MCVE::MCVE_GetHeader( $column );
    }

    $report{headers} = \@headers;
    foreach my $row ( 0 .. $rows - 1 )
    {
        my @temp;
        foreach my $column ( 0 .. $columns - 1 )
        {
            push @temp, MCVE::MCVE_GetCellByNum($column,$row );
        }
        warn "Temp: '@temp' added to row $row ";
        @{$data[$row]}{ @headers } = @temp;
    }
    $report{data} = \@data;
    return \%report;
}
[download]

I think you can guess what the functions are trying to do :)

Note that this snippet is for unit testing (making sure my algorithm is correct) rather than integration testing, which is why I localize all of the functions.

The problem is in the output:

Temp: '333 aaa' added to row 0  at C:\test.pl line 39.
Temp: '444 bbb' added to row 1  at C:\test.pl line 39.
Temp: '555 ccc' added to row 2  at C:\test.pl line 39.
$VAR1 = {
          'data' => [
                      {
                        'foo' => '444',
                        'bar' => 'bbb'
                      },
                      $VAR1->{'data'}[0],
                      {
                        'foo' => '555',
                        'bar' => 'ccc'
                      }
                    ],
          'headers' => [ 
                         'foo',
                         'bar'
                       ]
        };

As you can see from the warning lines, I appear to be building my temp data correctly and even assigning it to the correct row in the array ref, but element 0 (444 bbb) should be (333 aaa). What the heck am I doing wrong?

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.