File Coverage

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

Criterion	Covered	Total	%
statement	15	33	45.4
branch	0	6	0.0
condition			n/a
subroutine	5	10	50.0
pod	2	3	66.6
total	22	52	42.3

package Plack::Middleware::Debug::Dancer::TemplateVariables;
{
  $Plack::Middleware::Debug::Dancer::TemplateVariables::VERSION = '0.002';
}
# ABSTRACT: Debug and inspect your template variables for Dancer

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

use Dancer;
use Data::Dumper ();

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

sub prepare_app {
    Dancer::Hook->new('before_layout_render' => sub {
        my $tokens = shift;
        Dancer::SharedData->request->env->{$env_key} = $tokens;
    });
}

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




25




 





 





 





 





 





 



      




26




 





 





 





 





 





 



          




27




 





 





 





 





 





 



             Key 




28




 





 





 





 





 





 



             Value 




29




 





 





 





 





 





 



          




30




 





 





 





 





 





 



      




31




 





 





 





 





 





 



      




32




 





 





 





 





 





 



 % my $i; 




33




 





 





 





 





 





 



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




34




 





 





 





 





 





 



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




35




 





 





 





 





 





 



              




36




 





 





 





 





 





 



                 <%= $key %> 




37




 





 





 





 





 





 



                 <%= vardump($value) %> 




38




 





 





 





 





 





 



              




39




 





 





 





 





 





 



 % } 




40




 





 





 





 





 





 



      




41







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




% }


EOTMPL

sub vardump {
    my $scalar = shift;
    return '(undef)' unless defined $scalar;
    return "$scalar" unless ref $scalar;
    scalar Data::Dump::dump($scalar);
}

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

    return sub {
        my $res = shift;
        $panel->title('Dancer::TemplateVariables');
        $panel->nav_subtitle('Dancer::TemplateVariables');
        $panel->content( sub {
            my %vars = %{ $env->{$env_key} || {} };
            my @var_list = map { $_ => $vars{$_} } sort keys %vars;
            $self->render( $list_template_dumped, { list => \@var_list } );
        } );
    };
}

1;


__END__