File Coverage

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

Criterion	Covered	Total	%
statement	21	105	20.0
branch	0	28	0.0
condition	0	3	0.0
subroutine	7	17	41.1
pod	4	4	100.0
total	32	157	20.3

package Plack::Middleware::Debug::Template;

use strict;
use warnings;

=head1 NAME

Plack::Middleware::Debug::Template - storing profiling information
on template use.

=head1 VERSION

Version 1.00

=cut

our $VERSION = '1.00';

=head1 SYNOPSIS

To activate this panel:

    plack_middlewares:
      Debug:
        - panels
        -
          - Template

Or in your app.psgi, something like:

    builder {
        enable 'Debug', panels => ['Template'];
        $app;
    };

=head1 DESCRIPTION

This middleware adds timers around calls to L
to track the time spent rendering the template and the layout for the page.

=head1 HOOKS

Subclass this module and implement the below functions if you wish to change
its behaviour.

=head2 show_pathname

Return true if the panel should show the path name rather than the template
name, or false to have the path name in a title attribute.

=cut

sub show_pathname {}

=head2 hook_pathname

This function can alter the full template path name provided to it for display.

=cut

sub hook_pathname {}

=head2 ignore_template

If you don't want output for any particular template, test for it here.
Return true to ignore.

=cut

sub ignore_template {}

# Main code

use parent qw(Plack::Middleware::Debug::Base);
use Class::Method::Modifiers qw/install_modifier/;
use Data::Dumper;
use Text::MicroTemplate;
use Time::HiRes qw(gettimeofday tv_interval);

# A quasi-dump, that expands arrayrefs and hashrefs but doesn't try and
# include any object contents

sub _pp {
    my $t = shift;
    my $r = ref $t;
    if ($r eq 'ARRAY') {
        return [ map { _pp($_) } @$t ];
    } elsif ($r eq 'HASH') {
        return { map { $_ => _pp($t->{$_}) } keys %$t };
    } elsif ($r) {
        return $r;
    } else {
        return $t;
    }
}

# Convert the given stash into a representation that can be output
# in the debug panel

sub _stash {
    my ($self, $stash) = @_;
    local $Data::Dumper::Terse = 1;
    return {
        map {
            my $p = _pp($stash->{$_});
            $_ => ref $p ? Dumper($p) : $p
        }
        grep {
            ref $stash->{$_} ne 'CODE'
        }
        keys %$stash
    };
}

sub _diff_disp {
    my $starting_point = shift;
    return sprintf( '%.3f', tv_interval($starting_point) * 1000 );
}

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

<tr>
<td  class="h" >
<a name="122">122</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> #plDebug span.line-chart { background-color: #0af; position: absolute; top: 0; bottom: 0; display: block; } </td>
</tr>

<tr>
<td  class="h" >
<a name="123">123</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> #plDebug span.line-desc { position: relative; } </td>
</tr>

<tr>
<td  class="h" >
<a name="124">124</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> #plDebug span.line-dur { position: absolute; right: 0; } </td>
</tr>

<tr>
<td  class="h" >
<a name="125">125</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> #plDebug #pmd-template { border-collapse: separate; border-spacing: 0 1px; } </td>
</tr>

<tr>
<td  class="h" >
<a name="126">126</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> #plDebug #pmd-template td { position: relative; } </td>
</tr>

<tr>
<td  class="h" >
<a name="127">127</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">
% foreach my $tmpl (@{$_[0]}) {
<%= $tmpl->{title} %>
% my $i;
 




132




 





 





 





 





 





 



      




133




 





 





 





 





 





 



          




134




 





 





 





 





 





 



             Template 




135




 





 





 





 





 





 



             Time (ms) 




136




 





 





 





 





 





 



          




137




 





 





 





 





 





 



      




138




 





 





 





 





 





 



      




139




 





 





 





 





 





 



 % foreach my $line (@{$tmpl->{list}}) { 




140




 





 





 





 





 





 



      




141




 





 





 





 





 





 



          




142




 





 





 





 





 





 



 % if (defined $line->{offset_pc}) { 




143




 





 





 





 





 





 



              




144




 





 





 





 





 





 



 % } 




145




 





 





 





 





 





 



              




146




 





 





 





 





 





 



                 <%= Text::MicroTemplate::encoded_string(' ' x 4 x $line->{depth}) %> 




147




 





 





 





 





 





 



 % if ($line->{path}) { 




148




 





 





 





 





 





 



                  




149




 





 





 





 





 





 



 % } 




150




 





 





 





 





 





 



                     <%= $line->{name} %> 




151




 





 





 





 





 





 



 % if ($line->{path}) { 




152




 





 





 





 





 





 



                  




153




 





 





 





 





 





 



 % } 




154




 





 





 





 





 





 



                 <%= $line->{vars} || "" %> 




155




 





 





 





 





 





 



              




156




 





 





 





 





 





 



          




157




 





 





 





 





 





 



          




158




 





 





 





 





 





 



             <%= $line->{duration} || "" %> 




159




 





 





 





 





 





 



          




160




 





 





 





 





 





 



      




161




 





 





 





 





 





 



 % } 




162




 





 





 





 





 





 



      




163







% foreach my $line (@{$tmpl->{list}}) {


% if (defined $line->{offset_pc}) {

% }

                <%= Text::MicroTemplate::encoded_string(' ' x 4 x $line->{depth}) %>
% if ($line->{path}) {

% }
                    <%= $line->{name} %>
% if ($line->{path}) {

% }
                <%= $line->{vars} || "" %>



            <%= $line->{duration} || "" %>


% }


Stash
 




166




 





 





 





 





 





 



      




167




 





 





 





 





 





 



          




168




 





 





 





 





 





 



             Key 




169




 





 





 





 





 





 



             Value 




170




 





 





 





 





 





 



          




171




 





 





 





 





 





 



      




172




 





 





 





 





 





 



      




173




 





 





 





 





 





 



 % foreach my $key (sort keys %{$tmpl->{stash}}) { 




174




 





 





 





 





 





 



          




175




 





 





 





 





 





 



             <%= $key %> 




176




 





 





 





 





 





 



             <%= $tmpl->{stash}->{$key} || "" %> 




177




 





 





 





 





 





 



          




178




 





 





 





 





 





 



 % } 




179




 





 





 





 





 





 



      




180







% foreach my $key (sort keys %{$tmpl->{stash}}) {




% }


% }
EOTMPL

my $env_key = 'psgi.middleware.template';

our $depth = 0;
our $epoch = undef;

my %template_to_path;

# Sets up a wrapper to Template::Context's process and Template::Provider's
# _fetch, to record start/end times, variables, and the stash, and to get the
# full file path.
sub run {
    my ($pmd, $env, $panel) = @_;

    $env->{$env_key} = [];

    install_modifier 'Template::Context', 'around', 'process', sub {
        my $orig = shift;
        my $self = shift;
        my $what = shift;

        my $template =
            ref($what) eq 'ARRAY'
                ? join( ' + ', @{$what} )
                : ref($what)
                    ? $what->name
                    : $what;

        return $orig->($self, $what, @_) if $pmd->ignore_template($template);

        my $processed_data;
        my $epoch_elapsed_start;
        my $epoch_elapsed_end;
        my $now   = [gettimeofday];
        my $start = [@{$now}];
        my $env = $env->{$env_key};

        my $entry;
        if ($depth == 0) {
            $entry = { title => $template, stash => {}, list => [], total => 0 };
            push @$env, $entry;
        } else {
            $entry = $env->[-1];
        }

        my $results = { depth => $depth, name => $template };
        push @{$entry->{list}}, $results;
        DOIT: {
            local $epoch = $epoch ? $epoch : [@{$now}];
            local $depth = $depth + 1;
            $epoch_elapsed_start = _diff_disp($epoch);
            $processed_data = $orig->($self, $what, @_);
            $epoch_elapsed_end = _diff_disp($epoch);
        }
        my $level_elapsed = _diff_disp($start);
        my $vars = join ", ", map { "$_=" . $_[0]->{$_} } keys %{$_[0]};
        $results->{start} = $epoch_elapsed_start;
        $results->{end} = $epoch_elapsed_end;
        $results->{duration} = $level_elapsed;
        $results->{vars} = $vars;

        return $processed_data if $depth > 0;

        # Okay, we've finished our tree of templates now

        $entry->{total} = $results->{duration};
        my $main_start = $results->{start};
        foreach (@{$entry->{list}}) {
            next unless $_->{start};
            $_->{offset_pc} = ($_->{start} - $main_start) / $entry->{total} * 100;
            $_->{duration_pc} = ($_->{end} - $_->{start}) / $entry->{total} * 100;
            if ($pmd->show_pathname) {
                $_->{name} = $template_to_path{$_->{name}} || $_->{name};
            } else {
                $_->{path} = $template_to_path{$_->{name}};
            }
        }

        $entry->{stash} = $pmd->_stash($self->stash);

        return $processed_data;
    };
    install_modifier 'Template::Provider', 'around', '_fetch', sub {
        my $orig = shift;
        my ($tp_self, $name, $t_name) = @_;
        if (my $hooked = $pmd->hook_pathname($name)) {
            $name = $hooked;
        }
        $template_to_path{$t_name} = $name;
        return $orig->(@_);
    };

    return sub {
        my $res = shift;
        $panel->title('Templates');
        my $total = 0;
        foreach (@{$env->{$env_key}}) {
            $total += $_->{total};
        }
        $panel->nav_subtitle("$total ms") if $total;
        $panel->content($pmd->render($list_template, $env->{$env_key}));
    };
}

=head1 SUPPORT

You can look for information on GitHub at
L.

=head1 ACKNOWLEDGEMENTS

This module is based on a combination of
Plack::Middleware::Debug::Dancer::TemplateTimer and Template::Timer.

=head1 AUTHOR

Matthew Somerville, C<<  >>

=head1 LICENSE AND COPYRIGHT

Copyright 2017 Matthew Somerville.

This library is free software; you can redistribute it and/or modify
it under the terms of either the GNU Public License v3, or the Artistic
License 2.0. See L for more information.

=cut

1;