File Coverage

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

Criterion	Covered	Total	%
statement	65	75	86.6
branch	7	10	70.0
condition	2	3	66.6
subroutine	18	20	90.0
pod	2	11	18.1
total	94	119	78.9

package Plack::Middleware::Debug::Base;
use 5.008;
use strict;
use warnings;
use parent qw(Plack::Middleware);
use Plack::Util::Accessor qw(renderer);
use Text::MicroTemplate;
use Data::Dumper::Concise;
use Scalar::Util;

our $VERSION = '0.17';

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

    my $panel = $self->default_panel;
    my $after = $self->run($env, $panel);

    $self->response_cb($self->app->($env), sub {
        my $res = shift;
        $after->($res) if $after && ref $after eq 'CODE';
        push @{$env->{'plack.debug.panels'}}, $panel;
    });
}

sub run { }

sub panel_id {
    my $self = shift;
    (my $name = ref $self) =~ s/.*:://;
    $name . Scalar::Util::refaddr($self);
}

sub panel_name {
    my $self = shift;
    (my $name = ref $self) =~ s/.*:://;
    $name =~ s/(?<=[a-z])(?=[A-Z])/ /g;
    $name;
}

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

    my $id   = $self->panel_id;
    my $name = $self->panel_name;

    my $panel = Plack::Middleware::Debug::Panel->new;
    $panel->dom_id("plDebug${id}Panel");
    $panel->url('#');
    $panel->title($name);
    $panel->nav_title($name);
    $panel->nav_subtitle('');
    $panel->content('');

    $panel;
}

sub vardump {
    my $scalar = shift;
    return '(undef)' unless defined $scalar;
    return "$scalar" unless ref $scalar;
    return scalar Dumper( $scalar );
}

sub build_template {
    my $class = shift;
    Text::MicroTemplate->new(
        template => $_[0],
        tag_start => '<%',
        tag_end => '%>',
        line_start => '%',
    )->build;
}

sub render {
    my ($self, $template, $vars) = @_;
    $template->($vars);
}

my $list_section_template = __PACKAGE__->build_template(<<'EOTMPL');
% foreach my $s (@{$_[0]->{sections}}) {
<%= ucfirst $s %>
%   if (scalar @{$_[0]->{list}->{$s}}) {
 




85




 





 





 





 





 





 



      




86




 





 





 





 





 





 



          




87




 





 





 





 





 





 



             Key 




88




 





 





 





 





 





 



             Value 




89




 





 





 





 





 





 



          




90




 





 





 





 





 





 



      




91




 





 





 





 





 





 



      




92




 





 





 





 





 





 



 % my $i; 




93




 





 





 





 





 





 



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




94




 





 





 





 





 





 



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




95




 





 





 





 





 





 



              




96




 





 





 





 





 





 



                 <%= $key %> 




97




 





 





 





 





 





 



                 <%= vardump($value) %> 




98




 





 





 





 





 





 



              




99




 





 





 





 





 





 



 % } 




100




 





 





 





 





 





 



      




101







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




% }


%   }
% }
EOTMPL

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




108




 





 





 





 





 





 



      




109




 





 





 





 





 





 



          




110




 





 





 





 





 





 



             Key 




111




 





 





 





 





 





 



             Value 




112




 





 





 





 





 





 



          




113




 





 





 





 





 





 



      




114




 





 





 





 





 





 



      




115




 





 





 





 





 





 



 % my $i; 




116




 





 





 





 





 





 



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




117




 





 





 





 





 





 



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




118




 





 





 





 





 





 



              




119




 





 





 





 





 





 



                 <%= $key %> 




120




 





 





 





 





 





 



                 <%= vardump($value) %> 




121




 





 





 





 





 





 



              




122




 





 





 





 





 





 



 % } 




123




 





 





 





 





 





 



      




124







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




% }


EOTMPL

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




129




 





 





 





 





 





 



      




130




 





 





 





 





 





 



 % my $i; 




131




 





 





 





 





 





 



 % if (defined $_[0]->{lines}) { 




132




 





 





 





 





 





 



 %   my @lines = ref $_[0]->{lines} eq 'ARRAY' ? @{$_[0]->{lines}} : split /\r?\n/, $_[0]->{lines}; 




133




 





 





 





 





 





 



 %   for my $line (@lines) { 




134




 





 





 





 





 





 



              




135




 





 





 





 





 





 



                 <%= $line %> 




136




 





 





 





 





 





 



              




137




 





 





 





 





 





 



 %   } 




138




 





 





 





 





 





 



 % } 




139




 





 





 





 





 





 



      




140

% my $i;
% if (defined $_[0]->{lines}) {
%   my @lines = ref $_[0]->{lines} eq 'ARRAY' ? @{$_[0]->{lines}} : split /\r?\n/, $_[0]->{lines};
%   for my $line (@lines) {



%   }
% }


EOTMPL

sub render_lines {
    my ($self, $lines) = @_;
    $self->render($line_template, { lines => $lines });
}

sub render_list_pairs {
    my ($self, $list, $sections) = @_;
    if ($sections) {
        $self->render($list_section_template, { list => $list, sections => $sections });
    }else{
        $self->render($list_template, { list => $list });
    }
}

sub render_hash {
    my ( $self, $hash, $sections ) = @_;
    if ($sections) {
        my %hash;
        foreach my $section ( keys %$hash ) {
            push @{ $hash{$section} },
                map { $_ => $hash->{$section}->{$_} }
                sort keys %{ $hash->{$section} };
        }
        $self->render( $list_section_template,
            { sections => $sections, list => \%hash } );
    }
    else {
        my @hash = map { $_ => $hash->{$_} } sort keys %$hash;
        $self->render( $list_template, { list => \@hash } );
    }
}

1;
__END__