Commit 7ca3e09a authored by Roman Lacko's avatar Roman Lacko
Browse files

GitLab::API: got rid of request wrappers

parent 02255eab
Loading
Loading
Loading
Loading
+4 −28
Original line number Diff line number Diff line
@@ -188,30 +188,6 @@ sub clean_data {

#--  Request wrappers  ---------------------------------------------------------

sub exec_request_get {
    my ($self, $uri) = @_;
    my $response = $self->http->get($uri);
    return ($response, $self->clean_data($response));
}

sub exec_request_post {
    my ($self, $uri, $data) = @_;
    my $response = $self->http->post($uri, $data);
    return ($response, $self->clean_data($response));
}

sub exec_request_put {
    my ($self, $uri, $data) = @_;
    my $response = $self->http->put($uri, $data);
    return ($response, $self->clean_data($response));
}

sub exec_request_delete {
    my ($self, $uri) = @_;
    my $response = $self->http->delete($uri);
    return ($response, $self->clean_data($response));
}

sub exec_request {
    my ($self, $tmpl, $args) = @_;

@@ -261,13 +237,13 @@ sub exec_request {
            return $rtargs->{-iterator} ? $iterator : $iterator->all;
        }

        ($response, $data) = $self->exec_request_get($uri, $paginated);
        ($response, $data) = $self->clean_data($self->http->get($uri));
    } elsif ($tmpl->{method} eq "POST") {
        ($response, $data) = $self->exec_request_post($uri, \@postdata);
        ($response, $data) = $self->clean_data($self->http->post($uri, \@postdata));
    } elsif ($tmpl->{method} eq "PUT") {
        ($response, $data) = $self->exec_request_put($uri, \@postdata);
        ($response, $data) = $self->clean_data($self->http->put($uri, \@postdata));
    } elsif ($tmpl->{method} eq "DELETE") {
        ($response, $data) = $self->exec_request_delete($uri);
        ($response, $data) = $self->clean_data($self->http->delete($uri));
    } else {
        croak "Unsupported method '$tmpl->{method}'";
    }