Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Roman Lacko
gitlab_api
Commits
7ca3e09a
Commit
7ca3e09a
authored
Oct 04, 2016
by
Roman Lacko
Browse files
GitLab::API: got rid of request wrappers
parent
02255eab
Changes
1
Hide whitespace changes
Inline
Side-by-side
GitLab/API.pm
View file @
7ca3e09a
...
...
@@ -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}'
";
}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment