File Coverage

blib/lib/Parse/Date/Month/ID.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	1	2	50.0
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	19	20	95.0

package Parse::Date::Month::ID;

our $DATE = '2018-06-16'; # DATE
our $VERSION = '0.001'; # VERSION

use 5.010001;
use strict;
use warnings;

require Exporter;
our @ISA       = qw(Exporter);
our @EXPORT_OK = qw(parse_date_month_id $Pat);

our %month_values = (
    jan => 1,
    januari => 1,
    january => 1,

    feb => 2,
    peb => 2,
    februari => 2,
    pebruari => 2,
    february => 2,

    mar => 3,
    mrt => 3,
    maret => 3,
    march => 3,

    apr => 4,
    april => 4,

    mei => 5,
    may => 5,

    jun => 6,
    juni => 6,
    june => 6,

    jul => 7,
    juli => 7,
    july => 7,

    agu => 8,
    aug => 8,
    agt => 8,
    agustus => 8,
    august => 8,

    sep => 9,
    sept => 9,
    september => 9,

    okt => 10,
    oct => 10,
    oktober => 10,
    october => 10,

    nov => 11,
    nop => 11,
    november => 11,
    nopember => 11,

    des => 12,
    dec => 12,
    desember => 12,
    december => 12,
);

our $Pat = join("|", sort keys %month_values); $Pat = qr/(?:$Pat)/;

our %SPEC;

$SPEC{parse_date_month_id} = {
    v => 1.1,
    summary => 'Parse month name from Indonesian text',
    description => <<'_',

Returns undef when month name is unrecognized.

_
    args    => {
        text => {
            summary => 'The input text that contains month name',
            schema => 'str*',
            pos => 0,
            req => 1,
        },
    },
    result_naked => 1,
};
sub parse_date_month_id {
    my %args = @_;
    my $text = $args{text};

    $text =~ s/^\s+//s;
    return undef unless length($text);

    $month_values{lc $text};
}

1;
# ABSTRACT: Parse month name from Indonesian text

__END__