use strict;
use warnings;

use Data::Dumper;

my $ra_dim = [ qw( 2 2 ) ];
my $ra_val = [ qw( A B C D E F G H I J K L) ];

print 'DIM: ', "@$ra_dim\n";
print 'VAL: ', "@$ra_val\n";

my $ro_pandim1 = WhiteMouse->new({
    object_array_dim => $ra_dim,
    object_array_val => $ra_val,
});

my $ro_pandim2 = WhiteMouse->new({
    object_array_dim => $ra_dim,
    object_array_val => [ 'XXXX' ],
});

my $ro_pandim3 = WhiteMouse->new({
    object_array_dim => $ra_dim,
});

print "=======================================\n";
print Dumper $ro_pandim1->get('object_array');
print Dumper $ro_pandim2->get('object_array');
print Dumper $ro_pandim3->get('object_array');
print "=======================================\n";