view release on metacpan or  search on metacpan

lib/Marathon/App.pm  view on Meta::CPAN

    $self->{parent} = $parent;
    return $self;
}

sub create {
    my $self = shift;
    $self->_bail unless defined $self->{parent};
    return $self->{parent}->_post('/v2/apps', $self->get_updateable_values);
}

sub update {
    my ($self, $args) = @_;
    my $param = $args && $args->{force} && $args->{force} && $args->{force} !~ /false/i ? '?force=true' : ''; #default is false
    $self->_bail unless defined $self->{parent};
    return $self->{parent}->_put('/v2/apps/' . $self->id . $param, $self->get_updateable_values);
}

sub delete {
    my $self = shift;
    $self->_bail unless defined $self->{parent};
    return $self->{parent}->_delete('/v2/apps/' . $self->id);

lib/Marathon/Group.pm  view on Meta::CPAN

    my $self = shift;
    $self->_bail unless defined $self->{parent};
    my $response = $self->{parent}->_post('/v2/groups', $self->get_updateable_values);
    if ( $response ) {
        $self->version( decode_json($response)->{version} );
        return $self;
    } 
    return undef;
}

sub update {
    my ($self, $args) = @_;
    $self->_bail unless defined $self->{parent};
    my $payload = $self->get_updateable_values;
    delete $payload->{id};
    my $response = $self->{parent}->_put('/v2/groups/' . $self->id . $self->_uri_args($args), $payload);
    if ( $response ) {
        $self->version( decode_json($response)->{version} );
        return $self;
    } 
    return undef;