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

+4

.gitignore

···

       1
       +
       MYMETA.yml

     

       2
       +
       Makefile

     

       3
       +
       blib/

     

       4
       +
       pm_to_blib

+8

.travis.yml

···

       1
       +
       language: perl

     

       2
       +
       perl:

     

       3
       +
         - "5.16"

     

       4
       +
         - "5.14"

     

       5
       +
         - "5.12"

     

       6
       +
         - "5.10"

     

       7
       +
         - "5.8"

     

       8
       +
       services: mongodb

+1 -1

Changes

···

       1
        
       Revision history for CHI-Driver-MongoDB

     

       2
        
       

     

       3
       -
       0.01    Date/time

     

       4
        
               Initial version.

     

       5

···

       1
        
       Revision history for CHI-Driver-MongoDB

     

       2
        
       

     

       3
       +
       0.01    May 18, 2011 

     

       4
        
               Initial version.

     

       5

+6 -5

MANIFEST

···

       1
        
       Changes

     

       2
        
       INSTALL

     

       3
        
       LICENSE

     

       4
       -
       lib/CHI/Driver/MongoDB.pm

     

       0
        
       
     

       0
        
       
     

       5
        
       Makefile.PL

     

       6
       -
       MANIFEST			This list of files

     

       0
        
       
     

       7
        
       README

     

       8
        
       t/00-load.t

     

       9
       -
       t/manifest.t

     

       10
       -
       t/pod-coverage.t

     

       11
       -
       t/pod.t

···

       1
        
       Changes

     

       2
        
       INSTALL

     

       3
        
       LICENSE

     

       4
       +
       MANIFEST

     

       5
       +
       META.json

     

       6
       +
       META.yml

     

       7
        
       Makefile.PL

     

       8
       +
       lib/CHI/Driver/MongoDB.pm

     

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

     

       10
        
       README

     

       11
        
       t/00-load.t

     

       12
       +
       t/CHIDriverTests-MongoDB.t

     

       0
        
       
     

       0

+53

META.json

···

       1
       +
       {

     

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

     

       3
       +
          "author" : [

     

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

     

       5
       +
          ],

     

       6
       +
          "dynamic_config" : 0,

     

       7
       +
          "license" : [

     

       8
       +
             "perl_5"

     

       9
       +
          ],

     

       10
       +
          "meta-spec" : {

     

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

     

       12
       +
             "version" : "2"

     

       13
       +
          },

     

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

     

       15
       +
          "no_index" : {

     

       16
       +
             "directory" : [

     

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

     

       18
       +
             ],

     

       19
       +
          },

     

       20
       +
          "prereqs" : {

     

       21
       +
             "configure" : {

     

       22
       +
                "requires" : {

     

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

     

       24
       +
                }

     

       25
       +
             },

     

       26
       +
             "runtime" : {

     

       27
       +
                "requires" : {

     

       28
       +
                   "CHI" : "0.241",

     

       29
       +
                   "MongoDB" : "0.42"

     

       30
       +
                }

     

       31
       +
             },

     

       32
       +
             "test" : {

     

       33
       +
                "requires" : {

     

       34
       +
                   "Test::Class" : 0,

     

       35
       +
                   "Test::More" : 0

     

       36
       +
                }

     

       37
       +
             }

     

       38
       +
          },

     

       39
       +
          "release_status" : "stable",

     

       40
       +
          "resources" : {

     

       41
       +
             "bugtracker" : {

     

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

     

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

     

       44
       +
             },

     

       45
       +
             "repository" : {

     

       46
       +
                "type" : "git",

     

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

     

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

     

       49
       +
             }

     

       50
       +
          },

     

       51
       +
          "version" : "0.01"

     

       52
       +
       }

     

       53
       +

+25

META.yml

···

       1
       +
       ---

     

       2
       +
       abstract: 'Use MongoDB for cache storage'

     

       3
       +
       author:

     

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

     

       5
       +
       build_requires:

     

       6
       +
         Test::Class: 0

     

       7
       +
         Test::More: 0

     

       8
       +
       configure_requires:

     

       9
       +
         ExtUtils::MakeMaker: 6.31

     

       10
       +
       dynamic_config: 0

     

       11
       +
       license: perl

     

       12
       +
       meta-spec:

     

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

     

       14
       +
         version: 1.4

     

       15
       +
       name: CHI-Driver-MongoDB

     

       16
       +
       no_index:

     

       17
       +
         directory:

     

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

     

       19
       +
       requires:

     

       20
       +
         CHI: 0.241

     

       21
       +
         MongoDB: 0.42 

     

       22
       +
       resources:

     

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

     

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

     

       25
       +
       version: 0.01

+8 -3

Makefile.PL

···

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

     

       12
        
             : ()),

     

       13
        
           PL_FILES            => {},

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       14
        
           PREREQ_PM => {

     

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

     

       16
        
       	'CHI'	     => '0.241',

     

       17
        
       	'MongoDB'    => '0.42',

     

       18
        
           },

     

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

     

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

     

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

     

       22
        
       );

···

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

     

       12
        
             : ()),

     

       13
        
           PL_FILES            => {},

     

       14
       +
           BUILD_REQUIRES => {

     

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

     

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

     

       17
       +
           },

     

       18
       +
           CONFIGURE_REQUIRES => {

     

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

     

       20
       +
           },

     

       21
       +
           LICENSE => 'perl',

     

       22
        
           PREREQ_PM => {

     

       0
        
       
     

       23
        
       	'CHI'	     => '0.241',

     

       24
        
       	'MongoDB'    => '0.42',

     

       25
        
           },

     

       0
        
       
     

       0
        
       
     

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

     

       27
        
       );

+11 -2

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

···

       26
        
           };

     

       27
        
       }

     

       28
        
       

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       29
        
       sub test_with_database : Tests(1) {

     

       30
        
           return "MongoDB::Database not installed"

     

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

     

       32
        
       

     

       33
       -
           my $self = shift;

     

       34
        
           my $cache = CHI->new(

     

       35
        
               driver => "MongoDB",

     

       36
        
               db     => $self->db

     
···

       45
        
           return "MongoDB::Connection not installed"

     

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

     

       47
        
       

     

       48
       -
           my $self = shift;

     

       49
        
           my $cache = CHI->new(

     

       50
        
               driver  => "MongoDB",

     

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

···

       26
        
           };

     

       27
        
       }

     

       28
        
       

     

       29
       +
       sub new_cache_options {

     

       30
       +
           my $self = shift;

     

       31
       +
       

     

       32
       +
           return (

     

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

     

       34
       +
               db          => $self->db,

     

       35
       +
           );

     

       36
       +
       }

     

       37
       +
       

     

       38
        
       sub test_with_database : Tests(1) {

     

       39
        
           return "MongoDB::Database not installed"

     

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

     

       41
        
       

     

       42
       +
           my $self  = shift;

     

       43
        
           my $cache = CHI->new(

     

       44
        
               driver => "MongoDB",

     

       45
        
               db     => $self->db

     
···

       54
        
           return "MongoDB::Connection not installed"

     

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

     

       56
        
       

     

       57
       +
           my $self  = shift;

     

       58
        
           my $cache = CHI->new(

     

       59
        
               driver  => "MongoDB",

     

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

+4 -23

lib/CHI/Driver/MongoDB.pm

···

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

     

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

     

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

     

       18
       -
       has 'use_oid'    => ( is => 'rw', isa => 'Bool', default => 0 );

     

       19
        
       

     

       20
        
       __PACKAGE__->meta->make_immutable();

     

       21
        
       

     
···

       36
        
       

     

       37
        
       sub fetch {

     

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

     

       39
       -
           $key =

     

       40
       -
             ( $self->{use_oid} )

     

       41
       -
             ? MongoDB::OID->new( value => unpack( "H*", $key ) )

     

       42
       -
             : $key;

     

       43
        
       

     

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

     

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

     

       46
        
       }

     

       47
        
       

     

       48
        
       sub store {

     

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

     

       50
       -
           $key =

     

       51
       -
             ( $self->{use_oid} )

     

       52
       -
             ? MongoDB::OID->new( value => unpack( "H*", $key ) )

     

       53
       -
             : $key;

     

       54
        
       

     

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

     

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

     

       57
        
           return;

     

       58
        
       }

     

       59
        
       

     

       60
        
       sub remove {

     

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

     

       62
       -
           $key =

     

       63
       -
             ( $self->{use_oid} )

     

       64
       -
             ? MongoDB::OID->new( value => unpack( "H*", $key ) )

     

       65
       -
             : $key;

     

       66
        
       

     

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

     

       68
        
           return;

     

       69
        
       }

     

       70
        
       

     
···

       74
        
       }

     

       75
        
       

     

       76
        
       sub get_keys {

     

       77
       -
           return ( !shift->{use_oid} )

     

       78
       -
             ? map { $_->{_id} } shift->collection->find( {}, { _id => 1 } )->all

     

       79
       -
             : croak 'Cannot get keys when converting keys to OID';

     

       80
        
       }

     

       81
        
       

     

       82
        
       sub get_namespaces {

     
···

       140
        
       =item safe

     

       141
        
       

     

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

     

       143
       -
       

     

       144
       -
       =item use_oid

     

       145
       -
       

     

       146
       -
       Optional flag to convert key to OID. This speeds up gets, slows retrieval, and removes the ability to get_keys.

     

       147
        
       

     

       148
        
       =back

     

       149

···

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

     

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

     

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

     

       0
        
       
     

       18
        
       

     

       19
        
       __PACKAGE__->meta->make_immutable();

     

       20
        
       

     
···

       35
        
       

     

       36
        
       sub fetch {

     

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

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       38
        
       

     

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

     

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

     

       41
        
       }

     

       42
        
       

     

       43
        
       sub store {

     

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

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       45
        
       

     

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

     

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

     

       48
        
           return;

     

       49
        
       }

     

       50
        
       

     

       51
        
       sub remove {

     

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

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       53
        
       

     

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

     

       55
        
           return;

     

       56
        
       }

     

       57
        
       

     
···

       61
        
       }

     

       62
        
       

     

       63
        
       sub get_keys {

     

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

     

       0
        
       
     

       0
        
       
     

       65
        
       }

     

       66
        
       

     

       67
        
       sub get_namespaces {

     
···

       125
        
       =item safe

     

       126
        
       

     

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

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       128
        
       

     

       129
        
       =back

     

       130

+1 -1

t/CHIDriverTests-MongoDB.t

···

       1
        
       #!perl -w

     

       2
        
       use strict;

     

       3
        
       use warnings;

     

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

     

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

···

       1
        
       #!perl -w

     

       2
        
       use strict;

     

       3
        
       use warnings;

     

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

     

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

-12

t/pod.t

···

       1
       -
       #!perl -T

     

       2
       -
       

     

       3
       -
       use strict;

     

       4
       -
       use warnings;

     

       5
       -
       use Test::More;

     

       6
       -
       

     

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

     

       8
       -
       my $min_tp = 1.22;

     

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

     

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

     

       11
       -
       

     

       12
       -
       all_pod_files_ok();

Compare changes