Flickr-API2
view release on metacpan or search on metacpan
lib/Flickr/API2/Raw.pm view on Meta::CPAN
126127128129130131132133134135136137138139140141142143144145146
$self
->sign_args(
$self
->{api_secret},
$request
->{api_args} );
}
$request
->encode_args();
my
$response
=
$self
->do_request(
$request
);
croak(
"API call failed with HTTP status: "
.
$response
->code)
unless
$response
->code == 200;
my
$content
=
$response
->decoded_content;
$content
=
$response
->content()
unless
defined
$content
;
my
$json
=
eval
{ decode_json(
$content
) };
if
($@) {
croak(
"Failed to parse API response as JSON. Error=$@\nContent=$content\n"
);
}
if
(
$json
->{
stat
} eq
'ok'
) {
return
$json
;
# Do we still care about returning the $response somehow?
( run in 0.276 second using v1.01-cache-2.11-cpan-d6f9594c0a5 )