File Coverage

blib/lib/WWW/Hetzner/Robot/Server.pm

Criterion	Covered	Total	%
statement	9	22	40.9
branch	0	2	0.0
condition	0	2	0.0
subroutine	5	8	62.5
pod	6	6	100.0
total	20	40	50.0

package WWW::Hetzner::Robot::Server;
# ABSTRACT: Hetzner Robot Server entity

our $VERSION = '0.100';

use Moo;
use namespace::clean;

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

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


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


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


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


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


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


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


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


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


# Convenience accessors
sub id   { shift->server_number }


sub name { shift->server_name }


sub ip   { shift->server_ip }


sub reset {
    my ($self, $type) = @_;
    $type //= 'sw';
    return $self->client->post("/reset/" . $self->server_number, { type => $type });
}


sub update {
    my ($self) = @_;
    return $self->client->post("/server/" . $self->server_number, {
        server_name => $self->server_name,
    });
}


sub refresh {
    my ($self) = @_;
    my $data = $self->client->get("/server/" . $self->server_number);
    my $server = $data->{server};
    for my $key (keys %$server) {
        my $attr = $key;
        if ($self->can($attr)) {
            $self->{$attr} = $server->{$key};
        }
    }
    return $self;
}



1.

__END__