File Coverage

blib/lib/Dancer/Plugin/Formatter.pm

Criterion	Covered	Total	%
statement	26	41	63.4
branch	4	8	50.0
condition	3	10	30.0
subroutine	8	14	57.1
pod			n/a
total	41	73	56.1

package Dancer::Plugin::Formatter;

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

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
		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
		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__