some dancer specific panel for debugging

1 files changed, 15 insertions, 0 deletions

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;