#!/usr/bin/perl
#
# eg3a: Moose Programmer test program
#
use strict;
use warnings;
use MooseProgrammer;
my $dunc = MooseProgrammer->new( name => "Duncan", age  => 45, sex  => "m",
				 skills => {
			           "C" => "godlike",
			           "perl" => "godlike",
			           "C++" => "ok",
			           "java" => "minimal"
				 } );
print "$dunc\n";
$dunc->age( 20 );
$dunc->name( "Young dunc" );
$dunc->skills( { "C" => "good", "prolog" => "good" } );
print "$dunc\n";
