Yet Another CPAN Grep

WebService-SEOmoz-FreeAPI ( S/SE/SEOVISUAL/WebService-SEOmoz-FreeAPI-0.01.tar.gz, SEOVISUAL, 2012; MetaCPAN )

WebService-SEOmoz-FreeAPI/FreeAPI.pm ( view source; MetaCPAN )


use warnings;
use Digest::SHA qw( hmac_sha1_base64 );
use HTTP::Request::Common qw(POST);
use JSON;
use LWP::UserAgent;
use URI::Escape;
use vars qw/$module $errstr $timeout $VERSION $sendUrl $

seragent} ) {
		$args->{useragent} = LWP::UserAgent->new();
	}
	unless ( $args->{json} ) {
		$args->{json} = JSON->new->allow_nonref;
	}

	# Its important to realize that if your time is not ou

authenticationQuery;
}

sub postAPIRequest {
	my ($self, $apiUrl, $websiteString) = @_;
	my $json_string;
	$module .= ' -> postAPIRequest';

	my $http_header = HTTP::Request->new(POST => $apiU