Yet Another CPAN Grep

Net-SinaWeibo ( D/DO/DOGGY/Net-SinaWeibo-0.003.tar.gz, DOGGY, 2010; MetaCPAN )

Net-SinaWeibo/lib/Net/SinaWeibo.pm ( view source; MetaCPAN )

ghtweight OAuth api for SinaWeibo
use strict;
use warnings;
use base 'Net::SinaWeibo::OAuth';
use JSON;
use constant {
    SINA_SITE              =>  'http://api.t.sina.com.cn/',
    SINA_REQUEST_TOKE

CCESS_TOKEN_URL  => 'http://api.t.sina.com.cn/oauth/access_token',
    SINA_FORMAT            => 'json',
};
# SINA SDK API
our %SINA_API = (
    public_timeline => {
        uri => 'statuses/public_ti

i_error_code

Get last api error_code, which return by provider. If provider reponse is
not valid JSON message, it's just the http status code.

=head2 last_api_error_subcode

Get detail error code ab

Net-SinaWeibo ( D/DO/DOGGY/Net-SinaWeibo-0.003.tar.gz, DOGGY, 2010; MetaCPAN )

Net-SinaWeibo/lib/Net/SinaWeibo/OAuth.pm ( view source; MetaCPAN )

use OAuth::Lite::AuthMethod qw(:all);
use List::MoreUtils qw(any);
use HTTP::Request::Common;
use JSON;
use OAuth::Lite::Util qw(normalize_params);
use constant {
    SINA_SITE               =>  'http

authorize',
    SINA_ACCESS_TOKEN_PATH  => '/oauth/access_token',
    SINA_FORMAT             => 'json',
};
__PACKAGE__->mk_accessors(qw(
    last_api
    last_api_error
    last_api_error_code
    la


        croak $content;
    }
    decode_json($content);
}
sub _api_error {
    my ($self,$error,$http_code) = @_;
    eval {
        my $error = decode_json($error);
        $self->last_api_error($e