memd_conn_yield.pl

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;

use Cache::Memcached::Fast;
use Parallel::ForkManager;

my $memd = Cache::Memcached::Fast->new({
    servers => ['127.0.0.1:11211'],
});

my @keys = map {$_} (1..10000);

for my $key (@keys) {
    $memd->set($key, 'xxxx' x 1024);
}

my $pm = Parallel::ForkManager->new(25);

while(1) {
    my $pid = $pm->start and next;

    my $memd = new Cache::Memcached::Fast({
        servers => ['127.0.0.1:11211'],
    });

    $memd->get_multi(@keys) for 1..5;

    $pm->finish;
}

__END__