Parallel HTTP request in Perl 6

p6-parallel-http.p6

use v6;
use HTTP::UserAgent;
use HTTP::Request;
use Test;
use URI;

my Str @urls = "http://hoge.fuga/",
               "http://fuga.hoge/",
               "http://fooo.baar/";

my Promise @p = (for @urls -> $url {
    my URI $uri .= new($url);

    start {
        say "Making request to $url...";
        my HTTP::UserAgent $ua .= new;
        my HTTP::Response $res  = $ua.request(HTTP::Request.new(GET => $uri));
        say "Got response from $url with status code: {$res.code}";
        "URL: $url (Code: {$res.code})";
    }
});

await @p;

my Str @result = @p>>.result;

is @result.elems, 3;

done-testing;