view release on metacpan or  search on metacpan

lib/Brightcove/MAPI.pm  view on Meta::CPAN

	my $params = shift || {};

	$params->{command} = $command;
	$params->{token} = $self->token;

	my $url = URI->new($self->read_api_url);
	$url->query_form(%$params);
	my $res = $self->user_agent->get($url->as_string);

	if ($res->is_success) {
		return decode_json($res->decoded_content);
	} else {
		confess $res->status_line;
	}
}


sub post {
	my $self = shift;
	my $method = shift;
	my $params = shift || {};

lib/Brightcove/MAPI.pm  view on Meta::CPAN

			]
		);
	} else {
		$res = $self->user_agent->post(
			$self->write_api_url,
			Content => [ json => $jsonrpc ]
		);
	}

	if ($res->is_success) {
		my $content = $res->decoded_content;
		return decode_json($content);
	} else {
		confess $res->status_line;
	}
}

1;


__END__