use base 'Maypole::View::Base';
use Maypole::Constants;
use Template;
+use File::Spec::Functions qw(catdir tmpdir);
+
+use strict;
+our $VERSION = "1." . sprintf "%04d", q$Rev$ =~ /: (\d+)/;
sub template {
my ( $self, $r ) = @_;
- my $template = Template->new( { INCLUDE_PATH => [ $self->paths($r) ] } );
+
+ unless ($self->{tt}) {
+ my $view_options = $r->config->view_options || {};
+ $self->{provider} = Template::Provider->new($view_options);
+ $self->{tt} = Template->new({
+ %$view_options,
+ LOAD_TEMPLATES => [ $self->{provider} ],
+ });
+ }
+
+ $self->{provider}->include_path([ $self->paths($r) ]);
+
my $output;
- if ( $template->process( $r->template, { $self->vars($r) }, \$output ) ) {
+ if ($self->{tt}->process( $r->template, { $self->vars($r) }, \$output )) {
$r->{output} = $output;
return OK;
}
else {
- $r->{error} = $template->error;
+ $r->{error} = $self->{tt}->error;
return ERROR;
}
}
BeerDB->config->view("Maypole::View::TT"); # The default anyway
+ # Set some Template Toolkit options
+ BeerDB->config->view_options( {
+ TRIM => 1,
+ COMPILE_DIR => '/var/tmp/mysite/templates',
+ } );
+
=head1 DESCRIPTION
This is the default view class for Maypole; it uses the Template Toolkit
for the template variables available and for a refresher on how template
components are resolved.
+The underlying Template toolkit object is configured through
+C<$r-E<gt>config-E<gt>view_options>. See L<Template> for available options.
+
+=over 4
+
+=item template
+
+Processes the template and sets the output. See L<Maypole::View::Base>
+
+=back
+
+
=head1 AUTHOR
Simon Cozens