#!/usr/bin/perl
#
# eg3a: Programmer test program
#

use strict;
use warnings;
use Programmer;

my $dunc = Programmer->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";
