1#! /usr/bin/perl -ws 2 3use Lingua::EN::Inflect qw { classical PL def_noun def_verb def_adj }; 4use vars qw { $classical $modern }; 5 6classical if $classical && !$modern; 7 8def_noun 'kin' => 'kine'; 9 10def_verb 'foo' => 'fee', 11 'foo' => 'fee', 12 'foos' => 'fee'; 13 14def_adj 'red' => 'red|gules'; 15 16print "singular> one "; 17while (<>) 18{ 19 chomp; 20 exit if /^\.$/; 21 if (/^\-classical$/) { classical ; print "[going classical]"} 22 elsif (/^-modern$/) { classical 0; print "[going modern]" } 23 else { print " plural> two ", PL $_ } 24 print "\nsingular> one "; 25} 26