File Coverage

blib/lib/Lingua/MKD/Num2Word.pm

Criterion	Covered	Total	%
statement	60	104	57.6
branch	32	64	50.0
condition	14	24	58.3
subroutine	9	11	81.8
pod	3	3	100.0
total	118	206	57.2

# For Emacs: -*- mode:cperl; mode:folding; coding:utf-8; -*-

package Lingua::MKD::Num2Word;
# ABSTRACT: Number to word conversion in Macedonian

use 5.16.0;
use utf8;
use warnings;

# {{{ use block

use Carp;
use Export::Attrs;

# }}}
# {{{ var block
our $VERSION = '0.2603300';

my %token1 = qw( 0 нула          1 еден         2 два
                  3 три           4 четири        5 пет
                  6 шест          7 седум         8 осум
                  9 девет         10 десет        11 единаесет
                  12 дванаесет    13 тринаесет    14 четиринаесет
                  15 петнаесет    16 шестнаесет   17 седумнаесет
                  18 осумнаесет   19 деветнаесет
                );
my %token2 = qw( 20 дваесет      30 триесет      40 четириесет
                  50 педесет      60 шеесет       70 седумдесет
                  80 осумдесет    90 деведесет
                );
my %token3 = ( 100, 'сто',             200, 'двесте',         300, 'триста',
               400, 'четиристотини',    500, 'петстотини',     600, 'шестстотини',
               700, 'седумстотини',     800, 'осумстотини',    900, 'деветстотини'
             );

# }}}

# {{{ _num_to_words                    internal: convert 1-999 to words

sub _num_to_words {
    my ($number) = @_;

    return $token1{$number} if exists $token1{$number};

    if ($number < 100) {
        my $rem = $number % 10;
        if ($rem == 0) {
            return $token2{$number};
        }
        return $token2{$number - $rem} . ' и ' . $token1{$rem};
    }

    my $hund_rem = $number % 100;
    my $hund_val = $number - $hund_rem;

    if ($hund_rem == 0) {
        return $token3{$hund_val};
    }

    # hundreds + remainder: "и" goes before the last component
    # 101 = сто и еден,  120 = сто и дваесет,  123 = сто дваесет и три
    my $tens_rem = $hund_rem % 10;
    if ($hund_rem < 20 || $tens_rem == 0) {
        # single component remainder: hundred "и" remainder
        return $token3{$hund_val} . ' и ' . _num_to_words($hund_rem);
    }

    # two-component remainder (e.g. 23): hundred tens "и" unit
    return $token3{$hund_val} . ' ' . $token2{$hund_rem - $tens_rem} . ' и ' . $token1{$tens_rem};
}

# }}}

# {{{ num2mkd_cardinal                 number to string conversion

sub num2mkd_cardinal :Export {
    my $number = shift;

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

    return $token1{0} if $number == 0;

    my $result = '';

    # {{{ millions
    if ($number >= 1_000_000) {
        my $millions = int($number / 1_000_000);
        $number %= 1_000_000;

        if ($millions == 1) {
            $result = 'еден милион';
        }
        else {
            $result = _num_to_words($millions) . ' милиони';
        }
    }
    # }}}

    # {{{ thousands
    if ($number >= 1_000) {
        my $thousands = int($number / 1_000);
        $number %= 1_000;

        $result .= ' ' if $result ne '';

        if ($thousands == 1) {
            $result .= 'илјада';
        }
        elsif ($thousands == 2) {
            $result .= 'две илјади';
        }
        else {
            $result .= _num_to_words($thousands) . ' илјади';
        }
    }
    # }}}

    # {{{ remainder (0-999)
    if ($number > 0) {
        if ($result ne '') {
            # "и" before remainder when there is no compound hundreds group:
            # i.e. remainder < 100 (no hundreds at all) or round hundreds (100,200,...,900)
            if ($number < 100 || $number % 100 == 0) {
                $result .= ' и ' . _num_to_words($number);
            }
            else {
                $result .= ' ' . _num_to_words($number);
            }
        }
        else {
            $result = _num_to_words($number);
        }
    }
    # }}}

    return $result;
}

# }}}

# {{{ num2mkd_ordinal           number to ordinal string conversion

sub num2mkd_ordinal :Export {
    my $number = shift;

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

    # Irregular ordinals 0-10
    # Macedonian ordinals (masculine): прв, втор, трет, четврт, пет + -ти suffix
    my %irregular = (
        0  => 'нулти',
        1  => 'прв',
        2  => 'втор',
        3  => 'трет',
        4  => 'четврт',
        5  => 'петти',
        6  => 'шести',
        7  => 'седми',
        8  => 'осми',
        9  => 'деветти',
        10 => 'десетти',
    );

    return $irregular{$number} if exists $irregular{$number};

    # Teens ordinals 11-19
    my %teens = (
        11 => 'единаесетти',
        12 => 'дванаесетти',
        13 => 'тринаесетти',
        14 => 'четиринаесетти',
        15 => 'петнаесетти',
        16 => 'шестнаесетти',
        17 => 'седумнаесетти',
        18 => 'осумнаесетти',
        19 => 'деветнаесетти',
    );

    return $teens{$number} if exists $teens{$number};

    # Tens ordinals
    my %tens_ord = (
        20 => 'дваесетти',
        30 => 'триесетти',
        40 => 'четириесетти',
        50 => 'педесетти',
        60 => 'шеесетти',
        70 => 'седумдесетти',
        80 => 'осумдесетти',
        90 => 'деведесетти',
    );

    # Hundreds ordinals
    my %hundreds_ord = (
        100 => 'стоти',
        200 => 'двестоти',
        300 => 'тристоти',
        400 => 'четиристотинити',
        500 => 'петстотинити',
        600 => 'шестстотинити',
        700 => 'седумстотинити',
        800 => 'осумстотинити',
        900 => 'деветстотинити',
    );

    # For numbers >= 1_000_000
    if ($number >= 1_000_000) {
        my $millions = int($number / 1_000_000);
        my $remainder = $number % 1_000_000;
        if ($remainder == 0) {
            if ($millions == 1) {
                return 'милионити';
            }
            return _num_to_words($millions) . ' милионити';
        }
        my $prefix = ($millions == 1) ? 'еден милион' :
                     _num_to_words($millions) . ' милиони';
        return $prefix . ' ' . num2mkd_ordinal($remainder);
    }

    if ($number >= 1_000) {
        my $thousands = int($number / 1_000);
        my $remainder = $number % 1_000;
        if ($remainder == 0) {
            if ($thousands == 1) {
                return 'илјадити';
            }
            return _num_to_words($thousands) . ' илјадити';
        }
        my $thou_cardinal;
        if ($thousands == 1) {
            $thou_cardinal = 'илјада';
        }
        elsif ($thousands == 2) {
            $thou_cardinal = 'две илјади';
        }
        else {
            $thou_cardinal = _num_to_words($thousands) . ' илјади';
        }
        return $thou_cardinal . ' ' . num2mkd_ordinal($remainder);
    }

    if ($number >= 100) {
        my $h = int($number / 100) * 100;
        my $remainder = $number % 100;
        if ($remainder == 0) {
            return $hundreds_ord{$h};
        }
        return $token3{$h} . ' ' . num2mkd_ordinal($remainder);
    }

    # 20-99 compound
    if ($number >= 20) {
        my $t = int($number / 10) * 10;
        my $remainder = $number % 10;
        if ($remainder == 0) {
            return $tens_ord{$t};
        }
        # Macedonian compound: tens "и" unit-ordinal
        return $tens_ord{$t} . ' и ' . $irregular{$remainder};
    }

    # Should not reach here
    return;
}

# }}}

# {{{ capabilities              declare supported features

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

# }}}
1;

__END__