view release on metacpan or  search on metacpan

t/26_connect_error_reentry.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use EV;
use EV::Memcached;
use FindBin;
use lib "$FindBin::Bin/lib";
use FakeMemcached;

# A synchronous failure handler can choose a healthy replacement endpoint.
for my $reconnect (0, 1) {
    my $srv = FakeMemcached->new(script => sub {
        my $c = FakeMemcached->accept(shift);
        my $r = $c->read_request or exit 0;
        $c->respond_hit(op => $r->[0], opaque => $r->[1], value => 'healthy');
        sleep 2;
    });
    my ($value, $error, $connected, @errors);
    EV::now_update;
    my $mc = EV::Memcached->new(reconnect => $reconnect, reconnect_delay => 10,