Select Code to Download

package Person;

...
}

sub name { shift->{NAME} }

package Male;
@Male::ISA = qw/Person/;
...
}

sub gender { shift->{GENDER} }

package main;

my $him = new Male(NAME => "Foo Bar");
print "\$him is in the class '", ref $him, "'\n";
print $him->name, " is of the gender ", $him->gender, "\n";

    $him is in the class 'Male'
    Foo Bar is of the gender male