ccessor::Fast);
use Carp;
use CGI;
use URI;
use LWP::UserAgent;
use Digest::MD5 qw(md5_hex);
use JSON;
our $VERSION = '0.50';
__PACKAGE__->mk_accessors(qw/
appid secret userhash appdata timeout
my $WSLOGIN_PREFIX = 'https://api.login.yahoo.com/WSLogin/V1/';
my $JSON_RPC_ENDPOINT = 'http://mail.yahooapis.com/ws/mail/v1.1/jsonrpc';
sub new {
my ($class, %param) = @_;
croak('appid and
e_jsonrpc_call {
my ($self, $method, $params) = @_;
if (!$self->_get_access_credentials) {
return 0;
}
my $thecall = { params => $params, method => $method };
my $jsoncl