Help for this page

Select Code to Download


  1. or download this
    package Animal;
# constructor
...
    @{$this->{DNA}} = @_;
    return @{$this->{DNA}};
    }
  2. or download this
    package Population;
use Animal;
...
         push (@{$this->{individual}}, $empl);
    }
}
  3. or download this
    sub getTheFirst{
    my $this = shift;
    return @{$this->{individual}}[0]->getDNA();
}