File Coverage

blib/lib/WWW/Hetzner/Robot/API/Reset.pm

Criterion	Covered	Total	%
statement	25	29	86.2
branch	4	8	50.0
condition	1	2	50.0
subroutine	7	9	77.7
pod	6	6	100.0
total	43	54	79.6

package WWW::Hetzner::Robot::API::Reset;
# ABSTRACT: Hetzner Robot Server Reset API

our $VERSION = '0.100';

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


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

sub get {
    my ($self, $server_number) = @_;
    croak "Server number required" unless $server_number;
    my $result = $self->client->get("/reset/$server_number");
    return $result->{reset};
}


sub execute {
    my ($self, $server_number, $type) = @_;
    croak "Server number required" unless $server_number;
    $type //= 'sw';
    croak "Invalid reset type: $type (must be sw, hw, or man)"
        unless $type =~ /^(sw|hw|man)$/;

    my $result = $self->client->post("/reset/$server_number", { type => $type });
    return $result->{reset};
}


sub software {
    my ($self, $server_number) = @_;
    return $self->execute($server_number, 'sw');
}


sub hardware {
    my ($self, $server_number) = @_;
    return $self->execute($server_number, 'hw');
}


sub manual {
    my ($self, $server_number) = @_;
    return $self->execute($server_number, 'man');
}


sub wol {
    my ($self, $server_number) = @_;
    croak "Server number required" unless $server_number;
    my $result = $self->client->post("/wol/$server_number", {});
    return $result->{wol};
}



1.

__END__