|
Lines 240-247
sub request {
Link Here
|
| 240 |
$method => $base_url . $url, |
240 |
$method => $base_url . $url, |
| 241 |
undef, ( $payload ? encode_json($payload) : undef ) |
241 |
undef, ( $payload ? encode_json($payload) : undef ) |
| 242 |
); |
242 |
); |
| 243 |
$request->header( 'x-api-key' => $config->{api_key} ); |
243 |
$request->header( 'x-api-key' => $config->{api_key} ); |
| 244 |
$request->header( 'content-type' => 'application/json; charset=UTF-8' ); |
244 |
|
|
|
245 |
if ( $url !~ m{/packages\?orderby=} ) { |
| 246 |
$request->header( 'content-type' => 'application/json; charset=UTF-8' ); |
| 247 |
} |
| 248 |
|
| 245 |
my $ua = LWP::UserAgent->new; |
249 |
my $ua = LWP::UserAgent->new; |
| 246 |
my $response = $ua->simple_request($request); |
250 |
my $response = $ua->simple_request($request); |
| 247 |
if ( $response->code >= 400 ) { |
251 |
if ( $response->code >= 400 ) { |
| 248 |
- |
|
|