fixed servers value in subclass

ginesr · Apr 19, 2014 · ef33aab · ef33aab
1 parent 09f055d
commit ef33aab
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 4 deletions.
diff --git a/lib/Gideon/Cache/Memcache.pm b/lib/Gideon/Cache/Memcache.pm
@@ -41,7 +41,6 @@ sub set {
     my $ttl      = shift;
     my $class    = shift;
 
-
     my $class_keys = $self->_get_class_cache;
     $class_keys->{$class}->{$key} = 1;
 
@@ -111,6 +110,11 @@ sub start {
     return $memd;
 }
 
+sub get_servers {
+    my $self = shift;
+    return $servers;
+}
+
 sub set_servers {
     my $self = shift;
     my $ref = shift || [];

diff --git a/lib/Gideon/Cache/Memcache/Fast.pm b/lib/Gideon/Cache/Memcache/Fast.pm
@@ -6,12 +6,11 @@ use base 'Gideon::Cache::Memcache';
 use Cache::Memcached::Fast;
 
 use constant COMPRESS_TRESH => 10_000;
-our $servers = ["127.0.0.1:11211"];
 
 sub _connect {
     my $self = shift;
     return new Cache::Memcached::Fast {
-        'servers'            => $servers,
+        'servers'            => $self->get_servers,
         'compress_threshold' => COMPRESS_TRESH,
     };
 }

diff --git a/t/10_cache_memcache_fast.t → t/10cache_memcache_fast.t b/t/10_cache_memcache_fast.t → t/10cache_memcache_fast.t
@@ -50,7 +50,7 @@ my $more_data = Example::Fast->find_all( value => { like => '%test 6' } );
 my @list = Gideon::Cache::Memcache::Fast->class_keys('Example::Fast');
 
 is( $more_data->records_found, 1, 'One record found' );
-is( scalar @list, 2, 'Keys for class' );
+is( scalar @list, 1, 'Keys for class' );
 
 empty_table();