Name

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

Synopsis

use Text::Numbers::100;

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

Description

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

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

cy da de en es fr is it ja nb nl pl pt ro ru sv tr

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.