File Coverage

blib/lib/Cot/Plugin/TT.pm

Criterion	Covered	Total	%
statement	23	32	71.8
branch	0	4	0.0
condition	0	2	0.0
subroutine	8	10	80.0
pod	1	2	50.0
total	32	50	64.0

package Cot::Plugin::TT;
use strict;
use warnings;
use 5.008005;
our $VERSION = "0.01";
use Template;
use File::Spec;
use parent qw(Cot::Plugin);
use Carp;

sub init {
    my ( $self, $c ) = @_;
    $c->tt($self);
}

sub _root {
    File::Spec->catdir( $ENV{COT_ROOT} || '.', "tmpl" );
}

sub output {
    my $self = shift;
    my $ttfile = File::Spec->catfile( __PACKAGE__->_root, shift );
    croak "template file not found.[$ttfile]" unless ( -f $ttfile );
    my $param  = shift;
    my $output = '';
    my $tt =
      Template->new( { INCLUDE_PATH => __PACKAGE__->_root, ABSOLUTE => 1, } );
    $tt->process( $ttfile, $param, \$output )
      or croak $tt->error;
    return $output;
}

1;
__END__