|
Lines 254-259
sub request {
Link Here
|
| 254 |
undef, ( $payload ? encode_json($payload) : undef ) |
254 |
undef, ( $payload ? encode_json($payload) : undef ) |
| 255 |
); |
255 |
); |
| 256 |
$request->header( 'x-api-key' => $config->{api_key} ); |
256 |
$request->header( 'x-api-key' => $config->{api_key} ); |
|
|
257 |
$request->header( 'content-type' => 'application/json; charset=UTF-8' ); |
| 257 |
my $ua = LWP::UserAgent->new; |
258 |
my $ua = LWP::UserAgent->new; |
| 258 |
my $response = $ua->simple_request($request); |
259 |
my $response = $ua->simple_request($request); |
| 259 |
if ( $response->code >= 400 ) { |
260 |
if ( $response->code >= 400 ) { |
| 260 |
- |
|
|