File Coverage

blib/lib/Lingua/GLE/Num2Word.pm

Criterion	Covered	Total	%
statement	63	64	98.4
branch	32	34	94.1
condition	7	9	77.7
subroutine	9	10	90.0
pod	2	2	100.0
total	113	119	94.9

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

package Lingua::GLE::Num2Word;
# ABSTRACT: Number to word conversion in Irish (Gaeilge)

use 5.16.0;
use utf8;
use warnings;

# {{{ use block

use Carp;
use Export::Attrs;

# }}}
# {{{ variable declarations

our $VERSION = '0.2603300';

# Irish (Gaeilge) uses a decimal counting system in modern usage.
# The counting form uses the "a" prefix before unit digits.
# Going up to 999_999_999.

my @units = qw(náid a_haon a_dó a_trí a_ceathair a_cúig a_sé a_seacht a_hocht a_naoi);
my @tens  = (undef, 'a_deich', 'fiche', 'tríocha', 'daichead', 'caoga',
             'seasca', 'seachtó', 'ochtó', 'nócha');

# }}}

# {{{ num2gle_cardinal                 convert number to text

sub num2gle_cardinal :Export {
    my $num = shift;

    croak 'You should specify a number from interval [0, 999_999_999]'
        if    !defined $num
           || $num !~ m{\A\d+\z}xms
           || $num < 0
           || $num > 999_999_999;

    # Zero
    return 'náid' if $num == 0;

    my @parts;

    # Millions
    if ($num >= 1_000_000) {
        my $millions = int($num / 1_000_000);
        push @parts, _cardinal_below_1000($millions) if $millions > 1;
        push @parts, 'milliún';
        $num %= 1_000_000;
    }

    # Thousands
    if ($num >= 1000) {
        my $thousands = int($num / 1000);
        push @parts, _cardinal_below_1000($thousands) if $thousands > 1;
        push @parts, 'míle';
        $num %= 1000;
    }

    # Remainder below 1000
    if ($num > 0) {
        push @parts, _cardinal_below_1000($num);
    }

    my $result = join(' ', @parts);
    $result =~ s/_/ /g;
    return $result;
}

# }}}
# {{{ _cardinal_below_1000             internal: handle 1-999

sub _cardinal_below_1000 {
    my $num = shift;

    return if $num == 0;

    my @parts;

    # Hundreds
    if ($num >= 100) {
        my $h = int($num / 100);
        if ($h == 1) {
            push @parts, 'céad';
        }
        else {
            push @parts, $units[$h], 'céad';
        }
        $num %= 100;
    }

    # Tens and units
    if ($num > 0) {
        push @parts, _cardinal_below_100($num);
    }

    return @parts;
}

# }}}
# {{{ _cardinal_below_100              internal: handle 1-99

sub _cardinal_below_100 {
    my $num = shift;

    return if $num == 0;

    # 1-9: counting form
    if ($num < 10) {
        return $units[$num];
    }

    # 10: a deich
    if ($num == 10) {
        return 'a_deich';
    }

    # 11-19: unit + déag (12 uses dhéag)
    if ($num < 20) {
        my $u = $num - 10;
        my $deag = ($u == 2) ? 'dhéag' : 'déag';
        return $units[$u] . ' ' . $deag;
    }

    # 20-99
    my $t = int($num / 10);
    my $u = $num % 10;

    if ($u == 0) {
        return $tens[$t];
    }

    # tens + a + unit
    return $tens[$t] . ' ' . $units[$u];
}

# }}}

# {{{ capabilities              declare supported features

sub capabilities {
    return {
        cardinal => 1,
        ordinal  => 0,
    };
}

# }}}
1;

__END__