AnyEvent-WebSocket-Server
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
t/testlib/Util.pm view on Meta::CPAN
$cv_server_port->send($port);
};
return $cv_server_port;
}
sub set_timeout {
my ($timeout) = @_;
$timeout ||= 10;
my $w;
$w = AnyEvent->timer(after => $timeout, cb => sub {
fail("Timeout");
undef $w;
exit 2;
});
}
foreach my $func (qw(memory_cycle_ok memory_cycle_exists)) {
no strict "refs";
*{$func} = sub {
local $Test::Builder::Level = $Test::Builder::Level + 1;
local $SIG{__WARN__} = sub {
view all matches for this distributionview release on metacpan - search on metacpan
( run in 2.275 seconds using v1.00-cache-2.02-grep-82fe00e-cpan-cec75d87357c )