File Coverage

blib/lib/Apache/Session/Browseable/Cassandra.pm
Criterion Covered Total %
statement 21 29 72.4
branch n/a
condition n/a
subroutine 7 8 87.5
pod 0 1 0.0
total 28 38 73.6


line stmt bran cond sub pod time code
1             package Apache::Session::Browseable::Cassandra;
2              
3 1     1   141860 use strict;
  1         3  
  1         29  
4              
5 1     1   550 use Apache::Session;
  1         1881  
  1         32  
6 1     1   551 use Apache::Session::Lock::Null;
  1         200  
  1         30  
7 1     1   484 use Apache::Session::Browseable::Store::Cassandra;
  1         3  
  1         26  
8 1     1   466 use Apache::Session::Generate::SHA256;
  1         3  
  1         34  
9 1     1   434 use Apache::Session::Serialize::JSON;
  1         2  
  1         32  
10 1     1   444 use Apache::Session::Browseable::DBI;
  1         3  
  1         157  
11              
12             our $VERSION = '1.3.12';
13             our @ISA = qw(Apache::Session::Browseable::DBI Apache::Session);
14              
15             sub populate {
16 0     0 0   my $self = shift;
17              
18             $self->{object_store} =
19 0           new Apache::Session::Browseable::Store::Cassandra $self;
20 0           $self->{lock_manager} = new Apache::Session::Lock::Null $self;
21 0           $self->{generate} = \&Apache::Session::Generate::SHA256::generate;
22 0           $self->{validate} = \&Apache::Session::Generate::SHA256::validate;
23 0           $self->{serialize} = \&Apache::Session::Serialize::JSON::serialize;
24 0           $self->{unserialize} = \&Apache::Session::Serialize::JSON::unserialize;
25              
26 0           return $self;
27             }
28              
29             1;
30