• 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 }