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 = <DATA>; }
our $VERSION = '2.12';
+my $debug_flags = DEBUG_ON;
+
use strict;
sub template {
unless ($self->{tt}) {
my $view_options = $r->config->view_options || {};
if ($r->debug) {
- $view_options->{DEBUG} = 'undef';
+ $view_options->{DEBUG} = $debug_flags;
}
$self->{provider} = Template::Provider->new($view_options);
$self->{tt} = Template->new({
# 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 .= '<br> There was a problem finding configuration for this request';
$r->{config} ||= {};
}