Bug 20020: use Modern::Perl in XT scripts

Test Case:
Check the following files have been updated from
use strict;
use warnings;
to
use Modern::Perl;

author/podcorrectness.t
author/show-template-structure.pl
author/translatable-templates.t
author/valid-templates.t
find-license-problems
fix-old-fsf-address
single_quotes.t
verify-debian-docbook.t

Signed-off-by: Jon Knight <J.P.Knight@lboro.ac.uk>

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>

diff --git a/xt/author/podcorrectness.t b/xt/author/podcorrectness.t
index ed3fc5d..c1f1caa 100644 (file)
--- a/xt/author/podcorrectness.t
+++ b/xt/author/podcorrectness.t
@@ -1,7 +1,5 @@
 #!/usr/bin/env perl
-use strict;
-use warnings;
-
+use Modern::Perl;
 =head2 podcorrectness.t
 
 This test file checks all perl modules in the C4 directory for POD

diff --git a/xt/author/show-template-structure.pl b/xt/author/show-template-structure.pl
index 90e5e87..6c23487 100755 (executable)
--- a/xt/author/show-template-structure.pl
+++ b/xt/author/show-template-structure.pl
@@ -17,8 +17,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 =head1 NAME
 

diff --git a/xt/author/translatable-templates.t b/xt/author/translatable-templates.t
index e00d3f0..cf2f816 100644 (file)
--- a/xt/author/translatable-templates.t
+++ b/xt/author/translatable-templates.t
@@ -15,9 +15,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
-use warnings;
-
+use Modern::Perl;
 =head2 translate-templates.t
 
 This test verifies that all staff and OPAC template

diff --git a/xt/author/valid-templates.t b/xt/author/valid-templates.t
index 5502d55..d31b01e 100644 (file)
--- a/xt/author/valid-templates.t
+++ b/xt/author/valid-templates.t
@@ -17,8 +17,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 =head1 NAME
 

diff --git a/xt/find-license-problems b/xt/find-license-problems
index d0c5c30..c18f2c1 100755 (executable)
--- a/xt/find-license-problems
+++ b/xt/find-license-problems
@@ -24,8 +24,7 @@
 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 use File::Find;
 

diff --git a/xt/fix-old-fsf-address b/xt/fix-old-fsf-address
index 6a67d8b..523db42 100755 (executable)
--- a/xt/fix-old-fsf-address
+++ b/xt/fix-old-fsf-address
@@ -27,8 +27,7 @@
 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 use File::Basename;
 use File::Copy;

diff --git a/xt/single_quotes.t b/xt/single_quotes.t
index 3c079bb..4c6a9e8 100755 (executable)
--- a/xt/single_quotes.t
+++ b/xt/single_quotes.t
@@ -17,8 +17,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use warnings;
-use strict;
+use Modern::Perl;
 use Test::More tests => 1;
 use File::Find;
 

diff --git a/xt/verify-debian-docbook.t b/xt/verify-debian-docbook.t
index 94a6c21..97c8e94 100755 (executable)
--- a/xt/verify-debian-docbook.t
+++ b/xt/verify-debian-docbook.t
@@ -20,9 +20,7 @@
 # This runs 'xmllint' (part of libxml2-utils) over each xml file that
 # generates the koha-common man pages and ensures they're correct.
 
-use strict;
-use warnings;
-
+use Modern::Perl;
 use Test::More qw(no_plan);
 
 my $doc_dir = 'debian/docs';