check if source-url is accessible

[gfldex]

This one just bit me.

The following code requires HEAD of HTTP::Client, which zef does not see yet, PR for that is pending.

use v6;
use HTTP::Client;

sub try-to-fetch-url($_) {
    my $response = HTTP::Client.new.head(.Str, :follow);
    CATCH { default { $response = Nil } }
    200 <= $response.?status < 400
}

say so try-to-fetch-url('https://github.com/gfldex/');