Bare minimum protocol support for memcached. The Protocol::Memcached class is transport-agnostic and as such is not a working implementation - you need to subclass and provide your own ->write method.
SYNOPSIS
package Subclass::Of::Protocol::Memcached;
use parent qw(Protocol::Memcached);
sub write { $_[0]->{socket}->write($_[1]) }
package main;
my $mc = Subclass::Of::Protocol::Memcached->new;
my ($k, $v) = ('hello' => 'world');
$mc->set(
$k => $v,
on_complete => sub {
$mc->get(
'key',
on_complete => sub { my $v = shift; print "Had $v\n" },
on_error => sub { die "Failed because of @_\n" }
);
}
);
Product's homepage
Requirements:
· Perl