#!/usr/bin/perl -W

use strict;
use warnings;

use TestBase;

my $b = TestBase->new( { prop1 => 'hello', prop2 => 'world' } );
print $b->_DUMP ;
print 'b->prop1 = ' . $b->get_prop1 . "\n";
print 'b->prop2 = ' . $b->get_prop2 . "\n";
$b->set_prop1('horrendo');
$b->set_prop2('revolver');
print $b->_DUMP ;