From 9bd69b75c8b84f0173eefe32c39ec0f4b934e53b Mon Sep 17 00:00:00 2001
From: Matthew Somerville <matthew-github@dracos.co.uk>
Date: Wed, 30 Aug 2017 14:08:39 +0100
Subject: Add template debug panel.

Use a small subclass of (our) P::M::D::Template to
have better display of our template path names.
---
 .../Plack/Middleware/Debug/FixMyStreet/Template.pm | 33 ++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 perllib/Plack/Middleware/Debug/FixMyStreet/Template.pm

(limited to 'perllib/Plack/Middleware/Debug/FixMyStreet/Template.pm')

diff --git a/perllib/Plack/Middleware/Debug/FixMyStreet/Template.pm b/perllib/Plack/Middleware/Debug/FixMyStreet/Template.pm
new file mode 100644
index 000000000..05cb9f18a
--- /dev/null
+++ b/perllib/Plack/Middleware/Debug/FixMyStreet/Template.pm
@@ -0,0 +1,33 @@
+package Plack::Middleware::Debug::FixMyStreet::Template;
+
+=head1 NAME
+
+Plack::Middleware::Debug::FixMyStreet::Template -
+small subclass for FixMyStreet-specific tweaks.
+
+=head1 VERSION
+
+Version 1.00
+
+=cut
+
+our $VERSION = '1.00';
+
+use strict;
+use warnings;
+use parent qw(Plack::Middleware::Debug::Template);
+
+sub show_pathname { 1 }
+
+sub hook_pathname {
+    my ($self, $name) = @_;
+    $name =~ s/^.*templates\/web\///;
+    $name;
+}
+
+sub ignore_template {
+    my ($self, $template) = @_;
+    return 1 if $template eq 'site-name.html';
+}
+
+1;
-- 
cgit v1.2.3