File Coverage

blib/lib/Date/Extract/ID.pm

Criterion	Covered	Total	%
statement	23	26	88.4
branch	4	8	50.0
condition	1	3	33.3
subroutine	5	5	100.0
pod	2	2	100.0
total	35	44	79.5

package Date::Extract::ID;

our $DATE = '2016-04-06'; # DATE
our $VERSION = '0.001'; # VERSION

use 5.010001;
use strict;
use warnings;

sub new {
    my $class = shift;
    my %args = (
        format => 'DateTime',
        returns => 'first',
        prefers => 'nearest',
        time_zone => 'floating',
        @_,
    );

    if ($args{format} ne 'DateTime') {
        die "Invalid `format` passed to constructor: expected `DateTime'.";
    }

    if ($args{returns} ne 'first') {
        die "Invalid `returns` passed to constructor: expected `first'.";
    }

    if ($args{prefers} ne 'nearest') {
        die "Invalid `prefers` passed to constructor: expected `nearest'.";
    }

    my $self = bless \%args, ref($class) || $class;

    return $self;
}

sub extract {
    state $parser = do {
        require DateTime::Format::Alami::ID;
        DateTime::Format::Alami::ID->new;
    };

    my $self = shift;
    my $text = shift;
    my %args = @_;

    # using extract as a class method
    $self = $self->new
        if !ref($self);

    $parser->parse_datetime($text);
}

1;
# ABSTRACT: Extract probable dates from Indonesian text

__END__