File Coverage

blib/lib/Lingua/AFR/Word2Num.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition	1	2	50.0
subroutine	8	8	100.0
pod	2	2	100.0
total	33	34	97.0

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

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

# {{{ use block

use 5.16.0;
use utf8;

use Carp;

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

# }}}
# {{{ variable declarations
our $VERSION = '0.2603230';

my $parser = afr_numerals();

# }}}

# {{{ w2n                                         convert number to text

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

    $input =~ s/,//g;
    $input =~ s/ //g;

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

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


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

      number:   'viertien'   { 14 }
              | 'vyftien'    { 15 }
              | 'sestien'    { 16 }
              | 'sewentien'  { 17 }
              | 'agtien'     { 18 }
              | 'negentien'  { 19 }
              | 'een'        { 1  }
              | 'twee'       { 2  }
              | 'drie'       { 3  }
              | 'vier'       { 4  }
              | 'vyf'        { 5  }
              | 'ses'        { 6  }
              | 'sewe'       { 7  }
              | 'agt'        { 8  }
              | 'nege'       { 9  }
              | 'tien'       { 10 }
              | 'elf'        { 11 }
              | 'twaalf'     { 12 }
              | 'dertien'    { 13 }

      tens:     'twintig'  { 20 }
              | 'dertig'   { 30 }
              | 'viertig'  { 40 }
              | 'vyftig'   { 50 }
              | 'sestig'   { 60 }
              | 'sewentig' { 70 }
              | 'tagtig'   { 80 }
              | 'negentig' { 90 }

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

      hecto:    number 'honderd' /(en)?/ deca { $item[1] * 100 + $item[4] }
              | number 'honderd'              { $item[1] * 100 }

    hOd:          hecto
                | deca

      kilo:    hOd 'duisend' /(en)?/ hOd   { $item[1] * 1000 + $item[4] }
             | hOd 'duisend'               { $item[1] * 1000 }

    kOhOd:   kilo
           | hOd

      mega:    hOd 'miljoen' /(en)?/ kOhOd { $item[1] * 1_000_000 + $item[4] }
             | hOd 'miljoen'               { $item[1] * 1_000_000 }
    });
}

# }}}

1;

__END__