File Coverage

blib/lib/Template/Plugin/DateTime/Format.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	2	4	50.0
condition	2	2	100.0
subroutine	9	9	100.0
pod	2	2	100.0
total	46	48	95.8

package Template::Plugin::DateTime::Format;
$Template::Plugin::DateTime::Format::VERSION = '0.03';
# ABSTRACT: format DateTime objects from inside TT with DateTime::Format-style formatters

use 5.006;
use strict;
use warnings;
use DateTime;
use Class::Load;

use base 'Template::Plugin';

sub new {
    my ($class, $context, $formatter_class, $new_args, $format_args) = @_;
    Class::Load::load_class($formatter_class || die 'need class name');

    my @new_args = ref $new_args eq 'ARRAY' ? @$new_args : $new_args;
    { no warnings;
      $format_args = [ $format_args ] unless ref $format_args eq 'ARRAY';
    }

    bless {
	_CONTEXT    => $context,
        formatter   => $formatter_class->new(@new_args),
        format_args => $format_args,
    }, $class;
}

sub format {
    my ($self, $date) = @_;

    my $fmt = $self->{formatter};
    my @args = $self->{format_args};
    return $fmt->format_datetime($date, @args);
}

1;

__END__