root/lang/perl/Nanto/trunk/lib/Nanto/View/TT.pm @ 10530

package Nanto::View::TT;
use Moose;
use String::CamelCase qw/decamelize/;
use Template;
use Carp;

with 'Nanto::Role::View';

has tt_instance => (
    is      => 'rw',
    isa     => 'Template',
    default => sub { Template->new },
);

has tmpl_fname => (
    is      => 'rw',
    isa     => 'Str',
    default => '',
);

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

    $self->tt_instance->process( $self->tmpl_fname, $self->params, \my $out ) or croak $self->tt_instance->error;
    $out;
}

1;