gistfile1.pl

# Synchronize non-blocking requests
my $ua    = Mojo::UserAgent->new;

sub list {
    my ($self) = @_;

    my $section = $self->stash('section');
    my $news = [];

    my $delay = Mojo::IOLoop->delay(sub {
       my ($delay, @results) = @_;
       warn Mojo::Util::dumper([@results]);
       do { warn $_->res->error->{message} if $_->res->error } for @results;
    });

    map { $ua->get( $_ => $delay->begin() ) } @{ $sections->{$section}->{feeds} };
    $delay->wait;

    $self->render(
        template => 'newslists/index',
        current_section => $section,
        title => "Nyhetslister / $section",
        sections => $sections,
        news => $news,
    );
}