Lingua::EN::Inflect::Phrase - Inflect short English Phrases
use Lingua::EN::Inflect::Phrase;
use Test::More tests => 2;
my $plural = Lingua::EN::Inflect::Phrase::to_PL('green egg and ham');
is $plural, 'green eggs and ham';
my $singular = Lingua::EN::Inflect::Phrase::to_S('green eggs and ham');
is $singular, 'green egg and ham';
Attempts to pluralize or singularize short English phrases.
Does not throw exceptions at present, if you attempt to pluralize an already pluralized phrase, it will leave it unchanged (and vice versa.)
The behavior of this module is subject to change as I tweak the heuristics, as some things get fixed others might regress. The processing of natural language is a messy business.
If it doesn't work, please email or submit to RT the example you tried, and I'll try to fix it.
By default, this module prefers to treat words as nouns (sometimes words can be interpreted as a verb or a noun without context.) This is better for things such as database table/column names, which is what this module is primarily for.
This behavior can be switched with the variable $prefer_nouns
. The default is 1
.
For example:
{
local $Lingua::EN::Inflect::Phrase::prefer_nouns = 0;
is Lingua::EN::Inflect::Phrase::to_S('sources split'), 'source splits';
}
{
local $Lingua::EN::Inflect::Phrase::prefer_nouns = 1;
is Lingua::EN::Inflect::Phrase::to_S('source splits'), 'source split';
}
Attempts to pluralizes a phrase unless already plural.
Attempts to singularize a phrase unless already singular.
Please report any bugs or feature requests to bug-lingua-en-inflect-phrase at rt.cpan.org
, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Lingua-EN-Inflect-Phrase. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
git clone git://github.com/rkitover/lingua-en-inflect-phrase.git lingua-en-inflect-phrase
Lingua::EN::Inflect, Lingua::EN::Inflect::Number, Lingua::EN::Tagger
rkitover: Rafael Kitover <rkitover@cpan.org>
zakame: Zak B. Elep <zakame@zakame.net>
Copyright (c) 2018 Rafael Kitover (rkitover@cpan.org).
This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.
See http://dev.perl.org/licenses/ for more information.