Flickr-API2

 view release on metacpan or  search on metacpan

lib/Flickr/API2/Raw.pm  view on Meta::CPAN

126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
      $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 )