gistfile1.txt

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

sub process_response {
    my ($self, $res, $env) = @_;
    my $session = $env->{'plack.session'};
    $self->content($self->render_hash($session ? $session->store->dump_session($session->id)  : {} ));
}
1;