#!/usr/bin/perl
#
# eg4: List of Programmers and People test program
#

use strict; use warnings;
use Programmer; use List;
my $dunc = Programmer->new( NAME   => "Duncan",
		            AGE    => 45,
		            SEX    => "m",
			    SKILLS => {
			        "C" => "godlike",
			        "perl" => "godlike",
			        "C++" => "ok",
			        "java" => "minimal"
			    } );
my $bob = Person->new( NAME => "Bob", SEX  => 'm' );
my $shirley = Person->new;
my $list = List->cons( $shirley, List->cons( $dunc, List->cons( $bob, List->nil ) ) );
print "$list\n";
