named-delay.pl

use Mojolicious::Lite;

get '/' => sub {
  my ( $c ) = @_;
  $c->delay(
    sub {
      my ( $delay ) = @_;
      say "Fetching Google";
      $delay->pass('google');
      $c->ua->get( 'http://google.com', $delay->begin );
      
      say "Fetching Yahoo";
      $delay->pass('yahoo');
      $c->ua->get( 'http://yahoo.com', $delay->begin );
    },
    sub {
      my ( $delay, %args ) = @_;
      # do something with transactions by name ...
    },
  );
};

app->start;