File Coverage

blib/lib/Lingua/SPA/Word2Num.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition	2	2	100.0
subroutine	7	7	100.0
pod	2	2	100.0
total	28	28	100.0

# For Emacs: -*- mode:cperl; eval: (folding-mode 1); coding:utf-8; -*-

package Lingua::SPA::Word2Num;
# ABSTRACT: Word 2 number conversion in SPA.

# {{{ use block

use 5.16.0;
use utf8;

use Parse::RecDescent;
use Export::Attrs;

# }}}
# {{{ var block
our $VERSION = '0.2603230';
my $parser   = spa_numerals();

# }}}

# {{{ w2n                                         convert number to text

sub w2n :Export {
    my $input = shift // return;

    return $parser->numeral($input);
}
# }}}
# {{{ spa_numerals                                 create parser for numerals

sub spa_numerals {
    return Parse::RecDescent->new(q{



      numeral:  mega
             |  kOhOd
             |  'cero'   { 0 }
             |           {   }

       number:  'un'           {  1 }
             |  'dos'          {  2 }
             |  'tres'         {  3 }
             |  'cuatro'       {  4 }
             |  'cinco'        {  5 }
             |  'seis'         {  6 }
             |  'siete'        {  7 }
             |  'ocho'         {  8 }
             |  'nueve'        {  9 }
             |  'diez'         { 10 }
             |  'once'         { 11 }
             |  'doce'         { 12 }
             |  'trece'        { 13 }
             |  'catorce'      { 14 }
             |  'quince'       { 15 }
             |  'dieciséis'    { 16 }
             |  'diecisiete'   { 17 }
             |  'dieciocho'    { 18 }
             |  'diecinueve'   { 19 }
             |  'veinte'       { 20 }
             |  'veintiun'     { 21 }
             |  'veintidós'    { 22 }
             |  'veintitrés'   { 23 }
             |  'veinticuatro' { 24 }
             |  'veinticinco'  { 25 }
             |  'veintiséis'   { 26 }
             |  'veintisiete'  { 27 }
             |  'veintiocho'   { 28 }
             |  'veintinueve'  { 29 }

         tens:  'treinta'      { 30 }
             |  'cuarenta'     { 40 }
             |  'cincuenta'    { 50 }
             |  'sesenta'      { 60 }
             |  'setenta'      { 70 }
             |  'ochenta'      { 80 }
             |  'noventa'      { 90 }

     hundreds:  'quinientos'        { 500 }
             |  'setecientos'       { 700 }
             |  'novecientos'       { 900 }
             |  number /cientos?/   { $item[1] * 100 }
             |  /cien(to)?/         { 100 }

         deca:  tens 'y' number     { $item[1] + $item[3] }
             |  tens
             |  number

        hecto:  hundreds  deca      { $item[1] + $item[2] }
             |  hundreds

          hOd:  hecto
             |  deca

         kilo:  hOd  milnotmeg hOd        { $item[1] * 1000 + $item[3] }
             |  hOd  milnotmeg            { $item[1] * 1000 }
             |       milnotmeg hOd        { 1000 + $item[2] }
             |       milnotmeg            { 1000 }

    milnotmeg:   ...!'mill' 'mil'

        kOhOd:  kilo
             |  hOd

         mega:  hOd /mill(ones|ón)/ kOhOd     { $item[1] * 1_000_000 + $item[3] }
             |  hOd /mill(ones|ón)/           { $item[1] * 1_000_000 }
    });
}

# }}}

1;

__END__