File Coverage

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

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	25	25	100.0

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

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

    return sub {
        my $res = shift;

        my @headers;
        Plack::Util::header_iter($res->[1], sub { push @headers, @_ });

        $panel->content(
            $self->render_list_pairs(
                [ 'Status code' => $res->[0], @headers ],
            ),
        );
    };
}

1;
__END__