File Coverage

blib/lib/Plack/Middleware/Debug.pm

Criterion	Covered	Total	%
statement	71	75	94.6
branch	10	16	62.5
condition	3	7	42.8
subroutine	19	19	100.0
pod	2	4	50.0
total	105	121	86.7

package Plack::Middleware::Debug;
use 5.008_001;
use strict;
use warnings;
use parent qw(Plack::Middleware);
our $VERSION = '0.17';

use Encode;
use File::ShareDir;
use Plack::App::File;
use Plack::Builder;
use Plack::Util::Accessor qw(panels renderer files);
use Plack::Util;
use Plack::Middleware::Debug::Panel;
use Text::MicroTemplate;
use Try::Tiny;

sub TEMPLATE {
    <<'EOTMPL' }
% my $stash = $_[0];


 </td>
</tr>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     @import url(<%= $stash->{BASE_URL} %>/debug_toolbar/toolbar.min.css); </td>
</tr>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">



% if ($stash->{panels}) {
            Hide »
% } else {
            DEBUG
% }
% for my $panel (reverse @{$stash->{panels}}) {

% if ($panel->content) {

% } else {

% }
                    <%= $panel->nav_title %>
% if ($panel->nav_subtitle) {
                    <%= $panel->nav_subtitle %>
% }
% if ($panel->content) {

% } else {

% }

% } # end for



        «

% for my $panel (reverse @{$stash->{panels}}) {
% if ($panel->content) {


                    Close
                    <%= $panel->title %>



% my $content = ref $panel->content eq 'CODE' ? $panel->content->() : $panel->content;
% $content = Encode::encode('latin1', $content, Encode::FB_XMLCREF);
                        <%= Text::MicroTemplate::encoded_string($content) %>



% }
% } # end for


EOTMPL

sub default_panels {
    [qw(Environment Response Timer Memory Session DBITrace)];
}

sub prepare_app {
    my $self = shift;
    my $root = try { File::ShareDir::dist_dir('Plack-Middleware-Debug') } || 'share';

    my $builder = Plack::Builder->new;

    for my $spec (@{ $self->panels || $self->default_panels }) {
        my ($package, %args);
        if (ref $spec eq 'ARRAY') {
            # For the backward compatibility
            # [ 'PanelName', key1 => $value1, ... ]
            $package = shift @$spec;
            $package = "Debug::$package" unless $package =~ /^\+/s;
            $builder->add_middleware($package, @$spec);
        } else {
            # $spec could be a code ref (middleware) or a string
            # copy so that we do not change default_panels
            my $spec_copy = $spec;
            unless (ref $spec_copy) {
                $spec_copy = "Debug::$spec_copy" unless $spec_copy =~ /^\+/s;;
            }
            $builder->add_middleware($spec_copy);
        }
    }

    $self->app( $builder->to_app($self->app) );

    $self->renderer(
        Text::MicroTemplate->new(
            template   => $self->TEMPLATE,
            tag_start  => '<%',
            tag_end    => '%>',
            line_start => '%',
          )->build
    );

    $self->files(Plack::App::File->new(root => $root));
}

sub call {
    my ($self, $env) = @_;
    if ($env->{PATH_INFO} =~ m!^/debug_toolbar!) {
        return $self->files->call($env);
    }

    $env->{'plack.debug.panels'} = [];

    my $res = $self->app->($env);
    $self->response_cb($res, sub {
        my $res     = shift;
        my $headers = Plack::Util::headers($res->[1]);
        my $panels = delete $env->{'plack.debug.panels'};
        if (   ! Plack::Util::status_with_no_entity_body($res->[0])
            && ($headers->get('Content-Type') || '') =~ m!^(?:text/html|application/xhtml\+xml)!) {

            my $vars = {
                panels   => [ grep !$_->disabled, @$panels ],
                BASE_URL => $env->{SCRIPT_NAME},
            };

            my $content = $self->renderer->($vars);
            return sub {
                my $chunk = shift;
                return unless defined $chunk;
                $chunk =~ s!(?=)!$content!i;
                return $chunk;
            };
        }
    });
}

1;
__END__