concurrent requests with supply.throttle

gistfile1.txt

use Cro::HTTP::Client;


my @urls = 'https://httpbin.org/delay/2' xx 200;
my $requests = Supply.from-list(@urls);

my $t = $requests.throttle: 50, {
    await Cro::HTTP::Client.get($_);
    say "finished a request";

    CATCH {
        when X::Cro::HTTP::Error {
            say "Problem fetching " ~ .request.target;
        }
    }
}

$t.wait;

say "finished all requests";