root/lang/perl/App-Hachero/trunk/lib/App/Hachero/Plugin/Output/TT.pm @ 19782

package App::Hachero::Plugin::Output::TT;
use strict;
use warnings;
use base qw(App::Hachero::Plugin::Base);
use Template;
use IO::All;

sub output : Hook {
    my ($self, $context, $args) = @_;
    my $tt_file = $self->config->{config}->{template};
    my $out_file = $self->config->{config}->{out};
    my $tt = Template->new;
    my $template < io $tt_file;
    $tt->process(\$template, $context, \my $out);
    $out > io $out_file;
}

1;
__DATA__