Skip to content
GitLab
Projects
Groups
Topics
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Roman Lacko
gitlab_api
Commits
0df8fe23
Commit
0df8fe23
authored
Oct 05, 2016
by
Roman Lacko
Browse files
added defaults to API.pm
parent
83872718
Changes
2
Hide whitespace changes
Inline
Side-by-side
GitLab/API.pm
View file @
0df8fe23
...
...
@@ -21,6 +21,12 @@ use parent "Exporter";
our
$VERSION
=
8.12.1
;
my
%defaults
=
(
per_page
=>
50
,
die_on_error
=>
1
,
keep_alive
=>
1
,
);
#===============================================================================
# Constructor
#===============================================================================
...
...
@@ -37,7 +43,7 @@ sub new {
api_url
=>
$args
{
URL
},
json
=>
JSON
->
new
(),
unwrap
=>
0
,
deadly
=>
$args
{
DieOnError
}
//
1
,
deadly
=>
$args
{
DieOnError
}
//
$defaults
{
die_on_error
}
,
};
# allow direct string decoding
...
...
@@ -61,7 +67,7 @@ sub new {
default_headers
=>
HTTP::
Headers
->
new
(
"
PRIVATE-TOKEN
"
=>
$self
->
{
token
},
),
keep_alive
=>
1
,
keep_alive
=>
$defaults
{
keep_alive
}
,
);
$log
->
debug
("
setup complete, testing connection
");
...
...
@@ -230,14 +236,14 @@ sub exec_request {
if
(
defined
$rtargs
->
{
-
page
})
{
$uri
->
query_param
(
page
=>
$rtargs
->
{
-
page
});
$uri
->
query_param
(
per_page
=>
$rtargs
->
{
-
per_page
}
//
100
);
$uri
->
query_param
(
per_page
=>
$rtargs
->
{
-
per_page
}
//
$defaults
{
per_page
}
);
}
if
(
$paginated
)
{
$log
->
debug
("
using iterator to obtain the result
");
my
$iterator
=
GitLab::API::
Iterator
->
new
(
$self
,
$uri
,
per_page
=>
$rtargs
->
{
-
per_page
}
//
100
);
per_page
=>
$rtargs
->
{
-
per_page
}
//
$defaults
{
per_page
}
);
return
$rtargs
->
{
-
iterator
}
?
$iterator
:
$iterator
->
all
;
}
...
...
GitLab/API/Iterator.pm
View file @
0df8fe23
...
...
@@ -22,7 +22,7 @@ sub new {
my
$self
=
{
api
=>
$api
,
url
=>
$url
,
per_page
=>
$extra
{
per_page
}
//
10
0
,
per_page
=>
$extra
{
per_page
}
//
5
0
,
};
bless
$self
,
$class
;
...
...
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