Select Code to Download

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

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