From 474d8dad1f202d723ad0dceb3f282562cde29a4a Mon Sep 17 00:00:00 2001
From: Grace Smyth <gracesmythh@gmail.com>
Date: Thu, 18 Jan 2018 03:58:42 +0000
Subject: [PATCH] Bug 20010: use Modern::Perl in Patroncards perl scripts

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

create-pdf.pl
edit-batch.pl
edit-layout.pl
edit-profile.pl
edit-template.pl
home.pl
image-manage.pl
manage.pl
print.pl
---
 patroncards/create-pdf.pl    | 4 +---
 patroncards/edit-batch.pl    | 4 ++--
 patroncards/edit-layout.pl   | 3 +--
 patroncards/edit-profile.pl  | 3 +--
 patroncards/edit-template.pl | 3 +--
 patroncards/home.pl          | 3 +--
 patroncards/image-manage.pl  | 3 +--
 patroncards/manage.pl        | 3 +--
 patroncards/print.pl         | 3 +--
 9 files changed, 10 insertions(+), 19 deletions(-)

diff --git a/patroncards/create-pdf.pl b/patroncards/create-pdf.pl
index 6f22049..3bd28ba 100755
--- a/patroncards/create-pdf.pl
+++ b/patroncards/create-pdf.pl
@@ -17,9 +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;
 use CGI qw ( -utf8 );
 use C4::Auth;
 use Graphics::Magick;
diff --git a/patroncards/edit-batch.pl b/patroncards/edit-batch.pl
index 5641007..bd06aab 100755
--- a/patroncards/edit-batch.pl
+++ b/patroncards/edit-batch.pl
@@ -18,8 +18,8 @@
 # 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;
 use vars qw($debug);
 
 use CGI qw ( -utf8 );
diff --git a/patroncards/edit-layout.pl b/patroncards/edit-layout.pl
index d244640..3c76129 100755
--- a/patroncards/edit-layout.pl
+++ b/patroncards/edit-layout.pl
@@ -18,8 +18,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;
 
 use CGI qw ( -utf8 );
 use Text::CSV_XS;
diff --git a/patroncards/edit-profile.pl b/patroncards/edit-profile.pl
index 4b0769c..d84fb19 100755
--- a/patroncards/edit-profile.pl
+++ b/patroncards/edit-profile.pl
@@ -18,8 +18,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;
 
 use CGI qw ( -utf8 );
 
diff --git a/patroncards/edit-template.pl b/patroncards/edit-template.pl
index f37757c..3712a6f 100755
--- a/patroncards/edit-template.pl
+++ b/patroncards/edit-template.pl
@@ -18,8 +18,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;
 
 use CGI qw ( -utf8 );
 use autouse 'Data::Dumper' => qw(Dumper);
diff --git a/patroncards/home.pl b/patroncards/home.pl
index b88221f..cb8e7a5 100755
--- a/patroncards/home.pl
+++ b/patroncards/home.pl
@@ -18,8 +18,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;
 
 use CGI qw ( -utf8 );
 
diff --git a/patroncards/image-manage.pl b/patroncards/image-manage.pl
index 514ea94..2c08123 100755
--- a/patroncards/image-manage.pl
+++ b/patroncards/image-manage.pl
@@ -1,7 +1,6 @@
 #!/usr/bin/perl
 
-use warnings;
-use strict;
+use Modern::Perl;
 
 use CGI qw ( -utf8 );
 use Graphics::Magick;
diff --git a/patroncards/manage.pl b/patroncards/manage.pl
index 837fccd..96f8158 100755
--- a/patroncards/manage.pl
+++ b/patroncards/manage.pl
@@ -18,8 +18,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;
 use vars qw($debug);
 
 use CGI qw ( -utf8 );
diff --git a/patroncards/print.pl b/patroncards/print.pl
index c57be1d..8992038 100755
--- a/patroncards/print.pl
+++ b/patroncards/print.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;
 
 use CGI qw ( -utf8 );
 use autouse 'Data::Dumper' => qw(Dumper);
-- 
2.1.4