my $father = new Person(name => "Charlie Vilain", age => 49,
                        profession => "DMS II Guru");

my $self = new Person(name => "Sam Vilain", age => 22,
                      profession => "Perl weenie",
                      father => $father);

print "My name is... " . $self->name() . "\n";
$self->name("Samuel");   # ok, sets name to "Samuel"
$self->age("old");       # croaks, age is an int
$self->father("Darth");  # croaks, "Darth" is not a blessed object
print $self->mother();   # croaks, "mother" not recorded in schema