Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
22 lines (16 sloc) 264 Bytes
use strict;
sub decode_response($)
{
my ($res) = @_;
die $res->as_string unless $res->is_success();
return $res->decoded_content;
}
sub slurp($)
{
my ($file) = @_;
open(F, "< $file");
local $/ = undef;
my $content = <F>;
close(F);
return $content;
}
Something went wrong with that request. Please try again.