Mojolicious UA with Delay

With delay

my $delay = Mojo::IOLoop->delay(                                                                                                                                                                                                                                     
    sub {                                                                                                                                                                                                                                                            
        my $delay = shift;                                                                                                                                                                                                                                           
                                                                                                                                                                                                                                                                     
        $c->app->ua->get( $request, $delay->begin );                                                                                                                                                                                                                 
    },                                                                                                                                                                                                                                                               
    sub {                                                                                                                                                                                                                                                            
        my ( $delay, $tx ) = @_;                                                                                                                                                                                                                                     
        die $tx->error->{message} if $tx->error;                                                                                                                                                                                                                     
        my $json = $tx->success->json;                                                                                                                                                                                                                               
        $c->$cb( undef, $json );                                                                                                                                                                                                                                     
    }                                                                                                                                                                                                                                                                
)->catch( sub { $c->cb( $_[1] ) } )->wait;

Without delay

$c->app->ua->get(
  $request => sub {
    my ( $ua, $tx ) = @_;
    if ( my $res = $tx->success ) {
      my $json = $res->json;
      return $json;
    }
    else {
      my $err = $tx->error;
      die "$err->{code} response: $err->{message}"
      if $err->{code};
      die "Connection error: $err->{message}";
    }
  }
);
Mojo::IOLoop->start unless Mojo::IOLoop->is_running;