From fc649f34e011677bb79d56669f713dee9e99c6ba Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Sun, 18 Apr 2010 19:09:30 +0200
Subject: set title and subtitle

---
 lib/Plack/Middleware/Debug/Dancer/Settings.pm | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

(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
index cf10748..cae1602 100644
--- a/lib/Plack/Middleware/Debug/Dancer/Settings.pm
+++ b/lib/Plack/Middleware/Debug/Dancer/Settings.pm
@@ -6,22 +6,14 @@ 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'};
+        $panel->title('Dancer::Settings');
+        $panel->nav_subtitle('Dancer::Settings');
         my @settings = map { $_ => $settings->{$_}} keys %$settings;
         $panel->content( sub { $self->render_list_pairs( \@settings ) } );
     };
-- 
cgit v1.2.3