Select Code to Download

package Language;
1;

package Language::English;
1;
...
1;
package Language::Italian;
1;

package SuperClass;
sub derive_subclass_for_word {
...
  return $language;
}
1;