From 8c3ecce95f0b1da2a13c51d19de4cdaf41fec292 Mon Sep 17 00:00:00 2001 From: Graham Knop Date: Fri, 16 Apr 2010 07:27:25 -0500 Subject: [PATCH] remove redundant logger --- lib/Plack/Middleware/Debug/WgLogger.pm | 31 -------------------------- 1 file changed, 31 deletions(-) delete mode 100644 lib/Plack/Middleware/Debug/WgLogger.pm diff --git a/lib/Plack/Middleware/Debug/WgLogger.pm b/lib/Plack/Middleware/Debug/WgLogger.pm deleted file mode 100644 index 94d0e2d51..000000000 --- a/lib/Plack/Middleware/Debug/WgLogger.pm +++ /dev/null @@ -1,31 +0,0 @@ -package Plack::Middleware::Debug::WgLogger; -use strict; -use parent qw(Plack::Middleware::Debug::Base); -our $VERSION = '0.07'; - -# This will be moved to the WebGUI::Middleware::Debug::WgLogger namespace -# once Plack::Middleware::Debug supports that - -sub run { - my ($self, $env, $panel) = @_; - - my $logger = $env->{'psgix.logger'}; - - my $log_output = []; - $env->{'psgix.logger'} = sub { - my $args = shift; - push @$log_output, $args->{level} => $args->{message}; - $logger && $logger->($args); - }; - delete $env->{'webgui.session'}->{_errorHandler}; - - return sub { - my $res = shift; - $panel->nav_subtitle(scalar @$log_output . " messages"); - $panel->content($self->render_list_pairs($log_output)); - }; -} - -sub panel_name { 'WebGUI Log' } - -1; \ No newline at end of file