Person --- Person::Child
       \-- Person::Adult


##</code><code>##

sub parents {
  my $self = shift;
  push @{$self->{parents}}, @_ if @_;
  return @{$self->{parents}};
}