view release on metacpan or  search on metacpan

t/testlib/Util.pm  view on Meta::CPAN

        my ($fh, $host, $port) = @_;
        $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;