package Word;
sub new {
my $pkg = shift;
my $self = bless {}, $pkg;
$self->initialize(@_);
$self;
}
sub initialize {
my $self = shift;
$self->{stem} = shift;
$self->{english} = shift;
}
package Noun;
use base qw(Word);
sub new {
my $pkg = shift;
bless {}, $pkg;
$self->initialize(@_);
$self;
}
sub initialize {
my $self = shift;
$self->SUPER::initialize(shift, shift);
$self->{gender} = shift;
$self->{nom_sg} = shift;
$self->{gen_sg} = shift;
}
####
print $w->{english};
##
##
sub english {
my $self = shift;
return $self->{english};
}