#!/usr/bin/perl
package Mail::Summary::Tools::Output::TT;
use Moose;
use Template;
has template_config => (
isa => "HashRef",
is => "rw",
default => sub { return {} },
);
has template_obj => (
isa => "Template",
is => "rw",
lazy => 1,
default => sub { Template->new( $_[0]->template_config ) },
);
has template_output => (
isa => "Any",
is => "rw",
default => sub { \*STDOUT },
);
has template_input => (
isa => "Any",
is => "rw",
required => 1,
);
sub process {
my ( $self, $summary, $vars, @args ) = @_;
$self->template_obj->process(
$self->template_input,
{
summary => $summary,
processor => $self,
%{ $vars || {} },
},
$self->template_output,
) || die $self->template_obj->error;
}
__PACKAGE__;
__END__
=pod
=head1 NAME
Mail::Summary::Tools::Output::TT -
=head1 SYNOPSIS
use Mail::Summary::Tools::Output::TT;
=head1 DESCRIPTION
=cut