File Coverage

blib/lib/VM/JiffyBox/Box.pm

Criterion	Covered	Total	%
statement	36	88	40.9
branch	8	32	25.0
condition	0	2	0.0
subroutine	10	13	76.9
pod	8	8	100.0
total	62	143	43.3

package VM::JiffyBox::Box;
$VM::JiffyBox::Box::VERSION = '0.032';
# ABSTRACT: Representation of a Virtual Machine in JiffyBox

use strict;
use warnings;

use Moo;
use JSON;

has id         => (is => 'ro', required => 1);
has hypervisor => (is => 'ro', required => 1);
has name       => (is => 'rwp');

has last          => (is => 'rw');
has backup_cache  => (is => 'rw');
has details_cache => (is => 'rw');
has start_cache   => (is => 'rw');
has stop_cache    => (is => 'rw');
has delete_cache  => (is => 'rw');
has freeze_cache  => (is => 'rw');
has thaw_cache    => (is => 'rw');

sub get_backups {
    my $self = shift;

    my $url = $self->{hypervisor}->base_url . '/backups/' . $self->id;

    # POSSIBLE EXIT
    return { url => $url } if ($self->{hypervisor}->test_mode);

    my $response = $self->{hypervisor}->ua->get($url);

    # POSSIBLE EXIT
    unless ($response->is_success) {

        $self->last ( $response->status_line );
        return;
    }

    my $backup_info = from_json($response->decoded_content);

    $self->last         ($backup_info);
    $self->backup_cache ($backup_info);
    return               $backup_info ;

}

sub get_details {
    my $self = shift;

    # add method specific stuff to the URL
    my $url = $self->{hypervisor}->base_url . '/jiffyBoxes/' . $self->id;

    # POSSIBLE EXIT
    # return the URL if we are using test_mode
    return { url => $url } if ($self->{hypervisor}->test_mode);

    # send the request and return the response
    my $response = $self->{hypervisor}->ua->get($url);

    # POSSIBLE EXIT
    unless ($response->is_success) {

        $self->last ( $response->status_line );
        return;
    }

    my $details = from_json($response->decoded_content);

    $self->last          ($details);
    $self->details_cache ($details);
    return                $details ;
}

sub clone {
    my $self = shift;
    my $args = shift;

    # POSSIBLE EXIT (DIE)
    die 'name needed'                     unless $args->{name};
    die 'planid needed'                   unless $args->{planid};

    my $url  = $self->{hypervisor}->base_url . '/jiffyBoxes/' . $self->id;
    my $json = to_json( {
        name     => $args->{name},
        planid   => $args->{planid},
        metadata => $args->{metadata} || {},
    });

    # POSSIBLE EXIT
    return { url => $url, json => $json }
        if ($self->{hypervisor}->test_mode);

    # send the request with method specific json content
    my $response = $self->{hypervisor}->ua->post( $url, Content => $json );

    # POSSIBLE EXIT
    unless ($response->is_success) {

        $self->last ( $response->status_line );
        return;
    }

    my $clone_info = from_json($response->decoded_content);

    my $clone_box = __PACKAGE__->new(
        id         => $clone_info->{result}->{id},
        name       => $args->{name},
        hypervisor => $self,
    );

    return $clone_box;
}

sub _status_action {
    my $self   = shift;
    my $action = shift;
    my $params = shift;

    return if !$action;

    my $status = uc $action;
    $status    = 'SHUTDOWN' if 'stop' eq lc $action;

    my %opts;
    if ( $status eq 'THAW' ) {
        $opts{planid} = $params->{planid};
    }

    my $url  = $self->{hypervisor}->base_url . '/jiffyBoxes/' . $self->id;
    my $json = to_json( { %opts, status => $status } );

    # POSSIBLE EXIT
    return { url => $url, json => $json }
        if ($self->{hypervisor}->test_mode);

    # send the request with method specific json content
    my $response = $self->{hypervisor}->ua->put( $url, Content => $json );

    # POSSIBLE EXIT
    unless ($response->is_success) {

        $self->last ( $response->status_line );
        return;
    }

    my $status_info = from_json($response->decoded_content);

    my $cache_sub = $self->can( $action . '_cache' );
    $self->last ($status_info);
    $cache_sub->($status_info) if $cache_sub;
    return       $status_info ;
}

sub freeze {
    my $self = shift;

    return $self->_status_action( 'freeze' );
}

sub thaw {
    my $self = shift;

    return $self->_status_action( 'thaw', shift );
}

sub start {
    my $self = shift;

    return $self->_status_action( 'start' );
}

sub stop {
    my $self = shift;

    return $self->_status_action( 'stop' );
}

sub delete {
    my $self = shift;

    my $url = $self->{hypervisor}->base_url . '/jiffyBoxes/' . $self->id;

    # POSSIBLE EXIT
    return { url => $url } if ($self->{hypervisor}->test_mode);

    my $response = $self->{hypervisor}->ua->delete($url);

    # POSSIBLE EXIT
    unless ($response->is_success) {

        $self->last ( $response->status_line );
        return;
    }

    my $delete_info = from_json($response->decoded_content);

    $self->last         ($delete_info);
    $self->delete_cache ($delete_info);
    return               $delete_info ;
}

1;

__END__