File Coverage

blib/lib/Plack/Middleware/Debug/Log4perl.pm

Criterion	Covered	Total	%
statement	41	43	95.3
branch	8	10	80.0
condition			n/a
subroutine	9	9	100.0
pod	1	2	50.0
total	59	64	92.1

use strict;

package Plack::Middleware::Debug::Log4perl;

use parent qw(Plack::Middleware::Debug::Base);

our $VERSION = '0.04';

use Log::Log4perl qw(get_logger :levels);
use Log::Log4perl::Layout;
use Log::Log4perl::Level;

use Data::Dumper;

# let's try keeping a handle on the layout
my $timer;

sub run
{
	my($self, $env, $panel) = @_;

	if (Log::Log4perl->initialized()) {

		if (my $appender = Log::Log4perl->appender_by_name('psgi_debug_panel')) {

			$appender->clear();

			$timer->reset() if $timer;
		}
		else {

			my $logger = Log::Log4perl->get_logger("");

			# Define a layout
			my $layout = Log::Log4perl::Layout::PatternLayout->new("%r >> %p >> %m >> %c >> at %F line %L%n");

			# Define an 'in memory' appender
			my $appender = Log::Log4perl::Appender->new(
				"Log::Log4perl::Appender::TestBuffer",
				name => "psgi_debug_panel");

			$appender->layout($layout);

			$logger->add_appender($appender);
			$logger->level($TRACE);

			# hang on to the timer, so we can reset it
			$timer = $layout->{timer};
		}
	}

	return sub {
		my $res = shift;

		if (my $appender = Log::Log4perl->appenders()->{psgi_debug_panel}) {

			my $log = $appender->{appender}->{buffer};

			$log =~ s/ >> /\n/g;
			my $list = [ split '\n', $log ];

			$panel->content( sub { $self->render_list_pairs($list) } );
		}
		else {

			$panel->content( 'Log4perl appender not enabled' );
		}
	};
}

my $list_template = __PACKAGE__->build_template(<<'EOTMPL');
 




74




 





 





 





 





 





 



      




75




 





 





 





 





 





 



          




76




 





 





 





 





 





 



             Time 




77




 





 





 





 





 





 



             Level 




78




 





 





 





 





 





 



             Message 




79




 





 





 





 





 





 



             Source 




80




 





 





 





 





 





 



             Line 




81




 





 





 





 





 





 



          




82




 





 





 





 





 





 



      




83




 





 





 





 





 





 



      




84




 





 





 





 





 





 



 % my $i; 




85




 





 





 





 





 





 



 % while (@{$_[0]->{list}}) { 




86




 





 





 





 





 





 



 % my($time, $level, $message, $source, $line) = splice(@{$_[0]->{list}}, 0, 5); 




87




 





 





 





 





 





 



              




88




 





 





 





 





 





 



                 <%= $time %> 




89




 





 





 





 





 





 



                 <%= $level %> 




90




 





 





 





 





 





 



                 <%= $message %> 




91




 





 





 





 





 





 



                 <%= $source %> 




92




 





 





 





 





 





 



                 <%= $line %> 




93




 





 





 





 





 





 



              




94




 





 





 





 





 





 



 % } 




95




 





 





 





 





 





 



      




96










% my $i;
% while (@{$_[0]->{list}}) {
% my($time, $level, $message, $source, $line) = splice(@{$_[0]->{list}}, 0, 5);







% }


EOTMPL

sub render_list_pairs {

    my ($self, $list, $sections) = @_;
    if ($sections) {
        $self->render($list_template, { list => $list });
    }else{
        $self->render($list_template, { list => $list });
    }
}

1;
__END__