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


line stmt bran cond sub pod time code
1 1     1   3 use strict;
  1         1  
  1         28  
2             package DigitalOcean::SSH::Key;
3 1     1   3 use Mouse;
  1         1  
  1         3  
4              
5             #ABSTRACT: Represents a SSH Key object in the DigitalOcean API
6              
7             has DigitalOcean => (
8             is => 'rw',
9             isa => 'DigitalOcean',
10             );
11              
12              
13             has id => (
14             is => 'ro',
15             isa => 'Num',
16             );
17              
18              
19             has fingerprint => (
20             is => 'ro',
21             isa => 'Str',
22             );
23              
24              
25             has public_key => (
26             is => 'ro',
27             isa => 'Str',
28             );
29              
30              
31             has name => (
32             is => 'ro',
33             isa => 'Str',
34             );
35              
36              
37             has path => (
38             is => 'rw',
39             isa => 'Str',
40             );
41              
42             sub BUILD {
43 0     0 1   my ($self) = @_;
44              
45 0           $self->path('account/keys/' . $self->id);
46             }
47              
48              
49             sub update {
50 0     0 1   my $self = shift;
51 0           my (%args) = @_;
52              
53 0           return $self->DigitalOcean->_put_object($self->path, 'DigitalOcean::SSH::Key', 'ssh_key', \%args);
54             }
55              
56              
57             sub delete {
58 0     0 1   my ($self) = @_;
59 0           return $self->DigitalOcean->_delete(path => $self->path);
60             }
61              
62              
63             __PACKAGE__->meta->make_immutable();
64              
65             1;
66              
67             __END__