Select Code to Download

{
        package Row;
...
                },
        );
}

sub addCell {
        my ($self, $index, @cells) = @_;
        $self->pushRow( [] ) if !defined $self->getRow($index);
        $self->getRow($index)->pushCell(@cells);
}

{
        package Grid;;
...
                },
        );
}

my $grid = Grid->new( grid => [ 
                [$cellA0, $cellB0, $cellC0], 
                [$cellA1, $cellB1, $cellC1],
                [$cellA2],
        ] );

#!/usr/bin/perl -w

...
$grid4->addCell(5, $mycell4B);
print $grid4->toString . "\n";
print "END grid4 test\n\n";

BEGIN row1 test
A0      B0      C0      D0      E0
...
A5
END grid4 test