delay remaining use case

delay remaining.pl

my $ua = Mojo::UserAgent->new;

my $async1 = sub {
  my $delay = shift;
  
  $ua->get('http://api1?do_this=1' => sub { $delay->begin(0)->(pop->res->json) });
};

my $async2 = sub {
  my $delay = shift;
  
  $ua->get('http://api2?do_that=1' => sub { $delay->begin(0)->(pop->res->json) });
};

Mojo::IOLoop->delay->steps(
  sub {
    my $delay = shift;
    
    $ua->get('http://api' => sub {
      push @{$delay->remaining} => pop->res->json('/this') ? $async1 : $async2;
      $delay->begin(0)->();
    });
  }
);