Author image Philip R Brenan


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


 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 "шестьдесят один";


 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="">email</a>email me the language code and numbers from zero to one hundred for languages not included above.

See also



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

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



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.