parallelapp.pl

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

get '/' => sub {
  my $self = shift;

  # Fresh singleton event loop
  local $Mojo::IOLoop::LOOP = Mojo::IOLoop->new;

  # Fresh useragent
  my $ua = Mojo::UserAgent->new;

  # Parallel blocking requests
  my @results;
  $ua->get('mojolicio.us' => sub {
    push @results, pop;
    Mojo::IOLoop->stop if @results > 1;
  });
  $ua->get('blog.kraih.com' => sub {
    push @results, pop;
    Mojo::IOLoop->stop if @results > 1;
  });
  Mojo::IOLoop->start;

  # Done
  my $titles = '';
  $titles .= $_->res->dom->at('title')->text for @results;
  $self->render_text($titles);
};

app->start;