File Coverage

blib/lib/HTTP/Session/State/Base.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 23 23 100.0


line stmt bran cond sub pod time code
1             package HTTP::Session::State::Base;
2 26     26   149 use strict;
  26         54  
  26         980  
3 26     26   131 use warnings;
  26         43  
  26         1403  
4 26     26   1403 use Class::Accessor::Fast;
  26         8167  
  26         292  
5              
6             sub import {
7 30     30   76 my $pkg = caller(0);
8 30         129 strict->import;
9 30         672 warnings->import;
10 26     26   1629 no strict 'refs';
  26         58  
  26         2471  
11 30         46 unshift @{"${pkg}::ISA"}, "Class::Accessor::Fast";
  30         369  
12 30         237 $pkg->mk_ro_accessors(qw/permissive/);
13             }
14              
15             1;