named-delay.pl

use Mojolicious::Lite;

sub named_begin {
    my ( $name, $delay, $filter ) = @_;
    my $begin = $delay->begin( 0 );
    return sub { $begin->( $name => $filter->( @_ ) ) };
}

get '/' => sub {
  my ( $c ) = @_;
  $c->delay(
    sub {
      my ( $delay ) = @_;
      my $filter = sub { $_[1]->res->body };
      $c->ua->get( 'http://google.com', named_begin( google => $delay, $filter ) );
      $c->ua->get( 'http://yahoo.com', named_begin( yahoo => $delay, $filter ) );
    },
    sub {
      my ( $delay, %args ) = @_;
      use Data::Dumper;
      $c->render( text => Dumper \%args );
    },
  );
};

app->start;