Select Code to Download

package Word;

sub new {
...
    $self->{nom_sg} = shift;
    $self->{gen_sg} = shift;
}

sub english {
    my $self = shift;
    return $self->{english};
}