File Coverage

blib/lib/Plack/Session/Cleanup.pm
Criterion Covered Total %
statement 6 12 50.0
branch n/a
condition n/a
subroutine 2 4 50.0
pod 1 1 100.0
total 9 17 52.9


line stmt bran cond sub pod time code
1             package Plack::Session::Cleanup;
2 14     14   66 use strict;
  14         21  
  14         547  
3 14     14   62 use warnings;
  14         21  
  14         1503  
4              
5             our $VERSION = '0.30';
6             our $AUTHORITY = 'cpan:STEVAN';
7              
8             sub new {
9 0     0 1   my $class = shift;
10 0           my $subref = shift;
11 0           my $self = bless $subref, $class;
12 0           return $self;
13             }
14              
15             sub DESTROY {
16 0     0     my $self = shift;
17 0           $self->();
18             }
19              
20             1;
21              
22             __END__