···

       
1
       
1
       
+
       
MYMETA.yml

     

       
2
       
2
       
+
       
Makefile

     

       
3
       
3
       
+
       
blib/

     

       
4
       
4
       
+
       
pm_to_blib

     

···

       
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

     

···

       
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,

     

···

       
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
       
 
       


     

···

       
1
       
1
       
 
       
#!perl -w

     

       
2
       
2
       
 
       
use strict;

     

       
3
       
3
       
 
       
use warnings;

     

       
4
       
4
       
-
       
use CHI::Driver::MongoDB::t:CHIDriverTests::MongoDB;

     

       
4
       
4
       
+
       
use CHI::Driver::MongoDB::t::CHIDriverTests::MongoDB;

     

       
5
       
5
       
 
       
CHI::Driver::MongoDB::t::CHIDriverTests::MongoDB->runtests;