File Coverage

blib/lib/Dancer/Plugin/Formatter.pm

Criterion	Covered	Total	%
statement	27	43	62.7
branch	6	12	50.0
condition	3	10	30.0
subroutine	8	14	57.1
pod			n/a
total	44	79	55.7

package Dancer::Plugin::Formatter;

our @ISA = qw();
our $VERSION = '0.05';

use strict;
use warnings;

use Dancer ':syntax';
use Dancer::Plugin;

use Date::Parse;
use POSIX;

# see man 3 strftime
our $default_date_format = '%x'; # The preferred date representation for the current locale without the time.
our $default_time_format = '%c'; # The preferred date and time representation for the current locale.

register 'format_date' => sub {
    my $format = shift // $default_date_format;
    return sub {
        my $date = shift;
        return undef unless defined $date;
        return '' if $date eq '';

        my @parts = map { $_ //= 0 } strptime $date;
        # undefined parts set to 0 to prevent error
        # Use of uninitialized value in subroutine entry

        @parts = localtime $date
            if $date =~ /^\d+$/; # unixtime - seconds since epoch

        return POSIX::strftime $format, @parts;
    }
};

register 'format_time' => sub {
    my $format = shift // $default_time_format;
    return sub {
        my $time = shift;
        return undef unless defined $time;
        return '' if $time eq '';

        my @parts = map { $_ //= 0 } strptime $time;
        # undefined parts set to 0 to prevent error
        # Use of uninitialized value in subroutine entry

        @parts = localtime $time
            if $time =~ /^\d+$/; # unixtime - seconds since epoch

        return POSIX::strftime $format, @parts;
    }
};

register 'set_default_date_format' => sub {
    $default_date_format = shift;
    return;
};

register 'set_default_time_format' => sub {
    $default_time_format = shift;
    return;
};


register 'format' => sub {
    my $format = shift;
    return sub {
        return sprintf $format, @_;
    };
};

register_plugin;

1;

__END__