MT#61800 perl: Switch code to «use v5.40»

This will make available several new language features.

Change-Id: Ief240a69747d54d6c16087a7ef14beb9033c1f4a

helper/cat-yml

@@ -2,8 +2,7 @@
 # Purpose: dump yaml configuration files
 ################################################################################
 
-use strict;
-use warnings;
+use v5.40;
 
 use YAML::XS;
 use Hash::Merge qw(merge);

helper/del-value

@@ -1,7 +1,6 @@
 #!/usr/bin/perl -wCSD
 
-use strict;
-use warnings;
+use v5.40;
 
 use YAML::XS;
 use Scalar::Util qw(looks_like_number);

helper/fileformat_version

@@ -2,8 +2,7 @@
 # Purpose: report internal->fileformat setting of /etc/ngcp-config/config.yml
 ################################################################################
 
-use strict;
-use warnings;
+use v5.40;
 
 use YAML::XS;
 

helper/set-value

@@ -1,7 +1,6 @@
 #!/usr/bin/perl -wCSD
 
-use strict;
-use warnings;
+use v5.40;
 
 use Safe;
 use YAML::XS;

helper/sort-yml

@@ -2,8 +2,7 @@
 # Purpose: sort yaml configuration file
 ################################################################################
 
-use strict;
-use warnings;
+use v5.40;
 
 use YAML::XS;
 

helper/sync-db

@@ -1,8 +1,9 @@
 #!/usr/bin/perl -CSD
 # Purpose: template toolkit helper script
 ################################################################################
-use strict;
-use warnings;
+
+use v5.40;
+
 use English;
 use YAML::XS qw(LoadFile);
 use Hash::Merge qw(merge);

helper/tt2-process

@@ -1,8 +1,6 @@
 #!/usr/bin/perl
 
-use strict;
-use warnings;
-use feature qw(state);
+use v5.40;
 
 use List::Util qw(any uniq pairmap);
 use Getopt::Long qw(:config posix_default bundling_values no_ignorecase);

helper/validate-yml

@@ -2,8 +2,7 @@
 # Purpose: validate yml file format
 ################################################################################
 
-use strict;
-use warnings;
+use v5.40;
 
 use YAML::XS;
 use File::Temp qw/tempfile/;

lib/NGCP/Template.pm

@@ -1,7 +1,6 @@
 package NGCP::Template 1.000;
 
-use strict;
-use warnings;
+use v5.40;
 
 use Carp;
 use NGCP::Template::Object;

lib/NGCP/Template/Object.pm

@@ -1,7 +1,6 @@
 package NGCP::Template::Object 1.000;
 
-use strict;
-use warnings;
+use v5.40;
 
 use List::Util qw(any);
 

lib/NGCP/Template/Plugin/Utils.pm

@@ -1,7 +1,6 @@
 package NGCP::Template::Plugin::Utils 1.000;
 
-use strict;
-use warnings;
+use v5.40;
 
 use parent qw(Template::Plugin);
 

sbin/ngcp-network

@@ -1,7 +1,6 @@
 #!/usr/bin/perl -CSD
 
-use warnings;
-use strict;
+use v5.40;
 
 use Carp;
 use Data::Validate::IP;

sbin/ngcp-network-validator

@@ -1,7 +1,6 @@
 #!/usr/bin/perl
 
-use strict;
-use warnings;
+use v5.40;
 use open qw(:std :encoding(UTF-8));
 
 use Storable qw(dclone);

sbin/ngcp-sync-db-creds

@@ -2,8 +2,9 @@
 #----------------------------------------------------------------------
 # Synchronizes passwords from constants.yml with MySQL
 #----------------------------------------------------------------------
-use strict;
-use warnings;
+
+use v5.40;
+
 use English qw( -no_match_vars );
 use DBI qw(:sql_types);
 use Config::Tiny;

sbin/ngcp-sync-db-grants

@@ -2,8 +2,9 @@
 #----------------------------------------------------------------------
 # Synchronizes mysql grants from a schema template
 #----------------------------------------------------------------------
-use strict;
-use warnings;
+
+use v5.40;
+
 use English;
 use DBI;
 use Getopt::Long;

testsuite/NGCP_Template_Object.t

@@ -1,7 +1,6 @@
 #!/usr/bin/perl
 
-use strict;
-use warnings;
+use v5.40;
 
 use Cwd;
 use Test::More;