File Coverage

blib/lib/WWW/DNSMadeEasy/Domain/Record.pm

Criterion	Covered	Total	%
statement	4	21	19.0
branch			n/a
condition			n/a
subroutine	2	16	12.5
pod	12	13	92.3
total	18	50	36.0

package WWW::DNSMadeEasy::Domain::Record;
BEGIN {
  $WWW::DNSMadeEasy::Domain::Record::AUTHORITY = 'cpan:GETTY';
}
{
  $WWW::DNSMadeEasy::Domain::Record::VERSION = '0.001';
}
# ABSTRACT: A domain record in the DNSMadeEasy API

use Moo;

has id => (
	# isa => 'Int',
	is => 'ro',
	required => 1,
);

has domain => (
	# isa => 'WWW::DNSMadeEasy::Domain',
	is => 'ro',
	required => 1,
);

has obj => (
	# isa => 'HashRef',
	is => 'ro',
	builder => '_build_obj',
	lazy => 1,
);

sub _build_obj {
	my ( $self ) = @_;
	return $self->domain->dme->request('GET',$self->path);
}

sub ttl { shift->obj->{ttl} }
sub gtd_location { shift->obj->{gtdLocation} }
sub name { shift->obj->{name} }
sub data { shift->obj->{data} }
sub type { shift->obj->{type} }
sub password { shift->obj->{password} }
sub description { shift->obj->{description} }
sub keywords { shift->obj->{keywords} }
sub title { shift->obj->{title} }
sub redirect_type { shift->obj->{redirectType} }
sub hard_link { shift->obj->{hardLink} }

sub path {
	my ( $self ) = @_;
	$self->domain->path_records.'/'.$self->id;
}

sub delete {
	my ( $self ) = @_;
	$self->dme->request('DELETE',$self->path);
}

1;


__END__