/usr/share/doc/libanyevent-memcached-perl/examples/test.pl is in libanyevent-memcached-perl 0.08-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | #!/usr/bin/perl
use strict;
use lib::abs '../lib';
use AnyEvent;
use AnyEvent::Memcached;
my $cv = AnyEvent->condvar;
$cv->begin(sub { $cv->send });
my $memd = AnyEvent::Memcached->new(
servers => [ '127.0.0.1:11211' ],
cv => $cv,
# debug => 1,
namespace => "test:",
);
$memd->set("key1", "val1", cb => sub {
shift or warn "Set key1 failed: @_";
warn "Set ok";
$memd->get("key1", cb => sub {
my ($v,$e) = @_;
$e and return warn "Get failed: $e";
warn "Got value for key1: $v";
});
});
$cv->end;
$cv->recv;
|