convert performance indicators to a Plack::Middleware::Debug panel

2010-04-14 14:51:52 -05:00 · 2010-04-14 14:51:52 -05:00 · f2ce1eff85
commit f2ce1eff85
parent 30fc3fab10
7 changed files with 98 additions and 31 deletions
--- a/lib/WebGUI/Middleware/Session.pm
+++ b/lib/WebGUI/Middleware/Session.pm
@ -7,6 +7,7 @@ use WebGUI::Utility ();
 use Try::Tiny;
 use Plack::Middleware::StackTrace;
 use Plack::Middleware::Debug;
+use WebGUI::Middleware::Debug::Performance;
 use WebGUI::Middleware::HTTPExceptions;
 use Plack::Middleware::ErrorDocument;
 use Plack::Middleware::SimpleLogger;
@ -81,6 +82,7 @@ sub call {
                [ 'MySQLTrace', skip_packages => qr/\AWebGUI::SQL(?:\z|::)/ ],
                'Response',
                'Logger',
+                sub { WebGUI::Middleware::Debug::Performance->wrap($_[0]) },
            ],
        );
    }