package HollyGame::Entity; out @ISA = ("Race", "Class"); sub new { my ($class) = @_; $self = { ### positions and stuff }; bless $self, ref($class) || $class; };