Lines Matching refs:PL
15 PL PL_N PL_V PL_ADJ NO NUM A AN
23 PL PL_N PL_V PL_ADJ PL_eq
27 PL PL_N PL_V PL_ADJ NO NUM
123 s/\bPL \( ([^),]*) (, ([^)]*) )? \) / PL($1,$3) /xeg
715 sub PL
716 # PL($word,$number)
759 sub PL_eq { _PL_eq(@_, \&PL); }
766 my ( $word1, $word2, $PL ) = @_;
771 $result = "p:s" if !$result && $word1 eq &$PL($word2);
772 $result = "s:p" if !$result && &$PL($word1) eq $word2;
774 $result = "p:s" if !$result && $word1 eq &$PL($word2);
775 $result = "s:p" if !$result && &$PL($word1) eq $word2;
778 if ($PL == \&PL || $PL == \&PL_N)
785 if ($PL == \&PL || $PL == \&PL_ADJ)
788 if !$result && _PL_check_plurals_ADJ($word1,$word2,$PL);
1214 # 2. TRANSLATE ZERO-QUANTIFIED $word TO "no PL($word)"
1225 return "$pre$count " . PL($word,$count) . $post
1227 return "${pre}no ". PL($word,0) . $post ;
1472 use Lingua::EN::Inflect qw ( PL PL_N PL_V PL_ADJ NO NUM
1483 print "The plural of ", $word, " is ", PL($word), "\n";
1488 print "I saw $cat_count ", PL("cat",$cat_count), "\n";
1504 print NUM($N1,""), PL("I"), PL_V(" saw"), NUM($N2), PL_N(" saw");
1589 # INTERPOLATE "PL()", "PL_N()", "PL_V()", "PL_ADJ()", A()", "AN()"
1592 print inflect("The plural of $word is PL($word)\n");
1593 print inflect("I saw $cat_count PL("cat",$cat_count)\n");
1594 print inflect("PL(I,$N1) PL_V(saw,$N1) PL(a,$N2) PL_N(saw,$N2)");
1595 print inflect("NUM($N1,)PL(I) PL_V(saw) NUM($N2,)PL(a) PL_N(saw)");
1596 print inflect("I saw NUM($cat_count) PL("cat")\nNUM()");
1695 =item C<PL($;$)>
1697 The exportable subroutine C<PL()> takes a I<singular> English noun,
1704 Hence C<PL("knife")> will return "knives" ("knife" having been treated
1705 as a singular noun), whereas C<PL("knifes")> will return "knife"
1710 C<PL_ADJ> should be used in preference to C<PL>.
1716 returned. For example, C<S<PL(" cat ")>> returns S<" cats ">.
1795 using the corresponding plural-inflection subroutine (C<PL()>, C<PL_N()>,
1847 case-insensitive (that is, C<PL("time","Times")> returns false. To obtain
1849 (that is, C<PL(lc "time", lc "Times")> returns true).
1935 print A(PL("cat",$N),$N);
1947 print A(PL("cat"));
2133 PL(" bottle of beer on the wall\n", $_)
2240 PL("stigma") # -> "stigmas" or "stigmata"
2241 PL("torus") # -> "toruses" or "tori"
2242 PL("index") # -> "indexes" or "indices"
2243 PL("millennium") # -> "millenniums" or "millennia"
2244 PL("ganglion") # -> "ganglions" or "ganglia"
2245 PL("octopus") # -> "octopuses" or "octopodes"
2264 print PL("formula"); # -> "formulae"
2267 print PL("formula"); # -> "formulas"
2270 print PL("formula"); # -> "formulae" (IF $cmode)
2274 print PL("wilderbeest"); # -> "wilderbeest"
2277 print PL("sally"); # -> "sallies"
2278 print PL("Sally"); # -> "Sallys"
2283 PL("forum") # ALWAYS -> "forums"
2284 PL("criterion") # ALWAYS -> "criteria"
2534 As a consequence of this ambiguity, C<PL()> or C<PL_N> have been implemented
2538 "it" (namely, C<PL("to it")>, C<PL_N("from it")>, C<PL("with it")>,
2564 print inflect "There PL(was) NO(choice)";
2570 print inflect "There PL(was) NO(choice)";
2605 plural is returned by C<PL()> and C<PL_N()> and the verb's plural is
2612 "difficult plurals" indicates that C<PL()> can be relied upon to "get