MT#63332 Remove qw(all) from Sipwise::API usage

Importing all functions is useless because Sipwise::API does not
define an import routine. This was tolerated on Debian 12, but
starting from Debian 13 (Perl v5.40.1) it produces a warning.

The warning is harmless, but using qw(all) is incorrect.
All scripts under bin/ have been patched to remove qw(all).

Change-Id: I98f9f63a250c86b1e55f8368724bd4a19bb969ba
(cherry picked from commit 2e728bbc50)
(cherry picked from commit 168336e9a3)

bin/clean_registrations.pl

@@ -29,7 +29,7 @@ use Capture::Tiny qw(capture);
 use YAML::XS;
 use List::MoreUtils qw(uniq);
 use DBI qw(:sql_types);
-use Sipwise::API qw(all);
+use Sipwise::API;
 
 my $CONSTANTS = YAML::XS::LoadFile('/etc/ngcp-config/constants.yml');
 my $config = Config::Tiny->read('/etc/default/ngcp-api');

bin/create_emergencymapping.pl

@@ -26,7 +26,7 @@ use English;
 use Getopt::Long;
 use Cwd 'abs_path';
 use Config::Tiny;
-use Sipwise::API qw(all);
+use Sipwise::API;
 use YAML::XS qw(DumpFile LoadFile);
 
 my $config =  Config::Tiny->read('/etc/default/ngcp-api');

bin/create_header_manipulation.pl

@@ -25,7 +25,7 @@ use English;
 use Getopt::Long;
 use Cwd 'abs_path';
 use Config::Tiny;
-use Sipwise::API qw(all);
+use Sipwise::API;
 use YAML::XS qw(DumpFile LoadFile);
 
 my $config =  Config::Tiny->read('/etc/default/ngcp-api');

bin/create_lnp.pl

@@ -26,7 +26,7 @@ use YAML::XS qw();
 use Getopt::Long;
 use Cwd 'abs_path';
 use Config::Tiny;
-use Sipwise::API qw(all);
+use Sipwise::API;
 use Data::Dumper;
 
 my $config =  Config::Tiny->read('/etc/default/ngcp-api');

bin/create_ncos.pl

@@ -26,7 +26,7 @@ use YAML::XS;
 use Getopt::Long;
 use Cwd 'abs_path';
 use Config::Tiny;
-use Sipwise::API qw(all);
+use Sipwise::API;
 use Data::Dumper;
 
 my $config =  Config::Tiny->read('/etc/default/ngcp-api');

bin/create_peers.pl

@@ -26,7 +26,7 @@ use English;
 use Getopt::Long;
 use Cwd 'abs_path';
 use Config::Tiny;
-use Sipwise::API qw(all);
+use Sipwise::API;
 use YAML::XS qw(DumpFile LoadFile);
 
 my $config =  Config::Tiny->read('/etc/default/ngcp-api');

bin/create_registrations.pl

@@ -25,7 +25,7 @@ use English;
 use Getopt::Long;
 use Cwd 'abs_path';
 use Config::Tiny;
-use Sipwise::API qw(all);
+use Sipwise::API;
 use YAML::XS qw(DumpFile LoadFile);
 
 my $config =  Config::Tiny->read('/etc/default/ngcp-api');

bin/create_rewrite_rules.pl

@@ -25,7 +25,7 @@ use English;
 use Getopt::Long;
 use Cwd 'abs_path';
 use Config::Tiny;
-use Sipwise::API qw(all);
+use Sipwise::API;
 use YAML::XS;
 
 my $config =  Config::Tiny->read('/etc/default/ngcp-api');

bin/create_soundsets.pl

@@ -25,7 +25,7 @@ use English;
 use Getopt::Long;
 use Cwd 'abs_path';
 use Config::Tiny;
-use Sipwise::API qw(all);
+use Sipwise::API;
 use YAML::XS qw(DumpFile LoadFile);
 use File::Basename qw{ basename };
 

bin/create_subscribers.pl

@@ -27,7 +27,7 @@ use YAML::XS qw(DumpFile LoadFile);
 use Getopt::Long;
 use List::Util qw(none);
 use Config::Tiny;
-use Sipwise::API qw(all);
+use Sipwise::API;
 
 my $config =  Config::Tiny->read('/etc/default/ngcp-api');
 my $opts;

bin/delete_domains.pl

@@ -27,7 +27,7 @@ use YAML::XS qw(DumpFile LoadFile);
 use Getopt::Long;
 use List::Util qw(none);
 use Config::Tiny;
-use Sipwise::API qw(all);
+use Sipwise::API;
 
 my $config =  Config::Tiny->read('/etc/default/ngcp-api');
 my $opts;

bin/set_preferences.pl

@@ -26,7 +26,7 @@ use JSON qw();
 use Getopt::Long;
 use List::Util qw(none);
 use Config::Tiny;
-use Sipwise::API qw(all);
+use Sipwise::API;
 use Storable 'dclone';
 use Data::Dumper;
 

bin/set_subscribers_callforward.pl

@@ -26,7 +26,7 @@ use YAML::XS;
 use Getopt::Long;
 use Cwd 'abs_path';
 use Config::Tiny;
-use Sipwise::API qw(all);
+use Sipwise::API;
 use Data::Dumper;
 
 my $config =  Config::Tiny->read('/etc/default/ngcp-api');

bin/set_subscribers_callforward_advanced.pl

@@ -26,7 +26,7 @@ use YAML::XS;
 use Getopt::Long;
 use Cwd 'abs_path';
 use Config::Tiny;
-use Sipwise::API qw(all);
+use Sipwise::API;
 use Data::Dumper;
 use JSON qw();
 

bin/set_subscribers_location_map.pl

@@ -26,7 +26,7 @@ use YAML::XS;
 use Getopt::Long;
 use Cwd 'abs_path';
 use Config::Tiny;
-use Sipwise::API qw(all);
+use Sipwise::API;
 use Data::Dumper;
 
 my $config =  Config::Tiny->read('/etc/default/ngcp-api');

bin/set_subscribers_speeddial.pl

@@ -26,7 +26,7 @@ use YAML::XS;
 use Getopt::Long;
 use Cwd 'abs_path';
 use Config::Tiny;
-use Sipwise::API qw(all);
+use Sipwise::API;
 use Data::Dumper;
 
 my $config =  Config::Tiny->read('/etc/default/ngcp-api');

bin/set_subscribers_trusted_sources.pl

@@ -26,7 +26,7 @@ use YAML::XS;
 use Getopt::Long;
 use Cwd 'abs_path';
 use Config::Tiny;
-use Sipwise::API qw(all);
+use Sipwise::API;
 use Data::Dumper;
 use JSON qw();
 

bin/update_peer_host.pl

@@ -25,7 +25,7 @@ use English;
 use Getopt::Long;
 use Cwd 'abs_path';
 use Config::Tiny;
-use Sipwise::API qw(all);
+use Sipwise::API;
 
 my $config =  Config::Tiny->read('/etc/default/ngcp-api');
 my $opts;

bin/update_perm_reg.pl

@@ -25,7 +25,7 @@ use English;
 use Getopt::Long;
 use Cwd 'abs_path';
 use Config::Tiny;
-use Sipwise::API qw(all);
+use Sipwise::API;
 
 my $config =  Config::Tiny->read('/etc/default/ngcp-api');
 my $opts;