Mojolicious and AnyEvent

gistfile1.pl

use strict;
use Mojo::Reactor::EV;
use v5.10;
BEGIN {
	$ENV{MOJO_REACTOR} = 'Mojo::Reactor::EV';
	$ENV{MOJO_IOLOOP_DEBUG} = 1;
}
use Mojo::IOLoop;
use Mojo::UserAgent;
use AnyEvent::HTTP;
use URI;

my $ua = Mojo::UserAgent->new();

for my $url (qw/google.ru mail.ru yandex.ru rambler.ru 2gis.ru/) {
	http_get "http://$url/", sub {
		say "AE: ", $url;
	};
	
	$ua->get("http://$url", sub {
		say "Mojo: ", $url;
	});
}

Mojo::IOLoop->start();