comparing c9d048af1b8d24ac7f15d734e996e545b49dcf58 and main on nickmohoric.dev/CHI-Driver-MongoDB

+4

.gitignore

+8

.travis.yml

···

       1
       1
       +
       language: perl

     

       2
       2
       +
       perl:

     

       3
       3
       +
         - "5.16"

     

       4
       4
       +
         - "5.14"

     

       5
       5
       +
         - "5.12"

     

       6
       6
       +
         - "5.10"

     

       7
       7
       +
         - "5.8"

     

       8
       8
       +
       services: mongodb

+3 -3

lib/CHI/Driver/MongoDB.pm

···

       36
       36
        
       sub fetch {

     

       37
       37
        
           my ( $self, $key ) = @_;

     

       38
       38
        
       

     

       39
       39
       -
           my $results = $self->collection->find_one( { _id => $key }, { data => 1 } );

     

       39
       39
       +
           my $results = $self->collection->find_one( { _id => "$key" }, { data => 1 } );

     

       40
       40
        
           return ($results) ? $results->{data} : undef;

     

       41
       41
        
       }

     

       42
       42
        
       

     

       43
       43
        
       sub store {

     

       44
       44
        
           my ( $self, $key, $data ) = @_;

     

       45
       45
        
       

     

       46
       46
       -
           $self->collection->save( { _id => $key, data => $data },

     

       46
       46
       +
           $self->collection->save( { _id => "$key", data => $data },

     

       47
       47
        
               { safe => $self->{safe} } );

     

       48
       48
        
           return;

     

       49
       49
        
       }

     
···

       51
       51
        
       sub remove {

     

       52
       52
        
           my ( $self, $key ) = @_;

     

       53
       53
        
       

     

       54
       54
       -
           $self->collection->remove( { _id => $key }, { safe => $self->{safe} } );

     

       54
       54
       +
           $self->collection->remove( { _id => "$key" }, { safe => $self->{safe} } );

     

       55
       55
        
           return;

     

       56
       56
        
       }

     

       57
       57

Compare changes