Select Code to Download

package WhiteMouse;

...

    $self->set(object_array => $ra_obj);
}

        next if $i == $dim_l && @todo;

        ($ra_p, $i) = @{shift @todo} if @todo;

use strict;
use warnings;
...
print Dumper $ro_pandim2->get('object_array');
print Dumper $ro_pandim3->get('object_array');
print "=======================================\n";