File Coverage

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

Criterion	Covered	Total	%
statement	6	10	60.0
branch			n/a
condition			n/a
subroutine	2	4	50.0
pod	2	2	100.0
total	10	16	62.5

package WWW::Hetzner::Robot::Key;
# ABSTRACT: Hetzner Robot SSH Key entity

our $VERSION = '0.100';

use Moo;
use namespace::clean;

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

has name        => ( is => 'rw', required => 1 );


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


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


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


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


sub delete {
    my ($self) = @_;
    return $self->client->delete("/key/" . $self->fingerprint);
}


sub update {
    my ($self) = @_;
    return $self->client->post("/key/" . $self->fingerprint, {
        name => $self->name,
    });
}



1.

__END__