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

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

diff --git a/lib/Plack/Middleware/Debug/Dancer/Settings.pm b/lib/Plack/Middleware/Debug/Dancer/Settings.pm
new file mode 100644
index 0000000..cf10748
--- /dev/null
+++ b/lib/Plack/Middleware/Debug/Dancer/Settings.pm
@@ -0,0 +1,30 @@
+package Plack::Middleware::Debug::Dancer::Settings;
+use 5.008;
+use strict;
+use warnings;
+use parent qw(Plack::Middleware::Debug::Base);
+use Class::Method::Modifiers qw/install_modifier/;
+use Dancer::Config;
+
+#my $psgi_env;
+# install_modifier 'Dancer', 'around', 'start' => sub {
+#     my $orig = shift;
+#     my $self = shift;
+#     $psgi_env->{'plack.middleware.dancer_settings'} = $self->config;
+#     $self->$orig(@_);
+# };
+
+sub run {
+    my ( $self, $env, $panel ) = @_;
+#    $psgi_env = $env;
+
+    return sub {
+        my $res = shift;
+        my $settings = Dancer::Config->settings();
+#        my $settings = $env->{'plack.middleware.dancer_settings'};
+        my @settings = map { $_ => $settings->{$_}} keys %$settings;
+        $panel->content( sub { $self->render_list_pairs( \@settings ) } );
+    };
+}
+
+1;
-- 
cgit v1.2.3