File Coverage

blib/lib/Apache/Session/MongoDB.pm
Criterion Covered Total %
statement 23 31 74.1
branch n/a
condition n/a
subroutine 8 9 88.8
pod 0 1 0.0
total 31 41 75.6


line stmt bran cond sub pod time code
1             package Apache::Session::MongoDB;
2              
3 1     1   71764 use 5.010;
  1         4  
4 1     1   17 use strict;
  1         2  
  1         28  
5 1     1   689 use AutoLoader 'AUTOLOAD';
  1         1529  
  1         6  
6              
7             our $VERSION = '0.23';
8             our @ISA = qw(Apache::Session);
9              
10 1     1   641 use Apache::Session;
  1         1889  
  1         32  
11 1     1   507 use Apache::Session::Lock::Null;
  1         237  
  1         31  
12 1     1   452 use Apache::Session::Store::MongoDB;
  1         4  
  1         36  
13 1     1   661 use Apache::Session::Generate::MD5;
  1         346  
  1         30  
14 1     1   425 use Apache::Session::Serialize::MongoDB;
  1         2  
  1         125  
15              
16             sub populate {
17 0     0 0   my $self = shift;
18              
19 0           $self->{object_store} = Apache::Session::Store::MongoDB->new($self);
20 0           $self->{lock_manager} = Apache::Session::Lock::Null->new($self);
21 0           $self->{generate} = \&Apache::Session::Generate::MD5::generate;
22 0           $self->{validate} = \&Apache::Session::Generate::MD5::validate;
23 0           $self->{serialize} = \&Apache::Session::Serialize::MongoDB::serialize;
24 0           $self->{unserialize} = \&Apache::Session::Serialize::MongoDB::unserialize;
25              
26 0           return $self;
27             }
28              
29             our $default;
30              
31             *default = \$Apache::Session::Store::MongoDB::default;
32              
33             1;
34              
35             __END__