Select Code to Download

package FamilyMember; # the parent class of Son, Daughter
sub new {
...
    my ($self, $wish);
    push @{$self->{things_to_ask_for}}, $wish;
}

sub new {
    my ($class, $args) = @_;
...
    $self->askSantaFor($class->wishList());
    return $self;
}