-
Keeper.pm
458 459 860 860 861 861 return undef unless $self->{state}->{memcached_enable}; 862 862 863 unless ($self->{MEMD} && ref($self->{MEMD}) && $self->{MEMD}->{servers}) { 863 unless ( $self->{MEMD} && ref $self->{MEMD} && ref $self->{MEMD}->server_versions eq 'HASH' && keys %{$self->{MEMD}->server_versions} ) { 864 864 my $implementation = $self->state()->memcached_backend(); 865 865 $self->{MEMD} = $implementation->new({ 866 866 servers => $self->state()->memcached_servers(), 867 debug => $DEBUG, 868 867 compress_threshold => 10_000, 869 868 namespace => $self->state()->memcached_namespace, 870 869 enable_compress => $self->state()->memcached_enable_compress(), 871 870 connect_timeout => 0.1, 872 select_timeout => $self->state()->memcached_select_timeout(), 871 io_timeout => $self->state()->memcached_select_timeout(), 873 872 check_args => 'skip' 874 873 }); 874 $self->{MEMD}->enable_compress( $self->state()->memcached_enable_compress() ); 875 875 } 876 876 return $self->{MEMD}; 877 877 }