test.pl

use Mojolicious::Lite;

helper iodelay => sub {
  my $cb = pop;
  my ($c, @steps) = @_;

  push @steps, sub {
    # log err if $_[1]
    shift;
    $c->$cb(@_);
  };

  Mojo::IOLoop->delay(@steps)->catch($steps[-1]);
};

any '/' => sub {
  my $c = shift;
  $c->iodelay(
    sub{
      my $delay = shift;
      $delay->pass(text => 'hello world');
      Mojo::IOLoop->timer(1 => $delay->begin);
    },
    sub {
      my (undef, $err, @args) = @_;
      $c->reply->exception($err) if $err;
      $c->render(@args);
    },
  );
};

app->start;