Foodloop-Server/lib/Pear/LocalLoop/Plugin/Datetime.pm

package Pear::LocalLoop::Plugin::Datetime;
use Mojo::Base 'Mojolicious::Plugin';

use DateTime::Format::Strptime;

sub register {
    my ( $plugin, $app, $conf ) = @_;

    $app->helper(
        human_datetime_parser => sub {
            return DateTime::Format::Strptime->new( pattern => '%x %X' );
        }
    );

    $app->helper(
        format_human_datetime => sub {
            my ( $c, $datetime_obj ) = @_;
            return $c->human_datetime_parser->format_datetime( $datetime_obj, );
        }
    );

    $app->helper(
        iso_datetime_parser => sub {
            return DateTime::Format::Strptime->new(
                pattern => '%Y-%m-%dT%H:%M:%S.%3N%z' );
        }
    );

    $app->helper(
        iso_date_parser => sub {
            return DateTime::Format::Strptime->new( pattern => '%Y-%m-%d' );
        }
    );

    $app->helper(
        iso_month_parser => sub {
            return DateTime::Format::Strptime->new( pattern => '%Y-%m' );
        }
    );

    $app->helper(
        parse_iso_date => sub {
            my ( $c, $date_string ) = @_;
            return $c->iso_date_parser->parse_datetime( $date_string, );
        }
    );

    $app->helper(
        format_iso_date => sub {
            my ( $c, $datetime_obj ) = @_;
            return $c->iso_date_parser->format_datetime( $datetime_obj, );
        }
    );

    $app->helper(
        parse_iso_month => sub {
            my ( $c, $date_string ) = @_;
            return $c->iso_month_parser->parse_datetime( $date_string, );
        }
    );

    $app->helper(
        format_iso_month => sub {
            my ( $c, $datetime_obj ) = @_;
            return $c->iso_month_parser->format_datetime( $datetime_obj, );
        }
    );

    $app->helper(
        parse_iso_datetime => sub {
            my ( $c, $date_string ) = @_;
            return $c->iso_datetime_parser->parse_datetime( $date_string, );
        }
    );

    $app->helper(
        format_iso_datetime => sub {
            my ( $c, $datetime_obj ) = @_;
            return unless defined $datetime_obj;
            return $c->iso_datetime_parser->format_datetime( $datetime_obj, );
        }
    );

    $app->helper(
        db_datetime_parser => sub {
            return shift->schema->storage->datetime_parser;
        }
    );

    $app->helper(
        format_db_datetime => sub {
            my ( $c, $datetime_obj ) = @_;
            $datetime_obj->set_time_zone('UTC');
            return $c->db_datetime_parser->format_datetime( $datetime_obj, );
        }
    );

}

1;