Commit 0df8fe23 authored by Roman Lacko's avatar Roman Lacko
Browse files

added defaults to API.pm

parent 83872718
......@@ -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;
}
......
......@@ -22,7 +22,7 @@ sub new {
my $self = {
api => $api,
url => $url,
per_page => $extra{per_page} // 100,
per_page => $extra{per_page} // 50,
};
bless $self, $class;
......
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