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   78272 use 5.010;
  1         4  
4 1     1   8 use strict;
  1         2  
  1         31  
5 1     1   679 use AutoLoader 'AUTOLOAD';
  1         1560  
  1         8  
6              
7             our $VERSION = '0.21';
8             our @ISA = qw(Apache::Session);
9              
10 1     1   687 use Apache::Session;
  1         1955  
  1         42  
11 1     1   591 use Apache::Session::Lock::Null;
  1         213  
  1         32  
12 1     1   542 use Apache::Session::Store::MongoDB;
  1         4  
  1         46  
13 1     1   844 use Apache::Session::Generate::MD5;
  1         413  
  1         33  
14 1     1   510 use Apache::Session::Serialize::MongoDB;
  1         4  
  1         171  
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__