X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FView%2FTT.pm;h=3fbfbd6c66e4271f2e8b15aeff214dcac4e7b7a8;hb=cfd4b58bb2ac71335a701fb6db2f1c062e27bf3e;hp=936fcc51fc8fa7668a3a5a29b3a7d8bfb4cedc41;hpb=8e96ebeddb37ef30d2e215f935e136a9170576cd;p=maypole.git

diff --git a/lib/Maypole/View/TT.pm b/lib/Maypole/View/TT.pm
index 936fcc5..3fbfbd6 100644
--- a/lib/Maypole/View/TT.pm
+++ b/lib/Maypole/View/TT.pm
@@ -1,14 +1,16 @@
 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.11';
+our $VERSION = '2.12';
+
+my $debug_flags = DEBUG_ON;
 
 use strict;
 
@@ -16,6 +18,9 @@ sub template {
   my ( $self, $r ) = @_;
   unless ($self->{tt}) {
     my $view_options = $r->config->view_options || {};
+    if ($r->debug) {
+      $view_options->{DEBUG} = $debug_flags;
+    }
     $self->{provider} = Template::Provider->new($view_options);
     $self->{tt}       = Template->new({
 				       %$view_options,