Testing for leaks in AnyEvent::Redis::Federated with the poll() call

leak.t

#!/usr/bin/perl -w

use strict;
use lib ('../lib','./lib');
use Test::More tests => 1;
use AnyEvent::Redis::Federated;

my %config = (
	'nodes' => {
		redis_0 => { address => 'localhost:63790' },
	},
);

# new client
my $redis = new AnyEvent::Redis::Federated(
	config      => \%config,
	tag         => 'default',
	debug       => 0,
);
ok($redis);

my $count = 0;
while (1) {
	$redis->set("foo", "bar");
	$redis->poll;
	$count++;
}

exit;