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   136 use strict;
  25         47  
  25         1029  
3 25     25   135 use warnings;
  25         43  
  25         781  
4 25     25   2953 use Class::Accessor::Fast;
  25         11601  
  25         278  
5              
6             sub import {
7 29     29   88 my $pkg = caller(0);
8 29         325 strict->import;
9 29         231 warnings->import;
10 25     25   1672 no strict 'refs';
  25         51  
  25         2191  
11 29         42 unshift @{"${pkg}::ISA"}, "Class::Accessor::Fast";
  29         459  
12 29         276 $pkg->mk_ro_accessors(qw/permissive/);
13             }
14              
15             1;