File Coverage

blib/lib/WWW/DNSMadeEasy.pm

Criterion	Covered	Total	%
statement	29	60	48.3
branch	1	10	10.0
condition			n/a
subroutine	10	16	62.5
pod	3	7	42.8
total	43	93	46.2

package WWW::DNSMadeEasy;
BEGIN {
  $WWW::DNSMadeEasy::AUTHORITY = 'cpan:GETTY';
}
{
  $WWW::DNSMadeEasy::VERSION = '0.001';
}
# ABSTRACT: Accessing DNSMadeEasy API

use Moo;
use DateTime;
use DateTime::Format::HTTP;
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',
	required => 1,
);

has secret => (
	is => 'ro',
	required => 1,
);

has sandbox => (
	is => 'ro',
	default => sub { 0 },
);

has _http_agent => (
	is => 'ro',
	lazy => 1,
	default => sub {
		my $self = shift;
		my $ua = LWP::UserAgent->new;
		$ua->agent($self->http_agent_name);
		return $ua;
	},
);

has http_agent_name => (
	is => 'ro',
	lazy => 1,
	default => sub { __PACKAGE__.'/'.$VERSION },
);

sub api_endpoint {
	my ( $self ) = @_;
	if ($self->sandbox) {
		return 'http://api.sandbox.dnsmadeeasy.com/V1.2/';
	} else {
		return 'http://api.dnsmadeeasy.com/V1.2/';
	}
}

sub get_request_headers {
	my ( $self, $dt ) = @_;
	$dt = DateTime->now->set_time_zone( 'GMT' ) if !$dt;
	my $date_string = DateTime::Format::HTTP->format_datetime($dt);
	return {
		'x-dnsme-requestDate' => $date_string,
		'x-dnsme-apiKey' => $self->api_key,
		'x-dnsme-hmac' => hmac_sha1_hex($date_string, $self->secret),
	};
}

sub request {
	my ( $self, $method, $path, $data ) = @_;
	my $url = $self->api_endpoint.$path;
	my $request = HTTP::Request->new( $method => $url );
	my $headers = $self->get_request_headers;
	$request->header($_ => $headers->{$_}) for (keys %{$headers});
	$request->header('Accept' => 'application/json');
	if (defined $data) {
		$request->header('Content-Type' => 'application/json');
		$request->content(encode_json($data));
	}
	my $res = $self->_http_agent->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 { 'domains' }

sub create_domain {
	my ( $self, $domain_name ) = @_;
	return WWW::DNSMadeEasy::Domain->create({
		name => $domain_name,
		dme => $self,
	});
}

sub domain {
	my ( $self, $domain_name ) = @_;
	return WWW::DNSMadeEasy::Domain->new({
		name => $domain_name,
		dme => $self,
	});
}

sub all_domains {
	my ( $self ) = @_;
	my $data = $self->request('GET',$self->path_domains);
	return if !$data->{list};
	my @domains;
	for (@{$data->{list}}) {
		push @domains, WWW::DNSMadeEasy::Domain->new({
			dme => $self,
			name => $_,
		});
	}
	return @domains;
}

1;



__END__