File Coverage

lib/Any/Template/Backend/TemplateToolkit.pm

Criterion	Covered	Total	%
statement	32	46	69.5
branch	3	16	18.7
condition			n/a
subroutine	9	14	64.2
pod	6	8	75.0
total	50	84	59.5

package Any::Template::Backend::TemplateToolkit;

use strict;
use Template;
use Any::Template::Backend;
use vars qw(@ISA);
@ISA = qw(Any::Template::Backend);

use vars qw($VERSION);
$VERSION = sprintf"%d.%03d", q$Revision: 1.7 $ =~ /: (\d+)\.(\d+)/;

sub new {
	my ($class, $options) = @_;
	my $self = bless {}, $class;
	my $marshalled = $self->_marshall_options($options);
	$self->{engine} = new Template($marshalled) or die($Template::ERROR);
	return $self;
}

sub native_object {
	my $self = shift;
	return $self->{engine};
}

sub process_to_string {
	my ($self, $data, $ref_buffer) = @_;
	$$ref_buffer = '';
	TRACE("Input", $self->{input});
	$self->{engine}->process($self->{input}, $data, $ref_buffer) or die($self->{engine}->error());
}

sub process_to_filehandle {
	my ($self, $data, $fh) = @_;
	TRACE("Input", $self->{input});
	$self->{engine}->process($self->{input}, $data, $fh) or die($self->{engine}->error());
}

sub process_to_file {
	my ($self, $data, $filepath) = @_;
	TRACE("Input", $self->{input});
	$self->{engine}->process($self->{input}, $data, $filepath) or die($self->{engine}->error());
}

sub process_to_sub {
	my ($self, $data, $coderef) = @_;
	return $self->{engine}->process($self->{input}, $data, $coderef) or die($self->{engine}->error());
}

#
# This marshalls the Any::Template ctor options into the form required for Template-Toolkit
#
sub _marshall_options {
	my $self = shift;
	my $at_options = shift;
	my %tt_options = %{$at_options->{Options}};
	if(exists $at_options->{String}) {
		$self->{input} = \$at_options->{String};
	}
	elsif(exists $at_options->{Filehandle}) {
		$self->{input} = $at_options->{Filehandle};
	}
	elsif(exists $at_options->{Filename}) {
		$self->{input} = $at_options->{Filename};
	}
	else {
		die("No Filename, Filehandle or String");
	}
	return \%tt_options;
}

#Log::Trace stubs
sub TRACE{}
sub DUMP{}

1;


=head1 NAME

Any::Template::Backend::TemplateToolkit - Any::Template backend for Template Toolkit

=head1 SYNOPSIS

	use Any::Template;
	my $template = new Any::Template(
		Backend => 'TemplateToolkit',
		Options => {
			'POST_CHOMP' => 1, #Template ctor options
		},
		File => 'page.tmpl'
	);
	my $output = $template->process($data);

=head1 DESCRIPTION

All input and output methods are implemented using Template Toolkit's native features so they should
all be pretty efficient.

=head1 SEE ALSO

L, L, L