File Coverage

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

Criterion	Covered	Total	%
statement	16	16	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	23	24	95.8

package Parse::Date::Month::EN;

use 5.010001;
use strict;
use warnings;

use Exporter qw(import);

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-06-16'; # DATE
our $DIST = 'Parse-Date-Month-EN'; # DIST
our $VERSION = '0.001'; # VERSION

our @EXPORT_OK = qw(parse_date_month_en $Pat);

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

    fe => 2,
    feb => 2,
    february => 2,

    mr => 3,
    mar => 3,
    march => 3,

    ap => 4,
    apr => 4,
    april => 4,

    my => 5,
    may => 5,

    jn => 6,
    jun => 6,
    june => 6,

    jl => 7,
    jul => 7,
    july => 7,

    au => 8,
    agt => 8,
    aug => 8,
    august => 8,

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

    oc => 10,
    oct => 10,
    october => 10,

    nv => 11,
    nov => 11,
    nop => 11,
    november => 11,

    de => 12,
    dec => 12,
    december => 12,
);

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

our %SPEC;

$SPEC{parse_date_month_en} = {
    v => 1.1,
    summary => 'Parse month name from English 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_en {
    my %args = @_;
    my $text = $args{text};

    $text =~ s/^\s+//s;
    return undef unless length($text); ## no critic: Subroutines::ProhibitExplicitReturnUndef

    $month_values{lc $text};
}

1;
# ABSTRACT: Parse month name from English text

__END__