1 package Maypole::View::TT;
2 use base 'Maypole::View::Base';
3 use Maypole::Constants;
5 use File::Spec::Functions qw(catdir tmpdir);
8 our $VERSION = "1." . sprintf "%04d", q$Rev$ =~ /: (\d+)/;
11 my ( $self, $r ) = @_;
13 unless ($self->{tt}) {
14 my $view_options = $r->config->view_options || {};
15 $self->{provider} = Template::Provider->new($view_options);
16 $self->{tt} = Template->new({
18 LOAD_TEMPLATES => [ $self->{provider} ],
22 $self->{provider}->include_path([ $self->paths($r) ]);
24 my $template_file = $r->template;
25 my $ext = $r->config->template_extension;
26 $template_file .= $ext if defined $ext;
29 if ($self->{tt}->process($template_file, { $self->vars($r) }, \$output )) {
30 $r->{output} = $output;
34 $r->{error} = "TT error for template '$template_file'\n" . $self->{tt}->error;
43 Maypole::View::TT - A Template Toolkit view class for Maypole
47 BeerDB->config->view("Maypole::View::TT"); # The default anyway
49 # Set some Template Toolkit options
50 BeerDB->config->view_options( {
52 COMPILE_DIR => '/var/tmp/mysite/templates',
57 This is the default view class for Maypole; it uses the Template Toolkit to
58 fill in templates with the objects produced by Maypole's model classes. Please
59 see the L<Maypole manual|Maypole::Manual>, and in particular, the
60 L<view|Maypole::Manual::View> chapter for the template variables available and
61 for a refresher on how template components are resolved.
63 The underlying Template toolkit object is configured through
64 C<$r-E<gt>config-E<gt>view_options>. See L<Template|Template> for available
71 Processes the template and sets the output. See L<Maypole::View::Base>