TT#68300 Move new method after the private methods

We'll start using them, and defining new() after these makes following
the code easier.

Change-Id: I8e6ce5b73e9320ebda1f5257d49cec666ea13441

lib/NGCP/API/Client.pm

@@ -21,26 +21,6 @@ Readonly::Scalar my $cfg => $config;
 
 my %opts = ();
 
-sub new {
-    my $class  = shift;
-    my $self   = {};
-
-    $opts{host}         = $cfg->{_}->{NGCP_API_IP};
-    $opts{port}         = $cfg->{_}->{NGCP_API_PORT};
-    $opts{iface}        = $cfg->{_}->{NGCP_API_IFACE};
-    $opts{sslverify}    = $cfg->{_}->{NGCP_API_SSLVERIFY} || 'yes';
-    $opts{sslverify_lb} = $cfg->{_}->{NGCP_API_SSLVERIFY_LOOPBACK} || 'no';
-    $opts{read_timeout} = $cfg->{_}->{NGCP_API_READ_TIMEOUT} || 180;
-    $opts{auth_user}    = $cfg->{_}->{AUTH_SYSTEM_LOGIN};
-    $opts{auth_pass}    = $cfg->{_}->{AUTH_SYSTEM_PASSWORD};
-    $opts{verbose}      = 0;
-
-    bless $self, $class;
-    $self->set_page_rows($cfg->{_}->{NGCP_API_PAGE_ROWS} // 10);
-
-    return $self;
-}
-
 sub _create_ua {
     my ($self, $uri) = @_;
     my $ua = LWP::UserAgent->new();
@@ -87,6 +67,26 @@ sub _get_url {
     return sprintf "https://%s%s", $urlbase, $uri =~ m#^/# ? $uri : "/".$uri;
 }
 
+sub new {
+    my $class  = shift;
+    my $self   = {};
+
+    $opts{host}         = $cfg->{_}->{NGCP_API_IP};
+    $opts{port}         = $cfg->{_}->{NGCP_API_PORT};
+    $opts{iface}        = $cfg->{_}->{NGCP_API_IFACE};
+    $opts{sslverify}    = $cfg->{_}->{NGCP_API_SSLVERIFY} || 'yes';
+    $opts{sslverify_lb} = $cfg->{_}->{NGCP_API_SSLVERIFY_LOOPBACK} || 'no';
+    $opts{read_timeout} = $cfg->{_}->{NGCP_API_READ_TIMEOUT} || 180;
+    $opts{auth_user}    = $cfg->{_}->{AUTH_SYSTEM_LOGIN};
+    $opts{auth_pass}    = $cfg->{_}->{AUTH_SYSTEM_PASSWORD};
+    $opts{verbose}      = 0;
+
+    bless $self, $class;
+    $self->set_page_rows($cfg->{_}->{NGCP_API_PAGE_ROWS} // 10);
+
+    return $self;
+}
+
 sub request {
     my ($self, $method, $uri, $data) = @_;