File Coverage

blib/lib/Terse/View/TT.pm

Criterion	Covered	Total	%
statement	14	41	34.1
branch	0	16	0.0
condition	0	6	0.0
subroutine	5	8	62.5
pod	0	3	0.0
total	19	74	25.6

package Terse::View::TT;

use 5.006;
use strict;
use warnings;
our $VERSION = 0.01;

use base qw/Terse::View/;

use Template;

sub build_view {
	my ($self, $config) = @_;
	$config = $self->app_config = {
		EVAL_PERL          => 0,
		INCLUDE_PATH	   => 'root/src',
		TEMPLATE_EXTENSION => 'tt',
		CLASS              => 'Template',
		%{ $config }
	};
	$self->{template} = $config->{CLASS}->new($config);
	return $self;
}

sub render {
	my ($self, $t, $data) = @_;
	my $template = $data->{template};
	if (!$template) {
		$template = $t->response_namespace;
		my $handler = $t->response_handler;
		if ($template !~ m/$handler$/) {
			$template .= '/' . $handler;
		}
		$template .= '.' . $self->app_config->TEMPLATE_EXTENSION;
	}
	unless ($template) {
		return $self->can('handle_error') ? $self->handle_error('Error - Cannot find template') : ('text/html', 'Error - Cannot find template');
	}
	$self->template->{SERVICE}->{WRAPPER} = ($data->{NO_WRAPPER} || (!$data->WRAPPER && ! $self->app_config->WRAPPER))
		? []
		: [($data->WRAPPER || $self->app_config->WRAPPER) . '.' . $self->app_config->TEMPLATE_EXTENSION];
	my $output = eval { $self->render_template($template, $data) };
	if ($@) {
		return $self->can('handle_error') ? $self->handle_error($@) : ('text/html', $@);
	}
	return ('text/html', $output);
}

sub render_template {
	my ($self, $template, $data) = @_;
	my $output;
	unless ($self->template->process( $template, {%{$data}}, \$output )) {
		die $self->template->error;
	}
	return $output;
}

1;

__END__