File Coverage

blib/lib/Lingua/ID/Number/Format/MixWithWords.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch			n/a
condition	3	7	42.8
subroutine	11	11	100.0
pod	0	1	0.0
total	49	54	90.7

package Lingua::ID::Number::Format::MixWithWords;

our $DATE = '2016-06-14'; # DATE
our $VERSION = '0.07'; # VERSION

use 5.010001;
use strict;
use warnings;

use parent qw(Lingua::Base::Number::Format::MixWithWords);
require Lingua::EN::Number::Format::MixWithWords;

use Math::Round qw(nearest);
use Number::Format;
use POSIX qw(floor log10);
use Perinci::Sub::Util qw(gen_modified_sub);

use Exporter qw(import);
our @EXPORT_OK = qw(format_number_mix);

our %SPEC;

gen_modified_sub(
    output_name => 'format_number_mix',
    summary => 'Format number to a mixture of numbers and words (e.g. "12,3 juta")',
    base_name => 'Lingua::EN::Number::Format::MixWithWords::format_number_mix',
    remove_args => ['scale'],
    output_code => sub {
        my %args = @_;

        my $f = __PACKAGE__->new(
            num_decimal   => $args{num_decimal},
            min_format    => $args{min_format},
            min_fraction  => $args{min_fraction},
        );
        $f->_format($args{num});
    }
);

my $id_names = {
    #2   => 'ratus',
    3   => 'ribu',
    6   => 'juta',
    9   => 'miliar',
    12   => 'triliun',
    15   => 'kuadriliun',
    18   => 'kuintiliun',
    21   => 'sekstiliun',
    24   => 'septiliun',
    27   => 'oktiliun',
    30   => 'noniliun',
    33   => 'desiliun',
    36   => 'undesiliun',
    39   => 'duodesiliun',
    42   => 'tredesiliun',
    45   => 'kuatuordesiliun',
    48   => 'kuindesiliun',
    51   => 'seksdesiliun',
    54   => 'septendesiliun',
    57   => 'oktodesiliun',
    60   => 'novemdesiliun',
    63   => 'vigintiliun',
    100  => 'googol',
    303  => 'sentiliun',
};

sub new {
    my ($class, %args) = @_;
    $args{decimal_point} //= ",";
    $args{thousands_sep} //= ".";
    $args{names}         //= $id_names;

    # XXX should use "SUPER"
    my $self = Lingua::Base::Number::Format::MixWithWords->new(%args);
    bless $self, $class;
}

1;
# ABSTRACT: Format number to a mixture of numbers and words (e.g. "12,3 juta")

__END__