File Coverage

blib/lib/DigitalOcean/SSH/Key.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::SSH::Key;
use Mouse;

#ABSTRACT: Represents a SSH Key object in the DigitalOcean API

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


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


has fingerprint => (
    is => 'ro',
    isa => 'Str',
);


has public_key => (
    is => 'ro',
    isa => 'Str',
);


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


has path => (
    is => 'rw',
    isa => 'Str',
);

sub BUILD {
    my ($self) = @_;

    $self->path('account/keys/' . $self->id);
}


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

    return $self->DigitalOcean->_put_object($self->path, 'DigitalOcean::SSH::Key', 'ssh_key', \%args);
}


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


__PACKAGE__->meta->make_immutable();

1;

__END__