File Coverage

blib/lib/Lingua/TokiPona/Numbers.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	15	16	93.7
condition	2	3	66.6
subroutine	8	8	100.0
pod	2	2	100.0
total	61	63	96.8

package Lingua::TokiPona::Numbers;

use 5.008_001;
use strict;
use warnings;
use Readonly;
use Scalar::Util qw( looks_like_number );

use base qw( Exporter );
our @EXPORT_OK = qw( num2tokipona num2tokipona_ordinal );
our %EXPORT_TAGS = ( all => \@EXPORT_OK );

our $VERSION = '0.03';

Readonly my $EMPTY_STR        => q{};
Readonly my $SPACE            => q{ };
Readonly my $MINUS            => q{-};
Readonly my $ORDINAL_PARTICLE => q{nanpa};
Readonly my @NAMES            => qw< ala wan tu mute ale >;

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

    return unless looks_like_number $number;
    return $NAMES[0] if $number eq 'NaN';

    $number =~ s{^ ( [+-] ) }{}x;
    my $sign = $1 || $EMPTY_STR;

    return do {
        if    ($number eq 'inf') { $NAMES[4] }
        elsif ($number == 0    ) { $NAMES[0] }
        elsif ($number <= 1    ) { $NAMES[1] }
        elsif ($number <= 2    ) { $NAMES[2] }
        else                     { $NAMES[3] }
    } . ($sign eq $MINUS ? $SPACE . $NAMES[0] : $EMPTY_STR);
}

sub num2tokipona_ordinal {
    my ($number) = @_;
    my $name = num2tokipona($number);

    return unless $name;
    return "$ORDINAL_PARTICLE $name";
}

1;

__END__