AnyEvent::HTTP で 200 以外が帰ってきた時にリトライする

gistfile1.pl

use AnyEvent;
use AnyEvent::HTTP;

my $w;
my $cv = AE::cv;
my @urls = qw{
  http://localhost:5000/
  http://localhost:5001/
};
my @watchers;

for my $url (@urls) {
  my $retry;
  $cv->begin;
  my $http_get; $http_get = sub {
    http_get $url,
    recurse => 0,
    timeout => 30,
    sub {
      my ($body, $hdr) = @_;
      my $status = $hdr->{Status};
      my $reason = defined $hdr->{Reason}? $hdr->{Reason}: '';
      if ($status == 200) {
        warn "$url access ok";
        $cv->end;
      } else {
        warn "$url access ng";
        if ($retry++ < 2) {
          $cv->begin;
          push @watchers, AE::timer(1, 0, $http_get);
        }
        $cv->end;
      }
    }
  };
  push @watchers, AE::timer(0, 0, $http_get);
}
$cv->recv;