view release on metacpan or  search on metacpan

t/lib/Test/AnyEvent/WebService/Tracks.pm  view on Meta::CPAN

    my ( $cb ) = @_;
    my ( undef, $file, $line ) = caller;

    my $cond = AnyEvent->condvar;

    my $timer_has_fired = 0;
    my $timer = AnyEvent->timer(
        after => 30,
        cb    => sub {
            $timer_has_fired = 1;
            Test::More::fail("Timeout at $file, line $line");
            $cond->send;
        },
    );

    eval {
        $cb->($cond);
    };
    if($@) {
        Test::More::fail($@);
    } else {