AnyEvent-Memcached

 view release on metacpan or  search on metacpan

examples/incadd.pl  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use lib::abs '../lib';
use AnyEvent;
use AnyEvent::Memcached;

my $cv = AnyEvent->condvar;

my @clients;
for (1..100) {
	my $memd = AnyEvent::Memcached->new(
		servers   => [ '127.0.0.1:11211' ],
		namespace => "test:",

examples/test.pl  view on Meta::CPAN

#!/usr/bin/env 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,

t/00-load.t  view on Meta::CPAN

#!/usr/bin/env perl -w

use lib::abs "../lib";
use Test::More tests => 2;
use Test::NoWarnings;
BEGIN {
	use_ok( 'AnyEvent::Memcached' );
}

diag( "Testing AnyEvent::Memcached $AnyEvent::Memcached::VERSION, AnyEvent::Connection $AnyEvent::Connection::VERSION, using AnyEvent $AnyEvent::VERSION, Perl $], $^X" );

t/01-usage-memd.t  view on Meta::CPAN

#!/usr/bin/env perl -w

use lib::abs 'lib','../lib';#, '../../AE-Cnn/lib';
use Test::AE::MC;
use common::sense;

do + lib::abs::path('.').'/check.pl'; $@ and die;
exit;
require Test::NoWarnings;

t/02-usage-memdb.t  view on Meta::CPAN

#!/usr/bin/env perl -w

use lib::abs 'lib','../lib';#, '../../AE-Cnn/lib';
use Test::AE::MD;
use common::sense;

do + lib::abs::path('.').'/check.pl'; $@ and die;

exit;
require Test::NoWarnings;

t/03-storable.t  view on Meta::CPAN

#!/usr/bin/env perl -w

use lib::abs 'lib','../lib';#, '../../AE-Cnn/lib';
use Test::AE::MC;
use common::sense;

runtest {
	my ($host,$port) = @_;
	diag "testing $host : $port";
	require Test::NoWarnings;Test::NoWarnings->import;
	plan tests => 5 + 1;
	my $cv = AE::cv;
	

t/04-hashing.t  view on Meta::CPAN

#!/usr/bin/env perl

use common::sense 2;
use Test::NoWarnings;
use Test::More tests => 35+1;
use lib::abs "../lib";
use AnyEvent::Memcached::Hash;
use AnyEvent::Memcached::Buckets;

my $bucks = AnyEvent::Memcached::Buckets->new( servers => [
	"node-x",
	"node-y",
	"node-z", 
	"socket",
	[ "node-z", 3 ]
]);

t/05-hashing-with-next.t  view on Meta::CPAN

#!/usr/bin/env perl

use common::sense 2;
use Test::NoWarnings;
use Test::More tests => 35+1;
use lib::abs "../lib";
use AnyEvent::Memcached::Hash;
use AnyEvent::Memcached::Hash::WithNext;
use AnyEvent::Memcached::Buckets;

my $bucks = AnyEvent::Memcached::Buckets->new( servers => [
	"node-x",
	"node-y",
	"node-z", 
	"socket",
	[ "node-z", 3 ]

t/lib/Test/AE/MD.pm  view on Meta::CPAN

# MemcacheDB test class

use AnyEvent::Impl::Perl;
use AnyEvent;
use AnyEvent::Socket;
use AnyEvent::Memcached;
use common::sense;
use utf8;
use Test::More;
use lib::abs;

sub import {
	*{caller().'::runtest'} = \&runtest;
	@_ = 'Test::More';
	goto &{ Test::More->can('import') };
}

sub runtest(&) {
	my $cx = shift;
	my $code = sub {

t/pod.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;
use lib::abs '../lib';

use Test::More;
BEGIN {
	chdir lib::abs::path('..') and eval q{use Test::Pod 1.22; 1} or plan skip_all => "Prereq not met";
}

all_pod_files_ok();
exit 0;
# kwalitee hacks
require Test::Pod;

xt/99-dist.t  view on Meta::CPAN

#!/usr/bin/perl

use lib::abs '../lib';
use Test::More;
use Test::If 'Test::Dist';
use Test::NoWarnings;
chdir lib::abs::path('..');

Test::Dist::dist_ok(
	'+' => 1,
	run => 1,
	skip => [qw(prereq)],
	kwalitee => {