Help for this page

Select Code to Download


  1. or download this
        sub set_species {
            my ($self, $species) = @_;
    ...
            my ($self) = @_;
            $self -> {species};
        }
    
  2. or download this
        my $species;
        sub set_species {
    ...
        sub get_species {
            $species;
        }