#!/usr/bin/perl
#
# eg2: Moose Person test program
#
use strict;
use warnings;
use MoosePerson;
my $dunc = MoosePerson->new( name => "Duncan", age  => 45, sex  => "m" );
print "$dunc\n";
$dunc->age( 20 ); $dunc->name( "Young dunc" );
print "$dunc\n";
