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