view release on metacpan or  search on metacpan

lib/IO/Iron/Connector.pm  view on Meta::CPAN

                my @returned_msgs;
                my ( $http_status_code_temp, $returned_msg_temp );
                my $page_number = 0;
                while (1) {
                    my $page_href = $href;
                    $log->debugf( 'A paged query. Href:\'%s\'', $page_href );
                    $page_href .= ( $href =~ /\?/gsx ? q{&} : q{?} ) . 'per_page=' . $per_page . '&page=' . $page_number;
                    ( $http_status_code_temp, $returned_msg_temp ) =
                      $self->perform_http_action( $action_verb, $page_href, $params );
                    my $return_list = $returned_msg_temp;
                    my ( $return_type_def, $list_hash_key ) = ( split m/:/s, $return_type );
                    $return_list = $returned_msg_temp->{$list_hash_key}
                      if $return_type_def eq 'LIST' && defined $list_hash_key;    ## no critic (ControlStructures::ProhibitPostfixControls)
                    push @returned_msgs, @{$return_list};

                    if ( scalar @{$return_list} == 0 || @{$return_list} < $per_page ) {
                        last;
                    }
                    $page_number++;
                }
                $http_status_code = $http_status_code_temp;