File Coverage

blib/lib/DigitalOcean/Droplet.pm

Criterion	Covered	Total	%
statement	12	81	14.8
branch			n/a
condition			n/a
subroutine	4	33	12.1
pod	28	28	100.0
total	44	142	30.9

use strict;
package DigitalOcean::Droplet;
use Mouse;
use DigitalOcean::Types;
use DigitalOcean::Snapshot;

#ABSTRACT: Represents a Droplet object in the DigitalOcean API

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

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

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

has memory => (
    is => 'rw',
    isa => 'Num',
);

has vcpus => (
    is => 'rw',
    isa => 'Num',
);

has disk => (
    is => 'rw',
    isa => 'Num',
);

has locked => (
    is => 'rw',
    isa => 'Bool',
);

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

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

has backup_ids => (
    is => 'rw',
    isa => 'ArrayRef',
    default => sub { [] },
);

has snapshot_ids => (
    is => 'rw',
    isa => 'ArrayRef',
    default => sub { [] },
);

has features => (
    is => 'rw',
    isa => 'ArrayRef',
    default => sub { [] },
);

has region => (
    is => 'rw',
    isa => 'Coerced::DigitalOcean::Region',
    coerce => 1,
);

has image => (
    is => 'rw',
    isa => 'Coerced::DigitalOcean::Image',
    coerce => 1,
);

has size => (
    is => 'rw',
    isa => 'Coerced::DigitalOcean::Size',
    coerce => 1,
);

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

has networks => (
    is => 'rw',
    isa => 'Coerced::DigitalOcean::Networks',
    coerce => 1,
);

has kernel => (
    is => 'rw',
    isa => 'Undef|Coerced::DigitalOcean::Kernel',
    coerce => 1,
);

has next_backup_window => (
    is => 'rw',
    isa => 'Undef|Coerced::DigitalOcean::NextBackupWindow',
    coerce => 1,
);

sub _action {
    my $self = shift;
    my (%req_body_hash) = @_;

    my %new_args;
    $new_args{path} = $self->path . 'actions';
    $new_args{req_body_hash} = \%req_body_hash;

    $self->DigitalOcean->_action(%new_args);
}


sub path {
    'droplets/' . shift->id . '/';
}


sub kernels {
    my ($self, $per_page) = @_;
    return $self->DigitalOcean->_get_collection($self->path . 'kernels', 'DigitalOcean::Kernel', 'kernels', {per_page => $per_page});
}


sub snapshots {
    my ($self, $per_page) = @_;
    return $self->DigitalOcean->_get_collection($self->path . 'snapshots', 'DigitalOcean::Snapshot', 'snapshots', {per_page => $per_page});
}


sub backups {
    my ($self, $per_page) = @_;
    return $self->DigitalOcean->_get_collection($self->path . 'backups', 'DigitalOcean::Backup', 'backups', {per_page => $per_page});
}


sub actions {
    my ($self, $per_page) = @_;
    my $init_arr = [['DigitalOcean', $self]];
    return $self->DigitalOcean->_get_collection($self->path . 'actions', 'DigitalOcean::Action', 'actions', {per_page => $per_page}, $init_arr);
}


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


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

    return $self->DigitalOcean->_get_array($self->path . 'neighbors', 'DigitalOcean::Droplet', 'droplets');

}


sub action {
    my ($self, $id) = @_;

    return $self->DigitalOcean->_get_object($self->path . "actions/$id", 'DigitalOcean::Action', 'action');
}


sub disable_backups { shift->_action(@_, type => 'disable_backups') }


sub reboot { shift->_action(@_, type => 'reboot') }


sub power_cycle { shift->_action(@_, type => 'power_cycle') }


sub shutdown { shift->_action(@_, type => 'shutdown') }


sub power_off { shift->_action(@_, type => 'power_off') }


sub power_on { shift->_action(@_, type => 'power_on') }


sub restore { shift->_action(@_, type => 'restore') }


sub password_reset { shift->_action(@_, type => 'password_reset') }


sub resize { shift->_action(@_, type => 'resize') }


sub resize_reboot {
    my $self = shift;
    my @arr;

    push(@arr, $self->power_off(wait_on_action => 1));
    push(@arr, $self->resize(@_, wait_on_action => 1));
    push(@arr, $self->power_on(wait_on_action => 1));

    return \@arr;
}


sub rebuild { shift->_action(@_, type => 'rebuild') }


sub rename {
    my $self = shift;
    my (%params) = @_;

    my $action = $self->_action(@_, type => 'rename');
    $self->name($params{name});
    return $action;
}


sub change_kernel { shift->_action(@_, type => 'change_kernel') }


sub change_kernel_reboot {
    my $self = shift;
    my @arr;

    push(@arr, $self->change_kernel(@_, wait_on_action => 1));
    push(@arr, $self->power_off(wait_on_action => 1));
    push(@arr, $self->power_on(wait_on_action => 1));

    return \@arr;
}


sub enable_ipv6 { shift->_action(@_, type => 'enable_ipv6') }


sub enable_private_networking { shift->_action(@_, type => 'enable_private_networking') }


sub enable_private_networking_reboot {
    my $self = shift;
    my @arr;

    push(@arr, $self->power_off(wait_on_action => 1));
    push(@arr, $self->enable_private_networking(@_, wait_on_action => 1));
    push(@arr, $self->power_on(wait_on_action => 1));

    return \@arr;
}


sub snapshot {
    my $self = shift;

    my $action = $self->_action(@_, type => 'snapshot');
    my $temp_droplet = $self->DigitalOcean->droplet($self->id);
    $self->snapshot_ids($temp_droplet->snapshot_ids);

    return $action;
}


sub snapshot_reboot {
    my $self = shift;

    my @arr;

    push(@arr, $self->power_off(wait_on_action => 1));
    push(@arr, $self->snapshot(@_, wait_on_action => 1));

    return \@arr;
}


sub upgrade { shift->_action(@_, type => 'upgrade') }


__PACKAGE__->meta->make_immutable();

1;

__END__