NAME Cache::Memcached::AnyEvent - AnyEvent Compatible Memcached Client SYNOPSIS use Cache::Memcached::AnyEvent; my $memd = Cache::Memcached::AnyEvent->new({ servers => [ '' ], compress_threshold => 10_000, namespace => 'myapp.', }); $memd->get( $key, sub { my ($value) = @_; warn "got $value for $key"; }); $memd->disconnect(); DESRIPTION WARNING: ALPHA QUALITY CODE! This module implements the memcached protocol as a AnyEvent consumer, and it implments both for text and binary protocols. RATIONALE There's another alternative AnyEvent memcached client, AnyEvent::Memcached which is perfectly fine, and I have nothing against you using that module, but I had specific itches to scratch: Prerequisites This module, Cache::Memcached::AnyEvent, requires the bare minimum prerequisites to install. There were more than a few modules that get installed for AnyEvent::Memcached (including some modules that I had to install solely for it) and I wanted to avoid it. Binary Protocol I was in the mood to implement the binary protocol. I don't believe it's a requirement to do anything, so this is purely a whim. Unimplemented Methods get_multi and the like are not implemented yet on AnyEvent::Memcached. Cache::Memcached::AnyEvent has them. METHODS new(%args) auto_reconnect => $max_attempts Set to 0 to disable auto-reconnecting compress_threshold => $number hash_cb => $cb->($key, $memcached) Specify hashing coderef. Callback must return an index to the list of the servers, where $key belongs to. namespace => $namespace procotol => $object protocol_class => $classname reconnect_delay => $seconds Amount of time to wait between reconnect attempts servers => \@servers List of servers to use. %args can also be a hashref. add($key, $value[, $exptime, $noreply], $cb->($rc)) append($key, $value, $cb->($rc)); connect() Explicitly connects to each server given. You DO NOT need to call this explicitly. decr($key, $delta[, $initial], $cb->($value)) delete($key, $cb->($rc)) disconnect() get($key, $cb->($value)) get_handle( $host_port ) get_multi(\@keys, $cb->(\%values)); incr($key, $delta[, $initial], $cb->($value)) prepend($key, $value, $cb->($rc)); protocol($object) protocol_class($class) replace($key, $value[, $exptime, $noreply], $cb->($rc)) remove($key, $cb->($rc)) Alias to delete servers() set($key, $value[, $exptime, $noreply], $cb->($rc)) stats($cmd, $cb->(\%stats)) version($cb->(\%result)) TODO Binary stats is not yet implemented. AUTHOR Daisuke Maki "" LICENSE This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See