File Coverage

blib/lib/WWW/VastAI/SSHKey.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch			n/a
condition	1	3	33.3
subroutine	5	5	100.0
pod	4	4	100.0
total	20	22	90.9

package WWW::VastAI::SSHKey;
our $VERSION = '0.001';
# ABSTRACT: Account SSH key wrapper with update and delete helpers

use Moo;
extends 'WWW::VastAI::Object';

sub key {
    my ($self) = @_;
    return $self->data->{key} // $self->data->{public_key};
}
sub created_at { shift->data->{created_at} }

sub update {
    my ($self, $ssh_key) = @_;
    return $self->_replace_data($self->_client->ssh_keys->update($self->id, $ssh_key)->raw);
}

sub delete {
    my ($self) = @_;
    return $self->_client->ssh_keys->delete($self->id);
}

1;

__END__