File Coverage

blib/lib/DigitalOcean/Domain.pm

Criterion	Covered	Total	%
statement	9	28	32.1
branch			n/a
condition			n/a
subroutine	3	9	33.3
pod	5	5	100.0
total	17	42	40.4

use strict;
package DigitalOcean::Domain;
use Mouse;
use DigitalOcean::Domain::Record;

#ABSTRACT: Represents a Domain object in the DigitalOcean API

has DigitalOcean => (
    is => 'rw',
    isa => 'DigitalOcean',
);


has name => (
    is => 'ro',
    isa => 'Str',
);


has ttl => (
    is => 'ro',
    isa => 'Num|Undef',
);


has zone_file => (
    is => 'ro',
    isa => 'Str|Undef',
);


has path => (
    is => 'rw',
    isa => 'Str',
);

sub BUILD {
    my ($self) = @_;

    $self->path('domains/' . $self->name . '/records');
}


sub records {
    my ($self, $per_page) = @_;
    my $init_arr = [['DigitalOcean', $self->DigitalOcean], ['Domain', $self]];
    return $self->DigitalOcean->_get_collection($self->path, 'DigitalOcean::Domain::Record', 'domain_records', {per_page => $per_page}, $init_arr);
}



sub create_record {
    my $self = shift;
    my %args = @_;

    my $record = $self->DigitalOcean->_create($self->path, 'DigitalOcean::Domain::Record', 'domain_record', \%args);
    $self->_prepare_record($record);

    return $record;
}


sub record {
    my ($self, $id) = @_;

    my $record = $self->DigitalOcean->_get_object($self->path . "/$id", 'DigitalOcean::Domain::Record', 'domain_record');
    $self->_prepare_record($record);

    return $record;
}

sub _prepare_record {
    my ($self, $record) = @_;
    $record->DigitalOcean($self->DigitalOcean);
    $record->Domain($self);
}


sub delete {
    my ($self) = @_;
    return $self->DigitalOcean->_delete(path => 'domains/' . $self->name);
}


__PACKAGE__->meta->make_immutable();

1;

__END__