/usr/share/doc/liblingua-en-inflect-perl/examples/demo_PL.pl is in liblingua-en-inflect-perl 1.893-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | #! /usr/bin/perl -ws
use Lingua::EN::Inflect qw { classical PL def_noun def_verb def_adj };
use vars qw { $classical $modern };
classical if $classical && !$modern;
def_noun 'kin' => 'kine';
def_verb 'foo' => 'fee',
'foo' => 'fee',
'foos' => 'fee';
def_adj 'red' => 'red|gules';
print "singular> one ";
while (<>)
{
chomp;
exit if /^\.$/;
if (/^\-classical$/) { classical ; print "[going classical]"}
elsif (/^-modern$/) { classical 0; print "[going modern]" }
else { print " plural> two ", PL $_ }
print "\nsingular> one ";
}
|