From e74fc14914d35b86748a9e8020407c1cadb72f3c Mon Sep 17 00:00:00 2001 From: Chris Cormack Date: Wed, 3 Nov 2010 16:31:03 -0400 Subject: [PATCH] Bug 5363 - Removing unused module (C4::Cache::FastMemcached) Signed-off-by: Chris Nighswonger Signed-off-by: Chris Cormack Signed-off-by: Chris Nighswonger --- C4/Cache.pm | 1 - C4/Cache/FastMemcached.pm | 95 --------------------------------------- t/Cache_FastMemcached.t | 14 ------ 3 files changed, 110 deletions(-) delete mode 100644 C4/Cache/FastMemcached.pm delete mode 100755 t/Cache_FastMemcached.t diff --git a/C4/Cache.pm b/C4/Cache.pm index ebe881a181..151a3fa755 100644 --- a/C4/Cache.pm +++ b/C4/Cache.pm @@ -50,7 +50,6 @@ use Carp; use base qw(Class::Accessor); use C4::Cache::Memcached; -use C4::Cache::FastMemcached; __PACKAGE__->mk_ro_accessors( qw( cache ) ); diff --git a/C4/Cache/FastMemcached.pm b/C4/Cache/FastMemcached.pm deleted file mode 100644 index 96dc08ec71..0000000000 --- a/C4/Cache/FastMemcached.pm +++ /dev/null @@ -1,95 +0,0 @@ -package Koha::Cache::FastMemcached; - -# Copyright 2009 Chris Cormack and The Koha Dev Team -# -# This file is part of Koha. -# -# Koha is free software; you can redistribute it and/or modify it under the -# terms of the GNU General Public License as published by the Free Software -# Foundation; either version 2 of the License, or (at your option) any later -# version. -# -# Koha is distributed in the hope that it will be useful, but WITHOUT ANY -# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR -# A PARTICULAR PURPOSE. See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License along -# with Koha; if not, write to the Free Software Foundation, Inc., -# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. - -use strict; -use warnings; -use Carp; - -use Cache::Memcached::Fast; -use IO::Compress::Gzip; -use IO::Uncompress::Gunzip; -use Storable; - -use base qw(C4::Cache); - -sub _cache_handle { - my $class = shift; - my $params = shift; - - my @servers = split /,/, $params->{'cache_servers'}; - - return Cache::Memcached::Fast->new( - { - servers => \@servers, - namespace => $params->{'namespace'} || 'KOHA', - connect_timeout => $params->{'connect_timeout'} || 2, - io_timeout => $params->{'io_timeout'} || 2, - close_on_error => 1, - compress_threshold => 100_000, - compress_ratio => 0.9, - compress_methods => - [ \&IO::Compress::Gzip::gzip, \&IO::Uncompress::Gunzip::gunzip ], - max_failures => 3, - failure_timeout => 2, - ketama_points => 150, - nowait => 1, - hash_namespace => 1, - serialize_methods => [ \&Storable::freeze, \&Storable::thaw ], - utf8 => 1, - } - ); -} - -sub set_in_cache { - my ( $self, $key, $value, $expiry ) = @_; - croak "No key" unless $key; - - if ( defined $expiry ) { - return $self->cache->set( $key, $value, $expiry ); - } - else { - return $self->cache->set( $key, $value ); - } -} - -sub get_from_cache { - my ( $self, $key ) = @_; - croak "No key" unless $key; - return $self->cache->get($key); -} - -sub clear_from_cache { - my ( $self, $key ) = @_; - croak "No key" unless $key; - return $self->cache->delete($key); -} - -sub flush_all { - my $self = shift; - return $self->cache->flush_all; -} - -1; -__END__ - -=head1 NAME - - C4::Cache::FastMemcached - memcached::fast subclass of C4::Cache - -=cut diff --git a/t/Cache_FastMemcached.t b/t/Cache_FastMemcached.t deleted file mode 100755 index 589e9b198f..0000000000 --- a/t/Cache_FastMemcached.t +++ /dev/null @@ -1,14 +0,0 @@ -#!/usr/bin/perl -# -# This Koha test module is a stub! -# Add more tests here!!! - -use strict; -use warnings; - -use Test::More tests => 1; - -BEGIN { - use_ok('C4::Cache::FastMemcached'); -} - -- 2.39.5