package Shared_OO;
use warnings;
use strict;

sub new {
    my $class = shift;
    bless { test_val  => "hello world\n",
            test_list => [ [ 'Shadow',  'Blinky' ],
                           [ 'Speedy',  'Pinky'  ],
                           [ 'Bashful', 'Inky'   ],
                           [ 'Pokey',   'Clyde'  ],
                         ],
          }, $class
}


sub test_val { shift()->{test_val} }

sub test_list { @{ shift()->{test_list} } }


__PACKAGE__