X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FView%2FTT.pm;h=433309e98a911f1d2fd2d2f58ec705ff09d005e9;hb=8ca69904b2ec6ca0e6ae8677fff6bb7283b20d13;hp=d2da45a59d0b643e4ec4f2c322af717b595140e3;hpb=2af3091e4954c080708cb08eb3c72d52416f9ca1;p=maypole.git diff --git a/lib/Maypole/View/TT.pm b/lib/Maypole/View/TT.pm index d2da45a..433309e 100644 --- a/lib/Maypole/View/TT.pm +++ b/lib/Maypole/View/TT.pm @@ -1,24 +1,28 @@ package Maypole::View::TT; -use Class::C3; use base 'Maypole::View::Base'; use Maypole::Constants; use Template; use File::Spec::Functions qw(catdir tmpdir); +use Template::Constants qw( :all ); our $error_template; { local $/; $error_template = ; } -our $VERSION = '2.12'; +our $VERSION = '2.13'; + +my $debug_flags = DEBUG_ON; use strict; sub template { my ( $self, $r ) = @_; unless ($self->{tt}) { - my $view_options = $r->config->view_options || {}; + my $view_options = $r->config->view_options || { POST_CHOMP=>1, PRE_CHOMP=>1, TRIM=>1 }; if ($r->debug) { - $view_options->{DEBUG} = 'undef'; + $view_options->{DEBUG} = $debug_flags; } + + $view_options->{POST_CHOMP} = 1 unless (exists $view_options->{POST_CHOMP}); $self->{provider} = Template::Provider->new($view_options); $self->{tt} = Template->new({ %$view_options, @@ -60,7 +64,7 @@ sub report_error { # Need to be very careful here. my $tt = Template->new; unless (ref $r->{config}) { - warn "no config for this request\n"; + $r->warn("no config for this request"); $error .= '
There was a problem finding configuration for this request'; $r->{config} ||= {}; } @@ -396,16 +400,14 @@ Simon Cozens __DATA__ Maypole error page -

Maypole application error

+

Maypole Application Error

This application living at [%request.config.uri_base%], [%request.config.application_name || "which is unnamed" %], has @@ -423,31 +425,31 @@ the path "[% request.path %]". The error text returned was:

Request details

- +
[% FOR attribute = ["model_class", "table", "template", "path", "content_type", "document_encoding", "action", "args", "objects"] %] - [% END %] [% FOREACH param IN request.params %] - + [% END %]
[% attribute %] [% +
[% attribute %] [% request.$attribute.list.join(" , ") %]
CGI Parameters
[% param.key %] [% param.value %]
[% param.key %] [% param.value %]

Website / Template Paths

- - + +
Base URI [% request.config.uri_base %]
Paths [% paths %]
Base URI [% request.config.uri_base %]
Paths [% paths %]

Application configuration

- - - - + + + +
Model [% request.config.model %]
View [% request.config.view %]
Classes [% request.config.classes.list.join(" , ") %]
Tables [% request.config.display_tables.list.join(" , ") %]
Model [% request.config.model %]
View [% request.config.view %]
Classes [% request.config.classes.list.join(" , ") %]
Tables [% request.config.display_tables.list.join(" , ") %]