File Coverage

blib/lib/Plack/Middleware/Debug/Dancer/TemplateTimer.pm

Criterion	Covered	Total	%
statement	18	43	41.8
branch	0	4	0.0
condition			n/a
subroutine	6	11	54.5
pod	2	2	100.0
total	26	60	43.3

package Plack::Middleware::Debug::Dancer::TemplateTimer;

=head1 NAME

Plack::Middleware::Debug::Dancer::TemplateTimer - Template and layout rendering timer for Dancer

=head1 VERSION

0.001

=cut

our $VERSION = '0.001';

use strict;
use warnings;
use parent qw(Plack::Middleware::Debug::Base);
use Class::Method::Modifiers qw/install_modifier/;
use Time::HiRes qw/gettimeofday tv_interval/;

use Dancer;

my $env_key = 'debug.dancer.templatetimer';

sub prepare_app {

    install_modifier 'Dancer::Template::Abstract', 'around', 'layout', sub {
        my $orig  = shift;
        my $start = [gettimeofday];
        my $ret   = $orig->(@_);
        my $end   = [gettimeofday];
        Dancer::SharedData->request->env->{$env_key}->{layout} +=
          tv_interval( $start, $end );
        return $ret;
    };

    install_modifier 'Dancer::Template::Abstract', 'around', 'render', sub {
        my $orig  = shift;
        my $start = [gettimeofday];
        my $ret   = $orig->(@_);
        my $end   = [gettimeofday];
        Dancer::SharedData->request->env->{$env_key}->{template} +=
          tv_interval( $start, $end );
        return $ret;
    };
}

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




50




 





 





 





 





 





 



      




51




 





 





 





 





 





 



          




52




 





 





 





 





 





 



             Key 




53




 





 





 





 





 





 



             Value 




54




 





 





 





 





 





 



          




55




 





 





 





 





 





 



      




56




 





 





 





 





 





 



      




57




 





 





 





 





 





 



 % my $i; 




58




 





 





 





 





 





 



 % foreach my $key (qw| template layout total |) { 




59




 





 





 





 





 





 



 %     next unless defined $_[0]->{vars}->{$key}; 




60




 





 





 





 





 





 



          




61




 





 





 





 





 





 



             <%= $key %> 




62




 





 





 





 





 





 



             <%= $_[0]->{vars}->{$key} %> 




63




 





 





 





 





 





 



          




64




 





 





 





 





 





 



 % } 




65




 





 





 





 





 





 



      




66







% my $i;
% foreach my $key (qw| template layout total |) {
%     next unless defined $_[0]->{vars}->{$key};




% }


EOTMPL

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

    return sub {
        my $res = shift;
        $panel->title('Dancer::TemplateTimer');
        my %vars = %{ $env->{$env_key} || {} };
        foreach my $key ( keys %vars ) {
            $vars{total} += $vars{$key};
        }
        if ( $vars{total} ) {
            $panel->nav_subtitle($vars{total});
        }
        $panel->content(
            $self->render( $list_template_dumped, { vars => \%vars } ) );
    };
}

1;

__END__