view release on metacpan or  search on metacpan

t/001.lock.t  view on Meta::CPAN

#!/usr/bin/perl -Tw

use strict;
use Test::More;

use Cache::Memcached;
use IO::Socket::INET;

my $testaddr = "127.0.0.1:11211";
my $msock = IO::Socket::INET->new(PeerAddr => $testaddr,
                                  Timeout  => 3);
if ($msock) {
    plan tests => 18;
} else {
    plan skip_all => "No memcached instance running at $testaddr\n";
    exit 0;
}

my $memd = Cache::Memcached->new({
    servers   => [ $testaddr ],
    namespace => "Cache::Memcached::Semaphore::t/$$/" . (time() % 100) . "/",