File Coverage

blib/lib/VMware/vCloud/vApp.pm

Criterion	Covered	Total	%
statement	9	27	33.3
branch	0	6	0.0
condition			n/a
subroutine	3	9	33.3
pod	6	6	100.0
total	18	48	37.5

package VMware::vCloud::vApp;

# ABSTRACT: VMware vCloud Director vApp

use Data::Dumper;

use warnings;
use strict;

our $VERSION = '2.405'; # TRIAL VERSION
our $AUTHORITY = 'cpan:NIGELM'; # AUTHORITY


sub new {
    my $class = shift @_;
    our $api  = shift @_;
    our $href = shift @_;

    my $self = {};
    bless( $self, $class );

    our $data = $api->vapp_get($href);

    return $self;
}


sub available_actions {
    my %actions;
    for my $action ( @{ our $data->{Link} } ) {
        next if $action->{rel} =~ /^(up|down|edit|controlAccess)$/;
        $actions{ $action->{rel} } = $action->{href};
    }
    return wantarray ? %actions : \%actions;
}


sub dumper {
    return our $data;
}


sub power_on {
    my $self    = shift @_;
    my %actions = $self->available_actions();
    return "Error: Unable to Power On the vApp at this time.\n" . Dumper( \%actions )
        unless defined $actions{'power:powerOn'};

    return our $api->post( $actions{'power:powerOn'} );
}


sub power_off {

}


sub recompose {

}

1;

__END__