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   91911 use 5.010;
  1         3  
4 1     1   6 use strict;
  1         2  
  1         24  
5 1     1   546 use AutoLoader 'AUTOLOAD';
  1         28542  
  1         8  
6              
7             our $VERSION = '0.20';
8             our @ISA = qw(Apache::Session);
9              
10 1     1   2698 use Apache::Session;
  1         3457  
  1         29  
11 1     1   401 use Apache::Session::Lock::Null;
  1         159  
  1         26  
12 1     1   357 use Apache::Session::Store::MongoDB;
  1         3  
  1         38  
13 1     1   608 use Apache::Session::Generate::MD5;
  1         307  
  1         26  
14 1     1   388 use Apache::Session::Serialize::MongoDB;
  1         2  
  1         194  
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__