File Coverage

blib/lib/Lingua/Word2Num.pm

Criterion	Covered	Total	%
statement	30	48	62.5
branch	2	14	14.2
condition	3	9	33.3
subroutine	11	12	91.6
pod	4	4	100.0
total	50	87	57.4

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

package Lingua::Word2Num;
# ABSTRACT: A wrapper for Lingua:XXX::word2num modules Lingua::Word2Num is a module for converting texts in their spoken language representation into numbers.

# {{{ use block

use 5.10.1;

use strict;
use warnings;

use Carp;
use Export::Attrs;
use Readonly;

# }}}
# {{{ var block

my  Readonly::Scalar $COPY    = 'Copyright (c) PetaMem, s.r.o. 2004-present';
our $VERSION = '0.2603230';

# templates for functional and object interface

my $template_func = 'use __PACKAGE_WITH_VERSION__ ();'."\n".
                    '$result = __PACKAGE__::__FUNCTION__($word);'."\n";

my $template_obj  = 'use __PACKAGE_WITH_VERSION__ ();'."\n".
                    'my $tmp_obj = new __PACKAGE__;'."\n".
                    '$result = $tmp_obj->__FUNCTION__("$word");'."\n";

our %known = (
    afr => {
        package  => 'Word2Num',
        version  => '',
        function =>'w2n',
        code     => $template_func,
    },
    ces => {
        package  => 'Word2Num',
        version  => '',
        function =>'w2n',
        code     => $template_func,
    },
    deu => {
        package  => 'Word2Num',
        version  => '',
        function =>'w2n',
        code     => $template_func,
    },
    eng => {
        package  => 'Word2Num',
        version  => '',
        function =>'w2n',
        code     => $template_func,
    },
    eus => {
        package  => 'Word2Num',
        version  => '',
        function => 'w2n',
        code     => $template_func,
    },
    fra => {
        package  => 'Word2Num',
        version  => '',
        function =>'w2n',
        code     => $template_func,
    },
    ind => {
        package  => 'Words2Nums',
        version  => '',
        function => 'words2nums',
        code     => $template_func,
    },
    ita => {
        package  => 'Word2Num',
        version  => '',
        function =>'w2n',
        code     => $template_func,
    },
    jpn => {
        package  => 'Word2Num',
        version  => '',
        function => 'w2n',
        code     => $template_func,
    },
    nld => {
        package  => 'Word2Num',
        version  => '',
        function => 'w2n',
        code     => $template_func,
    },
    nor => {
        package  => 'Word2Num',
        version  => '',
        function => 'w2n',
        code     => $template_func,
    },
    pol => {
        package  => 'Word2Num',
        version  => '',
        function => 'w2n',
        code     => $template_func,
    },
    por => {
        package  => 'Words2Nums',
        version  => '',
        function => 'word2num',
        code     => $template_func,
    },
    rus => {
        package  => 'Word2Num',
        version  => '',
        function => 'w2n',
        code     => $template_func,
    },
    spa => {
        package  => 'Word2Num',
        version  => '',
        function =>'w2n',
        code     => $template_func,
    },
    swe => {
        package  => 'Word2Num',
        version  => '',
        function => 'w2n',
        code     => $template_func,
    },
    zho => {
        package  => 'Word2Num',
        version  => '',
        function => 'w2n',
        code     => $template_func,
    },
);

# }}}

# {{{ new                       constructor

sub new {
    return bless {}, shift;
}

# }}}
# {{{ cardinal                  convert text to number

sub cardinal :Export {
    my $self   = ref($_[0]) ? shift : __PACKAGE__->new();
    my $result = '';

    my $lang   = shift // return $result;
    my $word   = shift // return $result;

    my @langs = ($lang eq '*')
              ? sort keys %known
              : (lc $lang)
              ;

    return $result if (!defined $known{$langs[0]});

    for my $lang (@langs) {
        eval $self->preprocess_code($lang);                 ## no critic 'eval'
        carp $@ if $@;

        return $result if (defined $result && $result ne '');
    }

    return '';
}

# }}}
# {{{ known_langs               list of currently supported languages

sub known_langs :Export {
    return [sort keys %known];
}

# }}}
# {{{ preprocess_code           prepare code for evaluation

sub preprocess_code {
    my $self = shift;
    my $lang = shift // return;

return if !defined $known{$lang};

    my $result                = $known{$lang}{code};
    my $pkg_name              = 'Lingua::' . uc($lang) . '::' . $known{$lang}{package};
    my $pkg_name_with_version = $known{$lang}{version} ne ''
                              ? "$pkg_name $known{$lang}{version}" : $pkg_name;
    my $function              = $known{$lang}{function};

    $result =~ s/__PACKAGE_WITH_VERSION__/$pkg_name_with_version/g;
    $result =~ s/__PACKAGE__/$pkg_name/g;
    $result =~ s/__FUNCTION__/$function/g;
    $result =~ s/__CHARSET__/$known{$lang}{charset}/g;

    return $result;
}

# }}}

1;
__END__