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

GitLab::API: got rid of request wrappers

parent 02255eab
......@@ -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}'";
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment