view release on metacpan or  search on metacpan

lib/Net/RackSpace/CloudServers/Server.pm  view on Meta::CPAN

    required => 1,
    default  => undef
);
has 'private_address' => (
    is       => 'ro',
    isa      => 'Maybe[ArrayRef[Str]]',
    required => 1,
    default  => undef
);
has 'metadata' =>
    (is => 'ro', isa => 'Maybe[HashRef]', required => 1, default => undef);
has 'personality' =>
    (is => 'ro', isa => 'Maybe[ArrayRef]', required => 1, default => undef);

no Any::Moose;
__PACKAGE__->meta->make_immutable();

sub change_root_password {
    my $self     = shift;
    my $password = shift;
    my $uri      = '/servers/' . $self->id;
    my $request  = HTTP::Request->new(
        'PUT',