From eb4db48d0e65a3c7c23b7372566fa7121f0cd574 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Sun, 18 Apr 2010 11:46:33 +0200
Subject: some dancer specific panel for debugging

---
 lib/Plack/Middleware/Debug/Dancer/Version.pm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 lib/Plack/Middleware/Debug/Dancer/Version.pm

(limited to 'lib/Plack/Middleware/Debug/Dancer/Version.pm')

diff --git a/lib/Plack/Middleware/Debug/Dancer/Version.pm b/lib/Plack/Middleware/Debug/Dancer/Version.pm
new file mode 100644
index 0000000..fe05275
--- /dev/null
+++ b/lib/Plack/Middleware/Debug/Dancer/Version.pm
@@ -0,0 +1,15 @@
+package Plack::Middleware::Debug::Dancer::Version;
+use 5.008;
+use strict;
+use warnings;
+use parent qw(Plack::Middleware::Debug::Base);
+
+sub run {
+    my ( $self, $env, $panel ) = @_;
+
+    return sub {
+        $panel->nav_subtitle($Dancer::VERSION);
+    };
+}
+
+1;
-- 
cgit v1.2.3