Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
executable file 17 lines (11 sloc) 312 Bytes
#!/usr/bin/env perl6
use Cro::HTTP::Client;
use CroX::HTTP::Auth::Munge::Header;
my %secure = a => 1, b => 2;
my $response = await Cro::HTTP::Client.get: "http://localhost:10000/",
headers => [ munge(%secure) ];
put await $response.body-text;
CATCH
{
default { put .response.get-response-phrase }
}