File Coverage

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

Criterion	Covered	Total	%
statement	12	31	38.7
branch			n/a
condition			n/a
subroutine	4	6	66.6
pod	1	1	100.0
total	17	38	44.7

package Plack::Middleware::Debug::LWP;
$Plack::Middleware::Debug::LWP::VERSION = '0.3';
use strict;
use warnings;

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

=head1 NAME

Plack::Middleware::Debug::LWP - LWP Profiling Panel

=head1 VERSION

version 0.3

=head1 SYNOPSIS

	enable 'Debug::LWP';

=head1 DESCRIPTION

This module provides a panel for the L that gives
profiling information for L requests.

=cut



my $lwp_template = __PACKAGE__->build_template(<<'ENDOFIT');
 




32




 





 





 





 





 





 



      




33




 





 





 





 





 





 



          




34




 





 





 





 





 





 



             Request 




35




 





 





 





 





 





 



             Timing 




36




 





 





 





 





 





 



          




37




 





 





 





 





 





 



      




38




 





 





 





 





 





 



      




39




 





 





 





 





 





 



 % my $i; 




40




 





 





 





 





 





 



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




41




 





 





 





 





 





 



 % my($key, $value) = splice(@{$_[0]->{list}}, 0, 2); 




42




 





 





 





 





 





 



              




43




 





 





 





 





 





 



                 <%= $key %> 




44




 





 





 





 





 





 



                 <%= $value %> 




45




 





 





 





 





 





 



              




46




 





 





 





 





 





 



 % } 




47




 





 





 





 





 





 



      




48







% my $i;
% while (@{$_[0]->{list}}) {
% my($key, $value) = splice(@{$_[0]->{list}}, 0, 2);




% }


ENDOFIT


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

	LWPx::Profile::start_profiling();

	return sub {
		my $res = shift;

		my $profile = LWPx::Profile::stop_profiling();

		my @lines;
		my ($time, $requests);

		for my $req (sort {
			$profile->{$a}->{time_of_first_sample} <=> $profile->{$b}->{time_of_first_sample}
		} keys %$profile) {
			my $stats = $profile->{$req};
			my $summary = sprintf("%.5f/%d (%.5f avg)", $stats->{total_duration}, $stats->{count}, $stats->{total_duration} / $stats->{count});
			push(@lines, $req, $summary);
			$requests += $stats->{count};
			$time     += $stats->{total_duration};
		}

		my $summary = sprintf("%d requests / %.2f seconds", $requests, $time);

		$panel->nav_title("LWP Requests");
		$panel->title("LWP Requests ($summary)");
		$panel->nav_subtitle($summary);

		$panel->content(
			$self->render($lwp_template, { list => \@lines })
		);
	};
}



=head1 TODO

=over 2

=item *

The docs are pretty middling at the moment.

=back

=head1 AUTHORS

    Chris Reinhardt
    [e-mail]

    Mark Ng
    [e-mail]

=head1 COPYRIGHT

This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the
LICENSE file included with this module.

=head1 SEE ALSO

L, L, L, perl(1)

=cut

1;
__END__