comparing 52f6274dc68f6d2119a7bb431021e327c5e1241a 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

+1 -1

Changes

···

       1
       1
        
       Revision history for CHI-Driver-MongoDB

     

       2
       2
        
       

     

       3
       3
       -
       0.01    Date/time

     

       3
       3
       +
       0.01    May 18, 2011 

     

       4
       4
        
               Initial version.

     

       5
       5

+6 -5

MANIFEST

···

       1
       1
        
       Changes

     

       2
       2
        
       INSTALL

     

       3
       3
        
       LICENSE

     

       4
       4
       -
       lib/CHI/Driver/MongoDB.pm

     

       4
       4
       +
       MANIFEST

     

       5
       5
       +
       META.json

     

       6
       6
       +
       META.yml

     

       5
       7
        
       Makefile.PL

     

       6
       6
       -
       MANIFEST			This list of files

     

       8
       8
       +
       lib/CHI/Driver/MongoDB.pm

     

       9
       9
       +
       lib/CHI/Driver/MongoDB/t/CHIDriverTests/MongoDB.pm

     

       7
       10
        
       README

     

       8
       11
        
       t/00-load.t

     

       9
       9
       -
       t/manifest.t

     

       10
       10
       -
       t/pod-coverage.t

     

       11
       11
       -
       t/pod.t

     

       12
       12
       +
       t/CHIDriverTests-MongoDB.t

+53

META.json

···

       1
       1
       +
       {

     

       2
       2
       +
          "abstract" : "Use MongoDB for cache storage",

     

       3
       3
       +
          "author" : [

     

       4
       4
       +
             "Nick Mohoric <nick.mohoric@gmail.com>"

     

       5
       5
       +
          ],

     

       6
       6
       +
          "dynamic_config" : 0,

     

       7
       7
       +
          "license" : [

     

       8
       8
       +
             "perl_5"

     

       9
       9
       +
          ],

     

       10
       10
       +
          "meta-spec" : {

     

       11
       11
       +
             "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",

     

       12
       12
       +
             "version" : "2"

     

       13
       13
       +
          },

     

       14
       14
       +
          "name" : "CHI-Driver-MongoDB",

     

       15
       15
       +
          "no_index" : {

     

       16
       16
       +
             "directory" : [

     

       17
       17
       +
                "lib/CHI/Driver/MongoDB/t",

     

       18
       18
       +
             ],

     

       19
       19
       +
          },

     

       20
       20
       +
          "prereqs" : {

     

       21
       21
       +
             "configure" : {

     

       22
       22
       +
                "requires" : {

     

       23
       23
       +
                   "ExtUtils::MakeMaker" : "6.31"

     

       24
       24
       +
                }

     

       25
       25
       +
             },

     

       26
       26
       +
             "runtime" : {

     

       27
       27
       +
                "requires" : {

     

       28
       28
       +
                   "CHI" : "0.241",

     

       29
       29
       +
                   "MongoDB" : "0.42"

     

       30
       30
       +
                }

     

       31
       31
       +
             },

     

       32
       32
       +
             "test" : {

     

       33
       33
       +
                "requires" : {

     

       34
       34
       +
                   "Test::Class" : 0,

     

       35
       35
       +
                   "Test::More" : 0

     

       36
       36
       +
                }

     

       37
       37
       +
             }

     

       38
       38
       +
          },

     

       39
       39
       +
          "release_status" : "stable",

     

       40
       40
       +
          "resources" : {

     

       41
       41
       +
             "bugtracker" : {

     

       42
       42
       +
                "mailto" : "bug-chi-driver-mongodb@rt.cpan.org",

     

       43
       43
       +
                "web" : "http://rt.cpan.org/NoAuth/Bugs.html?Dist=CHI-Driver-MongoDB"

     

       44
       44
       +
             },

     

       45
       45
       +
             "repository" : {

     

       46
       46
       +
                "type" : "git",

     

       47
       47
       +
                "url" : "git://github.com/AddingMachine/Chi-Driver-MongoDB.git",

     

       48
       48
       +
                "web" : "https://github.com/AddingMachine/Chi-Driver-MongoDB"

     

       49
       49
       +
             }

     

       50
       50
       +
          },

     

       51
       51
       +
          "version" : "0.01"

     

       52
       52
       +
       }

     

       53
       53
       +

+25

META.yml

···

       1
       1
       +
       ---

     

       2
       2
       +
       abstract: 'Use MongoDB for cache storage'

     

       3
       3
       +
       author:

     

       4
       4
       +
         - 'Nick Mohoric <nick.mohoricc@gmail.com>'

     

       5
       5
       +
       build_requires:

     

       6
       6
       +
         Test::Class: 0

     

       7
       7
       +
         Test::More: 0

     

       8
       8
       +
       configure_requires:

     

       9
       9
       +
         ExtUtils::MakeMaker: 6.31

     

       10
       10
       +
       dynamic_config: 0

     

       11
       11
       +
       license: perl

     

       12
       12
       +
       meta-spec:

     

       13
       13
       +
         url: http://module-build.sourceforge.net/META-spec-v1.4.html

     

       14
       14
       +
         version: 1.4

     

       15
       15
       +
       name: CHI-Driver-MongoDB

     

       16
       16
       +
       no_index:

     

       17
       17
       +
         directory:

     

       18
       18
       +
           - lib/CHI/Driver/MongoDB/t

     

       19
       19
       +
       requires:

     

       20
       20
       +
         CHI: 0.241

     

       21
       21
       +
         MongoDB: 0.42 

     

       22
       22
       +
       resources:

     

       23
       23
       +
         bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=CHI-Driver-MongoDB

     

       24
       24
       +
         repository: git://github.com/AddingMachine/Chi-Driver-MongoDB.git 

     

       25
       25
       +
       version: 0.01

+8 -3

Makefile.PL

···

       11
       11
        
             ? ('LICENSE'=> 'perl')

     

       12
       12
        
             : ()),

     

       13
       13
        
           PL_FILES            => {},

     

       14
       14
       +
           BUILD_REQUIRES => {

     

       15
       15
       +
               'Test::Class' => '0',

     

       16
       16
       +
               'Test::More' => '0'

     

       17
       17
       +
           },

     

       18
       18
       +
           CONFIGURE_REQUIRES => {

     

       19
       19
       +
               'ExtUtils::MakeMaker' => '6.31'

     

       20
       20
       +
           },

     

       21
       21
       +
           LICENSE => 'perl',

     

       14
       22
        
           PREREQ_PM => {

     

       15
       15
       -
               'Test::More' => 0,

     

       16
       23
        
       	'CHI'	     => '0.241',

     

       17
       24
        
       	'MongoDB'    => '0.42',

     

       18
       25
        
           },

     

       19
       19
       -
           dist                => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },

     

       20
       20
       -
           clean               => { FILES => 'CHI-Driver-MongoDB-*' },

     

       21
       26
        
           test 		=> { TESTS => 't/*.t' },

     

       22
       27
        
       );

+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,

+23 -19

lib/CHI/Driver/MongoDB.pm

···

       10
       10
        
       

     

       11
       11
        
       extends 'CHI::Driver';

     

       12
       12
        
       

     

       13
       13
       -
       has 'conn'    => ( is => 'ro', isa => 'MongoDB::Connection' );

     

       14
       14
       -
       has 'db'      => ( is => 'ro', isa => 'MongoDB::Database' );

     

       15
       15
       -
       has 'db_name' => ( is => 'ro', isa => 'Str', default => 'chi' );

     

       13
       13
       +
       has 'conn'       => ( is => 'ro', isa => 'MongoDB::Connection' );

     

       14
       14
       +
       has 'db'         => ( is => 'ro', isa => 'MongoDB::Database' );

     

       15
       15
       +
       has 'collection' => ( is => 'ro', isa => 'MongoDB::Collection' );

     

       16
       16
       +
       has 'db_name'    => ( is => 'ro', isa => 'Str', default => 'chi' );

     

       17
       17
       +
       has 'safe'       => ( is => 'rw', isa => 'Bool', default => 0 );

     

       16
       18
        
       

     

       17
       19
        
       __PACKAGE__->meta->make_immutable();

     

       18
       20
        
       

     

       19
       21
        
       sub BUILD {

     

       20
       22
        
           my ( $self, $args ) = @_;

     

       21
       23
        
       

     

       22
       22
       -
           return if $self->{db};

     

       23
       23
       -
       

     

       24
       24
        
           if ( $self->{conn} && $self->{db_name} ) {

     

       25
       25
        
               $self->{db} = $self->{conn}->get_database( $self->{db_name} );

     

       26
       26
        
           }

     

       27
       27
       -
           else {

     

       27
       27
       +
           elsif ( !$self->{db} ) {

     

       28
       28
        
               croak 'No Database Set';

     

       29
       29
        
           }

     

       30
       30
        
       

     

       31
       31
       -
           return;

     

       32
       32
       -
       }

     

       31
       31
       +
           $self->{collection} = $self->db->get_collection( $self->namespace() );

     

       33
       32
        
       

     

       34
       34
       -
       sub _collection {

     

       35
       35
       -
           my ($self) = @_;

     

       36
       36
       -
           return $self->db->get_collection( $self->namespace() );

     

       33
       33
       +
           return;

     

       37
       34
        
       }

     

       38
       35
        
       

     

       39
       36
        
       sub fetch {

     

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

     

       41
       41
       -
           my $results =

     

       42
       42
       -
             $self->_collection->find_one( { _id => $key }, { data => 1 } );

     

       38
       38
       +
       

     

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

     

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

     

       44
       41
        
       }

     

       45
       42
        
       

     

       46
       43
        
       sub store {

     

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

     

       48
       48
       -
           $self->_collection->save( { _id => $key, data => $data }, { safe => 1 } );

     

       45
       45
       +
       

     

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

     

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

     

       49
       48
        
           return;

     

       50
       49
        
       }

     

       51
       50
        
       

     

       52
       51
        
       sub remove {

     

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

     

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

     

       53
       53
       +
       

     

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

     

       55
       55
        
           return;

     

       56
       56
        
       }

     

       57
       57
        
       

     

       58
       58
        
       sub clear {

     

       59
       59
       -
           shift->_collection->drop;

     

       59
       59
       +
           shift->collection->drop;

     

       60
       60
        
           return;

     

       61
       61
        
       }

     

       62
       62
        
       

     

       63
       63
        
       sub get_keys {

     

       64
       64
       -
           return map { $_->{_id} } shift->_collection->find( {}, { _id => 1 } )->all;

     

       64
       64
       +
           map { $_->{_id} } shift->collection->find( {}, { _id => 1 } )->all;

     

       65
       65
        
       }

     

       66
       66
        
       

     

       67
       67
        
       sub get_namespaces {

     

       68
       68
       -
           return shift->db->collection_names( { safe => 1 } );

     

       68
       68
       +
           return shift->db->collection_names();

     

       69
       69
        
       }

     

       70
       70
        
       

     

       71
       71
        
       1;

     
···

       120
       120
        
       

     

       121
       121
        
       =item db_name

     

       122
       122
        
       

     

       123
       123
       -
       Option database name to use in conjunction with the conn

     

       123
       123
       +
       Optional database name to use in conjunction with the conn

     

       124
       124
       +
       

     

       125
       125
       +
       =item safe

     

       126
       126
       +
       

     

       127
       127
       +
       Optional flag to confirm insertion/removal. This will slow down writes significantly.

     

       124
       128
        
       

     

       125
       129
        
       =back

     

       126
       130

+1 -1

t/CHIDriverTests-MongoDB.t

···

       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;

-12

t/pod.t

···

       1
       1
       -
       #!perl -T

     

       2
       2
       -
       

     

       3
       3
       -
       use strict;

     

       4
       4
       -
       use warnings;

     

       5
       5
       -
       use Test::More;

     

       6
       6
       -
       

     

       7
       7
       -
       # Ensure a recent version of Test::Pod

     

       8
       8
       -
       my $min_tp = 1.22;

     

       9
       9
       -
       eval "use Test::Pod $min_tp";

     

       10
       10
       -
       plan skip_all => "Test::Pod $min_tp required for testing POD" if $@;

     

       11
       11
       -
       

     

       12
       12
       -
       all_pod_files_ok();

Compare changes