added defaults to API.pm

GitLab/API.pm

@@ -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

@@ -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;