view release on metacpan or  search on metacpan

t/2_blocking.t  view on Meta::CPAN

	is($info, '', 'mail.com timeout');
	like($srv, qr/timed out/, 'right error message');
	ok(time()-$start < 10, 'mail.com timed out');
	$cv->end;
};

while (my ($domain, $rule) = each(%rules)) {
	whois $domain, "$host:$port", sub {
		my ($info, $srv) = @_;
		is($info, $rule->{info}, "$domain info");
		ok(time()-$start < $rule->{sleep}+2, "$domain was not blocked ");
		$cv->end;
	};
}

$cv->recv;
kill 15, $pid;
done_testing();

sub make_whois_server {
	my %rules = @_;