:VERSION = '0.6.0';
# ABSTRACT: Command-line tool to query GitHub pull requests
use JSON qw(decode_json encode_json);
use Carp qw(croak);
use Encode qw(encode_utf8);
use File::Spec;
use constant DEB
de_json($response), $code
if $return_on_error;
return decode_json($response);
}
# Perform an API POST request
sub _api_create {
my ($url, $data, @rest) = @_;
return decode_json(
application/json',
encode_json($data),
@rest,
)
);
}
# Perform an API PATCH request
sub _api_update {
my ($url, $data) = @_;
return decode_json(
_p