diff options
author | franck cuny <franck@lumberjaph.net> | 2010-08-21 17:15:09 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-08-21 17:15:09 +0200 |
commit | 9090ab074178097f73d54c583a40a022183d9978 (patch) | |
tree | 2add4d86170d9d36bb8b6beab3fe6af2e1e9f0a9 /lib/Plack/Middleware/Debug/Dancer/App.pm | |
parent | new release (diff) | |
download | dancer-debug-9090ab074178097f73d54c583a40a022183d9978.tar.gz |
add apps panel, rewrite routes one master
Diffstat (limited to 'lib/Plack/Middleware/Debug/Dancer/App.pm')
-rw-r--r-- | lib/Plack/Middleware/Debug/Dancer/App.pm | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/lib/Plack/Middleware/Debug/Dancer/App.pm b/lib/Plack/Middleware/Debug/Dancer/App.pm new file mode 100644 index 0000000..424c1eb --- /dev/null +++ b/lib/Plack/Middleware/Debug/Dancer/App.pm @@ -0,0 +1,27 @@ +package Plack::Middleware::Debug::Dancer::App; + +use strict; +use warnings; + +use parent qw/Plack::Middleware::Debug::Base/; +use Dancer::App; + +sub run { + my ( $self, $env, $panel ) = @_; + + return sub { + my $applications; + + foreach my $app ( Dancer::App->applications ) { + $applications->{ $app->{name} } = $app->{settings}; + } + + $panel->title('Applications'); + $panel->nav_title('Applications'); + $panel->content( + sub { $self->render_hash( $applications, [ keys %$applications ] ) } + ); + }; +} + +1; |