File Coverage

blib/lib/WWW/Hetzner/Cloud/RRSet.pm

Criterion	Covered	Total	%
statement	9	29	31.0
branch	0	12	0.0
condition			n/a
subroutine	3	7	42.8
pod	4	4	100.0
total	16	52	30.7

package WWW::Hetzner::Cloud::RRSet;
# ABSTRACT: Hetzner Cloud DNS RRSet object

our $VERSION = '0.100';

use Moo;
use Carp qw(croak);
use namespace::clean;


has _client => (
    is       => 'ro',
    required => 1,
    weak_ref => 1,
    init_arg => 'client',
);

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


has name => ( is => 'ro' );


has type => ( is => 'ro' );


has ttl => ( is => 'rw' );


has records => ( is => 'rw', default => sub { [] } );


sub update {
    my ($self) = @_;
    croak "Cannot update RRSet without zone_id" unless $self->zone_id;
    croak "Cannot update RRSet without name" unless $self->name;
    croak "Cannot update RRSet without type" unless $self->type;

    my $path = "/zones/" . $self->zone_id . "/rrsets/" . $self->name . "/" . $self->type;
    $self->_client->put($path, {
        ttl     => $self->ttl,
        records => $self->records,
    });
    return $self;
}


sub delete {
    my ($self) = @_;
    croak "Cannot delete RRSet without zone_id" unless $self->zone_id;
    croak "Cannot delete RRSet without name" unless $self->name;
    croak "Cannot delete RRSet without type" unless $self->type;

    my $path = "/zones/" . $self->zone_id . "/rrsets/" . $self->name . "/" . $self->type;
    $self->_client->delete($path);
    return 1;
}


sub values {
    my ($self) = @_;
    return [ map { $_->{value} } @{$self->records} ];
}


sub data {
    my ($self) = @_;
    return {
        zone_id => $self->zone_id,
        name    => $self->name,
        type    => $self->type,
        ttl     => $self->ttl,
        records => $self->records,
    };
}



1.

__END__