[Koha-patches] [PATCH] Bug 5363 - Removing unused module (C4::Cache::FastMemcached)

[Chris Nighswonger]

From: Chris Cormack <chrisc at catalyst.net.nz>

Signed-off-by: Chris Nighswonger <chris.nighswonger at gmail.com>
---
 C4/Cache.pm               |    1 -
 C4/Cache/FastMemcached.pm |   95 ---------------------------------------------
 t/Cache_FastMemcached.t   |   14 -------
 3 files changed, 0 insertions(+), 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 ebe881a..151a3fa 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 96dc08e..0000000
--- 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 589e9b1..0000000
--- 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');
-}
-
-- 
1.7.0