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

added defaults to API.pm

parent 83872718

GitLab/API.pm

+10 −4
Original line number Diff line number Diff line
@@ -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

+1 −1
Original line number Diff line number Diff line
@@ -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;