#!/usr/bin/env perl use strict; use warnings; use feature 'say'; use Mojolicious::Lite; use Mojo::UserAgent; use Mojo::IOLoop; use Mojo::URL; get '/test' => sub { my $self = shift; my @data; my $url = Mojo::URL->new('http://search.twitter.com/search.json'); my $ua = Mojo::UserAgent->new; Mojo::IOLoop->delay(
sub { my $delay = shift; $ua->get($url->clone->query({q => 'mojo'}) => $delay->begin); $ua->get($url->clone->query({q => 'django'}) => $delay->begin); $ua->get($url->clone->query({q => 'playframework'}) => $delay->begin); },
sub { my ($delay, @res) = @_; foreach my $tx (@res) { if ($tx->success) { push @data, $tx->res->json('/results/0/text'); } } $ua->get($url->clone->query({q => 'perl'}) => $delay->begin); $ua->get($url->clone->query({q => 'python'}) => $delay->begin); $ua->get($url->clone->query({q => 'scala'}) => $delay->begin); }, sub { my ($delay, @res) = @_; foreach my $tx (@res) { if ($tx->success) { push @data, $tx->res->json('/results/0/text'); } } $self->render(json => {data => \@data}); } ); }; app->start;
--
You received this message because you are subscribed to the Google Groups "Mojolicious" group.
To post to this group, send email to mojol...@googlegroups.com.
To unsubscribe from this group, send email to mojolicious...@googlegroups.com.
For more options, visit this group at http://groups.google.com/group/mojolicious?hl=en.
Awesome! Thank you very much!