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/Session.pm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 lib/Plack/Middleware/Debug/Dancer/Session.pm

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

diff --git a/lib/Plack/Middleware/Debug/Dancer/Session.pm b/lib/Plack/Middleware/Debug/Dancer/Session.pm
new file mode 100644
index 0000000..055676a
--- /dev/null
+++ b/lib/Plack/Middleware/Debug/Dancer/Session.pm
@@ -0,0 +1,18 @@
+package Plack::Middleware::Debug::Dancer::Session;
+use 5.008;
+use strict;
+use warnings;
+use parent qw(Plack::Middleware::Debug::Base);
+use Dancer::Session;
+
+sub run {
+    my ( $self, $env, $panel ) = @_;
+
+    return sub {
+        my $session = Dancer::Session->get();
+        my @settings = map { $_ => $session->{$_}} keys %$session;
+        $panel->content( sub { $self->render_list_pairs( \@settings ) } );
+    };
+}
+
+1;
-- 
cgit v1.2.3