NAME

AnyEvent::Sub::Retry - retry $n times in AnyEvent

SYNOPSIS

    use AnyEvent::Sub::Retry;
    use AnyEvent::Socket;
    my $guard;
    my $cv = retry 3, 1, sub {
        my $cv = AE::cv;
        $guard = tcp_connect "www.google.com", "http", sub {
            my ($fh) = @_;
            if ($fh) {
                $cv->send($fh);
            } else {
                $cv->croak("unable to connect: $!");
            }
        };
        return $cv;
    };
    my $fh = $cv->recv;

DESCRIPTION

AnyEvent::Sub::Retry is Sub::Retry like module in AnyEvent. In AnyEvent::Sub::Retry, code ref that is executed MUST returrn AnyEvent::CondVar object. Coderef MUST execute $cv->send or $cv->croak on case of error or success.

METHODS

FUNCTIONS

retry($count, $interval_second, $code_ref) : AnyEvent::CondVar

LICENSE

Copyright (C) maedama.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

maedama <maedama85@gmail.com>