File Coverage

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

Criterion	Covered	Total	%
statement	12	23	52.1
branch	0	4	0.0
condition			n/a
subroutine	4	6	66.6
pod	1	1	100.0
total	17	34	50.0

package Plack::Middleware::Debug::TemplateToolkit;
# ABSTRACT: Debug panel for Template Toolkit middleware
$Plack::Middleware::Debug::TemplateToolkit::VERSION = '0.28';
use strict;
use warnings;
use 5.008_001;

use parent 'Plack::Middleware::Debug::Base';

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

    return sub {
        my $res = shift;

        $panel->nav_subtitle( $env->{'tt.template'} )
            if defined $env->{'tt.template'};

        my $ttvars = "";
        if ( defined $env->{'tt.vars'} ) {
            $ttvars = 'Template variables (tt.vars)'
                . $self->render_hash( delete $env->{'tt.vars'} );
        }

        my @ttkeys = grep { $_ =~ /^tt\./ } keys %$env;

        $panel->content(
            $self->render_list_pairs(
                [ map { $_ => delete $env->{$_} } sort @ttkeys ]
                )
                . $ttvars
        );
        }
}



1;

__END__