view release on metacpan or  search on metacpan

t/53-timeout.t  view on Meta::CPAN

}

# events() snapshot includes the timeout value.
{
    my $e = Async::Event::Interval->new(0.5, sub {});
    $e->timeout(15);
    my $snap = Async::Event::Interval::events();
    is $snap->{$e->id}{timeout}, 15, "events() includes timeout value";
}

# Timeout persists across restart.
{
    my $e = Async::Event::Interval->new(0, sub {
        select(undef, undef, undef, 5);
    });
    $e->timeout(1);
    $e->start;
    select(undef, undef, undef, 2);
    is $e->errors, 1, "first run timed out";

    $e->error;  # trigger _detect_crash so _started is cleared