File Coverage

blib/lib/DigitalOcean/Domain/Record.pm

Criterion	Covered	Total	%
statement	6	13	46.1
branch			n/a
condition			n/a
subroutine	2	5	40.0
pod	3	3	100.0
total	11	21	52.3

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

#ABSTRACT: Represents a Domain object in the DigitalOcean API

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

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


has id => (
    is => 'ro',
    isa => 'Num',
);


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


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


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


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


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


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


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


sub update {
    my $self = shift;
    my (%args) = @_;

    return $self->DigitalOcean->_put_object($self->path, 'DigitalOcean::Domain::Record', 'domain_record', \%args);
}


sub delete {
    my ($self) = @_;
    return $self->DigitalOcean->_delete(path => $self->path);
}


__PACKAGE__->meta->make_immutable();

1;

__END__