coro-bench.pl

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

Mojo::IOLoop->recurring(0 => sub {cede});

hook around_dispatch => sub {
  my $next = shift;
  async { $next->() };
};

get '/' => sub {
  my $self = shift;
  my $ua   = Mojo::UserAgent->new;

  # Comment this line out to see the performance difference
  $ua->ioloop->recurring(0 => sub {cede});

  $self->render(
    text => $ua->get('mojolicio.us')->res->dom->html->head->title->text);
};

app->start;