gistfile1.txt

The below code runs as expected and prints two return codes:

use Mojo::UserAgent;
use Mojo::IOLoop;

sub get {
    my ($delay, $ua) = @_;
    my $end = $delay->begin();
    $ua->get("http://testhost/" => sub {
      my ($ua, $tx) = @_;
      $end->();
      print $tx->result->code . "\n";
    });
}

my $delay = Mojo::IOLoop->delay;
my $ua = Mojo::UserAgent->new->connect_timeout(0.2)->request_timeout(5);
get($delay, $ua);
get($delay, $ua);
$delay->wait();



The below code doesn't run any requests and does not print anything:
use Mojo::UserAgent;
use Mojo::IOLoop;

sub get {
    my ($delay) = @_;
    my $ua = Mojo::UserAgent->new->connect_timeout(0.2)->request_timeout(5);
    my $end = $delay->begin();
    $ua->get("http://testhost/" => sub {
      my ($ua, $tx) = @_;
      $end->();
      print $tx->result->code . "\n";
    });
}

my $delay = Mojo::IOLoop->delay;
get($delay);
get($delay);
$delay->wait();