File Coverage

blib/lib/Plack/Middleware/Debug/Session.pm
Criterion Covered Total %
statement 15 16 93.7
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 23 25 92.0


line stmt bran cond sub pod time code
1             package Plack::Middleware::Debug::Session;
2 2     2   930 use 5.008;
  2         7  
3 2     2   10 use strict;
  2         4  
  2         48  
4 2     2   11 use warnings;
  2         4  
  2         70  
5 2     2   42 use parent qw(Plack::Middleware::Debug::Base);
  2         7  
  2         33  
6              
7             sub run {
8 3     3 1 29 my ($self, $env, $panel) = @_;
9              
10             return sub {
11 3     3   16 my $res = shift;
12              
13 3 50       60 my $session = $env->{'psgix.session'}
14             or return $panel->disable;
15              
16 0           $panel->content($self->render_hash($session));
17 3         79 };
18             }
19              
20             1;
21              
22             __END__