File Coverage

blib/lib/DigitalOcean/Action.pm

Criterion	Covered	Total	%
statement	9	20	45.0
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	2	2	100.0
total	14	27	51.8

use strict;
package DigitalOcean::Action;
use Mouse;
use DigitalOcean::Types;

#ABSTRACT: Represents an Action object in the DigitalOcean API

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


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


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


has type => (
    is => 'ro',
    isa => 'Str',
);


has started_at => (
    is => 'ro',
    isa => 'Str',
);


has completed_at => (
    is => 'rw',
    isa => 'Str|Undef',
);


has resource_id => (
    is => 'ro',
    isa => 'Num|Undef',
);


has resource_type => (
    is => 'ro',
    isa => 'Str',
);


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


has region_slug => (
    is => 'ro',
    isa => 'Undef|Str',
);


sub complete { shift->status eq 'completed' }


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

    print "going to wait\n";
    until($action->complete) {
        print "waiting\n";
        sleep($self->DigitalOcean->time_between_requests);
        $action = $self->DigitalOcean->action($action->id);
    }
    print "complete\n";

    $self->status($action->status);
    $self->completed_at($action->completed_at);
}


__PACKAGE__->meta->make_immutable();

1;

__END__