Condvar zen

gistfile1.pl

sub post_download {
  my ($self, $body, $cb) = @_;

  my $data = decode_json $body;
  my $gist = $data->{gists}[0];
  my $cv = AE::cv;
  
  while (my $file = shift @{$gist->{files}}) {
    $cv->begin;
    http_request get => "http://gist.github.com/raw/$gist->{repo}/$file", sub {
      my ($body, $headers) = @_;
      push @{$gist->{files}}, [$file, $body];
      $cv->end;
    }
  }

  $cv->cb(sub {$cb->($gist)});
}