diff --git a/lib/NGCP/API/Client.pm b/lib/NGCP/API/Client.pm index ef91378..bf56bf1 100644 --- a/lib/NGCP/API/Client.pm +++ b/lib/NGCP/API/Client.pm @@ -22,7 +22,8 @@ Readonly::Scalar my $cfg => $config; my %opts = (); sub _create_ua { - my ($self, $uri) = @_; + my $self = shift; + my $ua = LWP::UserAgent->new(); if ($opts{sslverify} eq 'no' || ($opts{sslverify_lb} eq 'no' && $opts{iface} =~ /^(lo|dummy)/)) { @@ -90,7 +91,7 @@ sub new { sub request { my ($self, $method, $uri, $data) = @_; - my ($ua,$urlbase) = $self->_create_ua($uri); + my ($ua, $urlbase) = $self->_create_ua(); my $req = $self->_create_req($method, $self->_get_url($urlbase,$uri)); @@ -108,7 +109,7 @@ sub next_page { my $uri_obj = URI->new( $uri ); unless ($self->{_ua}) { - ($self->{_ua},$self->{_urlbase}) = $self->_create_ua($uri); + ($self->{_ua}, $self->{_urlbase}) = $self->_create_ua(); my %params = $uri_obj->query_form; $params{page} //= 1; $params{rows} //= $self->{_rows};