Yet Another CPAN Grep

WWW-SEOGears ( R/RY/RYEDDULA/WWW-SEOGears-0.05.tar.gz, RYEDDULA, 2014; MetaCPAN )

WWW-SEOGears/lib/WWW/SEOGears.pm ( view source; MetaCPAN )

gs FATAL => 'all';

use Date::Calc qw(Add_Delta_YMDHMS Today_and_Now);
use HTTP::Tiny;
use JSON qw(decode_json);
use URI::Escape qw(uri_escape);

=head1 NAME

WWW::SEOGears - Perl Interface for SEOGea

rns undef on failure (sets $self->{error} with the proper error). Returns a hash with the decoded json data from the API server if successful.

=cut

sub _make_request_handler {

	my $self   = shift;

ror, 1);
	}

	my $json = eval{ decode_json($output); };
	if ($EVAL_ERROR){
		$self->_error('Failed to decode JSON - Invalid data returned from server: '.$output, 1);
	}

	return $json;
}

=head2 _make