SYNOPSIS

  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';

DESCRIPTION

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 \s-1RT\s0 the example you tried, and I'll try to fix it.

OPTIONS

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'; }

OPTIONAL EXPORTS

\*(L"to_PL\*(R", \*(L"to_S\*(R"

SUBROUTINES

to_PL

Attempts to pluralizes a phrase unless already plural.

to_S

Attempts to singularize a phrase unless already singular.

BUGS

Please report any bugs or feature requests to \*(C`bug-lingua-en-inflect-phrase at rt.cpan.org\*(C', or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Lingua-EN-Inflect-Phrase <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.

SUPPORT

More information at:

  • \s-1RT:\s0 \s-1CPAN\s0's request tracker http://rt.cpan.org/NoAuth/Bugs.html?Dist=Lingua-EN-Inflect-Phrase <http://rt.cpan.org/NoAuth/Bugs.html?Dist=Lingua-EN-Inflect-Phrase>

  • AnnoCPAN: Annotated \s-1CPAN\s0 documentation http://annocpan.org/dist/Lingua-EN-Inflect-Phrase <http://annocpan.org/dist/Lingua-EN-Inflect-Phrase>

  • \s-1CPAN\s0 Ratings http://cpanratings.perl.org/d/Lingua-EN-Inflect-Phrase <http://cpanratings.perl.org/d/Lingua-EN-Inflect-Phrase>

  • Search \s-1CPAN\s0 http://search.cpan.org/dist/Lingua-EN-Inflect-Phrase/ <http://search.cpan.org/dist/Lingua-EN-Inflect-Phrase/>

REPOSITORY

git clone git://github.com/rkitover/lingua-en-inflect-phrase.git lingua-en-inflect-phrase

RELATED TO Lingua::EN::Inflect::Phrase…

Lingua::EN::Inflect, Lingua::EN::Inflect::Number, Lingua::EN::Tagger

AUTHOR

Rafael Kitover <[email protected]>

LICENSE AND COPYRIGHT

Copyright (c) 2010 Rafael Kitover ([email protected]).

This program is free software; you can redistribute it and/or modify it under the terms of either: the \s-1GNU\s0 General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.