File Coverage

blib/lib/WWW/VastAI/API/SSHKeys.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	7	14	50.0
condition	2	10	20.0
subroutine	9	9	100.0
pod	4	4	100.0
total	56	71	78.8

package WWW::VastAI::API::SSHKeys;
our $VERSION = '0.001';
# ABSTRACT: Account SSH key management for Vast.ai

use Moo;
use Carp qw(croak);
use WWW::VastAI::SSHKey;
use namespace::clean;

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

sub _wrap {
    my ($self, $data) = @_;
    return WWW::VastAI::SSHKey->new(
        client => $self->client,
        data   => $data,
    );
}

sub list {
    my ($self) = @_;
    my $result = $self->client->request_op('listSSHKeys');
    my $keys = ref $result eq 'HASH' ? ($result->{ssh_keys} || $result->{results} || []) : ($result || []);
    return [ map { $self->_wrap($_) } @{$keys} ];
}

sub create {
    my ($self, $ssh_key) = @_;
    croak "ssh key required" unless $ssh_key;
    my $result = $self->client->request_op('createSSHKey', body => { ssh_key => $ssh_key });
    my $key = ref $result eq 'HASH' ? ($result->{ssh_key} || $result) : $result;
    return $self->_wrap($key);
}

sub update {
    my ($self, $id, $ssh_key) = @_;
    croak "ssh key id required" unless defined $id;
    croak "ssh key required" unless $ssh_key;

    my $result = $self->client->request_op(
        'updateSSHKey',
        path => { id => $id },
        body => { ssh_key => $ssh_key },
    );

    my $key = ref $result eq 'HASH' ? ($result->{ssh_key} || $result) : $result;
    return $self->_wrap($key);
}

sub delete {
    my ($self, $id) = @_;
    croak "ssh key id required" unless defined $id;
    return $self->client->request_op('deleteSSHKey', path => { id => $id });
}

1;

__END__