Name

Text::Numbers::100 - Translate the numbers from 0 to 100 into various languages

Synopsis

use Text::Numbers::100;

ok Text::Numbers::100::translate(q(es),  42) eq "cuarentay dos";
ok Text::Numbers::100::translate(q(de),  42) eq "zweiundvierzig";
ok Text::Numbers::100::translate(q(tr), 100) eq "yüz";
ok Text::Numbers::100::translate(q(ru),  61) eq "шестьдесят один";

Description

Text::Numbers::100::translate($language, $number)

Translates a number from 0 to 100 into text in the following languages:

Code Description

cy  Welsh
da  Danish
de  German
en  English
es  Spanish; Castilian
fr  French
is  Icelandic
it  Italian
ja  Japanese
ko  Korean
nb  Norwegian
nl  Dutch; Flemish
pl  Polish
pt  Portuguese
ro  Romanian; Moldavian; Moldovan
ru  Russian
sv  Swedish
tr  Turkish

Please <a href="mailto:philiprbrenan@gmail.com">email</a>email me the language code and numbers from zero to one hundred for languages not included above.

See also

ISO::639

Installation

Standard Module::Build process for building and installing modules:

perl Build.PL
./Build
./Build test
./Build install

Author

philiprbrenan@gmail.com

http://www.appaapps.com

Copyright

Copyright (c) 2017 Philip R Brenan.

This module is free software. It may be used, redistributed and/or modified under the same terms as Perl itself.