passing_values.pl

#!/usr/bin/env perl
use Mojolicious::Lite;

use Mojo::IOLoop;

get '/' => sub {
  my $c = shift;
  my $log = $c->app->log;

  Mojo::IOLoop->timer(1 => sub { $log->debug('one') });

  Mojo::IOLoop->delay(
    sub {
      my ($delay) = @_;
      my $next = $delay->begin;
      Mojo::IOLoop->timer(0 => sub { $log->debug('zero'); $next->() });
    },
    sub {
      my ($delay) = @_;
      my $next = $delay->pass(2)->begin;
      Mojo::IOLoop->timer(2 => sub { $log->debug('two'); $next->() });
    },
    sub {
      my ($delay, $value) = @_;
      my $next = $delay->pass(3)->begin;
      Mojo::IOLoop->timer(1 => sub { $log->debug("three: $value"); $next->() });
    },
    sub {
      my ($delay, $value) = @_;
      my $next = $delay->pass(4)->begin;
      Mojo::IOLoop->timer(1 => sub { $log->debug("four: $value"); $next->() });
    },
    sub {
      my ($delay, $value) = @_;
      $c->render(text => "Completed with value $value\n");
    }
  );

  return $c->render_later;
};

app->secrets(['change me'])->start;