HTML::Shakan::Inflator::DateTime - inflate field value to DateTime instance

HTML-Shakan documentation Contained in the HTML-Shakan distribution.

Index

Code Index:

NAME

Top

HTML::Shakan::Inflator::DateTime - inflate field value to DateTime instance

AUTHOR

Top

Tokuhiro Matsuno

SEE ALSO

Top

DateTime

HTML-Shakan documentation Contained in the HTML-Shakan distribution. 
package HTML::Shakan::Inflator::DateTime;
use Any::Moose;
use DateTime;
use DateTime::Format::HTTP;

has 'time_zone' => (
    is  => 'ro',
    isa => 'Str',
);

sub inflate {
    my ($self, $val) = @_;

    my $dt = DateTime::Format::HTTP->parse_datetime($val);
    if (my $tz = $self->time_zone) {
        $dt->set_time_zone($tz);
    }
    return $dt;
}

no Any::Moose;
__PACKAGE__->meta->make_immutable;
__END__