ethod;
use warnings;
use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
use Encode;
use JSON;
our $VERSION = '0.7';
my $SERVICE_TYPE = "rest";
my $API_VERSION = "0.0";
my $UA_SUFFIX = "Pe
shift;
my %params = @_;
my %merged_params = ( 'method' => $self->{METHOD},
'format' => 'json',
'api_key' => $self->{APIKEY},
%params );
my $response = $self->{ua}->request(POST $se
->is_success) {
$self->{error} = $response->status_line;
return undef;
}
my $result = from_json($response->content);
if ($result->{status} ne 'ok') {
$self->{error} = "method returned " . $