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   165 use strict;
  26         85  
  26         1037  
3 26     26   144 use warnings;
  26         66  
  26         1617  
4 26     26   1685 use Class::Accessor::Fast;
  26         10503  
  26         390  
5              
6             sub import {
7 30     30   93 my $pkg = caller(0);
8 30         194 strict->import;
9 30         696 warnings->import;
10 26     26   2153 no strict 'refs';
  26         102  
  26         2717  
11 30         80 unshift @{"${pkg}::ISA"}, "Class::Accessor::Fast";
  30         440  
12 30         264 $pkg->mk_ro_accessors(qw/permissive/);
13             }
14              
15             1;