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 25     25   140 use strict;
  25         46  
  25         605  
3 25     25   109 use warnings;
  25         46  
  25         577  
4 25     25   1309 use Class::Accessor::Fast;
  25         7223  
  25         227  
5              
6             sub import {
7 29     29   72 my $pkg = caller(0);
8 29         144 strict->import;
9 29         202 warnings->import;
10 25     25   1364 no strict 'refs';
  25         78  
  25         1779  
11 29         43 unshift @{"${pkg}::ISA"}, "Class::Accessor::Fast";
  29         329  
12 29         226 $pkg->mk_ro_accessors(qw/permissive/);
13             }
14              
15             1;