package SuperClass; sub derive_subclass_for_word { my ($word)= @_; # test against a regex found in each language, or something like that my $language; return $language; } 1;