Add template debug panel.

Use a small subclass of (our) P::M::D::Template to
have better display of our template path names.

1 files changed, 33 insertions, 0 deletions

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;