|
|
@@ -1,55 +0,0 @@
|
|
|
-Index: DBIx-SearchBuilder-1.45/Makefile.PL
|
|
|
---- DBIx-SearchBuilder-1.45/Makefile.PL.orig 2006-05-28 01:02:22 +0200
|
|
|
-+++ DBIx-SearchBuilder-1.45/Makefile.PL 2006-09-27 09:52:45 +0200
|
|
|
-@@ -7,7 +7,7 @@
|
|
|
- requires('Want');
|
|
|
- requires('Encode');
|
|
|
- requires('Class::ReturnValue', 0.40);
|
|
|
--requires('Cache::Simple::TimedExpiry' => '0.21');
|
|
|
-+requires('Cache::MemoryCache');
|
|
|
- requires('Clone');
|
|
|
- build_requires('Test::More' => 0.52);
|
|
|
- build_requires('DBD::SQLite');
|
|
|
-Index: DBIx-SearchBuilder-1.45/SearchBuilder/Record/Cachable.pm
|
|
|
---- DBIx-SearchBuilder-1.45/SearchBuilder/Record/Cachable.pm.orig 2006-09-12 01:19:30 +0200
|
|
|
-+++ DBIx-SearchBuilder-1.45/SearchBuilder/Record/Cachable.pm 2006-09-27 09:55:18 +0200
|
|
|
-@@ -7,7 +7,7 @@
|
|
|
- use DBIx::SearchBuilder::Handle;
|
|
|
- @ISA = qw (DBIx::SearchBuilder::Record);
|
|
|
-
|
|
|
--use Cache::Simple::TimedExpiry;
|
|
|
-+use Cache::MemoryCache;
|
|
|
-
|
|
|
- use strict;
|
|
|
-
|
|
|
-@@ -39,8 +39,10 @@
|
|
|
-
|
|
|
- sub _SetupCache {
|
|
|
- my ($self, $cache) = @_;
|
|
|
-- $_CACHES{$cache} = new Cache::Simple::TimedExpiry;
|
|
|
-- $_CACHES{$cache}->expire_after( $self->_CacheConfig->{'cache_for_sec'} );
|
|
|
-+ $_CACHES{$cache} = Cache::MemoryCache->new({
|
|
|
-+ 'namespace' => 'DBIx::SearchBuilder::Record::Cache($cache)',
|
|
|
-+ 'default_expires_in' => $self->_CacheConfig->{'cache_for_sec'}
|
|
|
-+ });
|
|
|
- return $_CACHES{$cache};
|
|
|
- }
|
|
|
-
|
|
|
-@@ -177,7 +179,7 @@
|
|
|
-
|
|
|
- sub _fetch () {
|
|
|
- my ( $self, $cache_key ) = @_;
|
|
|
-- my $data = $self->_RecordCache->fetch( $cache_key ) or return 0;
|
|
|
-+ my $data = $self->_RecordCache->get($cache_key) or return 0;
|
|
|
- @{$self}{keys %$data} = values %$data; # deserialize
|
|
|
- return 1;
|
|
|
- }
|
|
|
-@@ -264,7 +266,7 @@
|
|
|
- sub _lookup_primary_RecordCache_key {
|
|
|
- my ($self, $key) = @_;
|
|
|
- return undef unless $key;
|
|
|
-- return $self->_KeyCache->fetch($key) || $key;
|
|
|
-+ return $self->_KeyCache->get($key) || $key;
|
|
|
- }
|
|
|
-
|
|
|
- =head2 _CacheConfig
|