Revision 458

Date:
2014/12/03 16:56:21
Author:
ahitrov
Revision Log:
Upgrade to Cache::Memcached::Fast
Files:

Legend:

 
Added
 
Removed
 
Modified
  • koi8/core/lib/Contenido/Keeper.pm

     
    866 866
    867 867 return undef unless $self->{state}->{memcached_enable};
    868 868
    869 unless ($self->{MEMD} && ref($self->{MEMD}) && $self->{MEMD}->{servers}) {
    869 unless ( $self->{MEMD} && ref $self->{MEMD} && ref $self->{MEMD}->server_versions eq 'HASH' && keys %{$self->{MEMD}->server_versions} ) {
    870 870 my $implementation = $self->state()->memcached_backend();
    871 871 $self->{MEMD} = $implementation->new({
    872 872 servers => $self->state()->memcached_servers(),
    873 debug => $DEBUG,
    874 873 compress_threshold => 10_000,
    875 874 namespace => $self->state()->memcached_namespace,
    876 875 enable_compress => $self->state()->memcached_enable_compress(),
    877 876 connect_timeout => 0.1,
    878 select_timeout => $self->state()->memcached_select_timeout(),
    877 io_timeout => $self->state()->memcached_select_timeout(),
    879 878 check_args => 'skip'
    880 879 });
    880 $self->{MEMD}->enable_compress( $self->state()->memcached_enable_compress() );
    881 881 }
    882 882 return $self->{MEMD};
    883 883 }