Advertisement
Guest User

Untitled

a guest
Nov 16th, 2016
103
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.27 KB | None | 0 0
  1. # in child
  2. Mojo::IOLoop->singleton-reset;
  3.  
  4. my $ioloop = Mojo::IOLoop->new;
  5. my $delay = $ioloop->delay;
  6.  
  7. $delay->on(finish => sub {
  8.     my $delay = shift;
  9.     process_async_responses(@_);
  10. }
  11.  
  12. my $ua = Mojo::UA->new;
  13. map { $ua->get($_ => $delay->begin); } @urls
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement