async-get.pl

use Mojolicious::Lite;

# Search MetaCPAN for "mojolicious"
get '/' => sub {
    my $c = shift;
    $c->ua->get(
        'api.metacpan.org/v0/module/_search?q=mojolicious' => sub {
            my ( $ua, $tx ) = @_;
            sleep(3);
            $c->app->log->debug(
                "after 3s. " . scalar( @{ $tx->res->json->{hits}{hits} } ) );
        }
    );
    $c->render( text => "event received" );
};

app->start;