test.pl

use Mojolicious::Lite;

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

  Mojo::IOLoop->delay(
    @steps,
    sub { $c->$cb(undef, @_) }
  )->catch(sub{ $c->$cb($_[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 ($delay, $err, @args) = @_;
      $c->reply->exception($err) if $err;
      $c->render(@args);
    },
  );
};

app->start;