Loading GitLab/API.pm +4 −28 Original line number Diff line number Diff line Loading @@ -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) = @_; Loading Loading @@ -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}'"; } Loading Loading
GitLab/API.pm +4 −28 Original line number Diff line number Diff line Loading @@ -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) = @_; Loading Loading @@ -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}'"; } Loading