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;