Yet Another CPAN Grep

WWW-DNSMadeEasy ( G/GE/GETTY/WWW-DNSMadeEasy-0.001.tar.gz, GETTY, 2012; MetaCPAN )

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

TP;
use Digest::HMAC_SHA1 qw(hmac_sha1 hmac_sha1_hex);
use LWP::UserAgent;
use HTTP::Request;
use JSON;

use WWW::DNSMadeEasy::Domain;

our $VERSION ||= '0.0development';

has api_key => (
	is => 'ro'

request->header('Accept' => 'application/json');
	if (defined $data) {
		$request->header('Content-Type' => 'application/json');
		$request->content(encode_json($data));
	}
	my $res = $self->_http_age

nt->request($request);
	if ($res->is_success) {
		return decode_json($res->content);
	} else {
		die __PACKAGE__.' HTTP request failed: '.$res->status_line, "\n";
	}
}

#
# DOMAINS
#

sub path_domains