commit c9d048af1b8d24ac7f15d734e996e545b49dcf58 · nickmohoric.dev/CHI-Driver-MongoDB

+11 -2
lib/CHI/Driver/MongoDB/t/CHIDriverTests/MongoDB.pm
···

       26
       26
        
           };

     

       27
       27
        
       }

     

       28
       28
        
       

     

       29
       29
       +
       sub new_cache_options {

     

       30
       30
       +
           my $self = shift;

     

       31
       31
       +
       

     

       32
       32
       +
           return (

     

       33
       33
       +
               $self->SUPER::new_cache_options(),

     

       34
       34
       +
               db          => $self->db,

     

       35
       35
       +
           );

     

       36
       36
       +
       }

     

       37
       37
       +
       

     

       29
       38
        
       sub test_with_database : Tests(1) {

     

       30
       39
        
           return "MongoDB::Database not installed"

     

       31
       40
        
             unless can_load( modules => { "MongoDB::Database" => undef } );

     

       32
       41
        
       

     

       33
       33
       -
           my $self = shift;

     

       42
       42
       +
           my $self  = shift;

     

       34
       43
        
           my $cache = CHI->new(

     

       35
       44
        
               driver => "MongoDB",

     

       36
       45
        
               db     => $self->db

     
···

       45
       54
        
           return "MongoDB::Connection not installed"

     

       46
       55
        
             unless can_load( modules => { "MongoDB::Connection" => undef } );

     

       47
       56
        
       

     

       48
       48
       -
           my $self = shift;

     

       57
       57
       +
           my $self  = shift;

     

       49
       58
        
           my $cache = CHI->new(

     

       50
       59
        
               driver  => "MongoDB",

     

       51
       60
        
               conn    => MongoDB::Connection->new,