File Coverage

blib/lib/Apache/Session/CacheAny.pm
Criterion Covered Total %
statement 29 29 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 0 1 0.0
total 37 38 97.3


line stmt bran cond sub pod time code
1             package Apache::Session::CacheAny;
2              
3 6     6   280815 use strict;
  6         15  
  6         269  
4 6     6   36 use vars qw($VERSION);
  6         12  
  6         961  
5             $VERSION = '0.03';
6              
7 6     6   34 use base qw(Apache::Session);
  6         22  
  6         8688  
8              
9 6     6   27113 use Apache::Session::Generate::MD5;
  6         2332  
  6         187  
10 6     6   10486 use Apache::Session::Lock::Null;
  6         1222  
  6         168  
11 6     6   10444 use Apache::Session::Serialize::Storable;
  6         35516  
  6         191  
12 6     6   4318 use Apache::Session::Store::CacheAny;
  6         67  
  6         820  
13              
14             sub populate {
15 8     8 0 2002667 my $self = shift;
16              
17 8         82 $self->{object_store} = Apache::Session::Store::CacheAny->new($self);
18 8         71 $self->{lock_manager} = Apache::Session::Lock::Null->new($self);
19 8         67 $self->{generate} = \&Apache::Session::Generate::MD5::generate;
20 8         24 $self->{validate} = \&Apache::Session::Generate::MD5::validate;
21 8         23 $self->{serialize} = \&Apache::Session::Serialize::Storable::serialize;
22 8         18 $self->{unserialize} = \&Apache::Session::Serialize::Storable::unserialize;
23              
24 8         21 return $self;
25             }
26              
27             1;
28             __END__