From ce341bfa86dbae6c2fc2c8b81bf8e988d7efca5b Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Wed, 9 Mar 2016 12:42:09 +0000
Subject: [PATCH] Bug 16011: $VERSION - Remove empty BEGIN block

perl -p -i -0 -e 's/BEGIN \{\n?\n?\}\n//' **/*.pm

Signed-off-by: Josef Moravec <josef.moravec@gmail.com>
---
 C4/BackgroundJob.pm          | 2 --
 C4/Creators/Batch.pm         | 2 --
 C4/Creators/Layout.pm        | 2 --
 C4/Creators/PDF.pm           | 2 --
 C4/Creators/Profile.pm       | 2 --
 C4/Creators/Template.pm      | 2 --
 C4/Labels/Batch.pm           | 2 --
 C4/Labels/Label.pm           | 2 --
 C4/Labels/Layout.pm          | 2 --
 C4/Labels/Profile.pm         | 2 --
 C4/Labels/Template.pm        | 2 --
 C4/Matcher.pm                | 2 --
 C4/Members/AttributeTypes.pm | 2 --
 C4/Members/Messaging.pm      | 2 --
 C4/Patroncards/Batch.pm      | 2 --
 C4/Patroncards/Layout.pm     | 2 --
 C4/Patroncards/Patroncard.pm | 2 --
 C4/Patroncards/Profile.pm    | 2 --
 C4/Patroncards/Template.pm   | 2 --
 C4/SMS.pm                    | 2 --
 Koha/Patron/Files.pm         | 3 ---
 21 files changed, 43 deletions(-)

diff --git a/C4/BackgroundJob.pm b/C4/BackgroundJob.pm
index 46f948b..f607340 100644
--- a/C4/BackgroundJob.pm
+++ b/C4/BackgroundJob.pm
@@ -25,8 +25,6 @@ use C4::Auth qw/get_session/;
 use Digest::MD5;
 
 
-BEGIN {
-}
 
 =head1 NAME
 
diff --git a/C4/Creators/Batch.pm b/C4/Creators/Batch.pm
index 2c2f540..1191b96 100644
--- a/C4/Creators/Batch.pm
+++ b/C4/Creators/Batch.pm
@@ -8,8 +8,6 @@ use autouse 'Data::Dumper' => qw(Dumper);
 use C4::Context;
 use C4::Debug;
 
-BEGIN {
-}
 
 sub _check_params {
     my $given_params = {};
diff --git a/C4/Creators/Layout.pm b/C4/Creators/Layout.pm
index e274f37..f1dc20e 100644
--- a/C4/Creators/Layout.pm
+++ b/C4/Creators/Layout.pm
@@ -9,8 +9,6 @@ use C4::Context;
 use C4::Debug;
 use C4::Creators::PDF;
 
-BEGIN {
-}
 
 # FIXME: Consider this style parameter verification instead...
 #  my %param = @_;
diff --git a/C4/Creators/PDF.pm b/C4/Creators/PDF.pm
index f0f5cbd..9796feb 100644
--- a/C4/Creators/PDF.pm
+++ b/C4/Creators/PDF.pm
@@ -24,8 +24,6 @@ use PDF::Reuse::Barcode;
 use File::Temp;
 use List::Util qw/first/;
 
-BEGIN {
-}
 
 sub _InitVars {
     my $self = shift;
diff --git a/C4/Creators/Profile.pm b/C4/Creators/Profile.pm
index de3723d..37512fa 100644
--- a/C4/Creators/Profile.pm
+++ b/C4/Creators/Profile.pm
@@ -9,8 +9,6 @@ use C4::Context;
 use C4::Debug;
 use C4::Creators::Lib qw(get_unit_values);
 
-BEGIN {
-}
 
 sub _check_params {
     my $given_params = {};
diff --git a/C4/Creators/Template.pm b/C4/Creators/Template.pm
index 3edb9e5..ee504d7 100644
--- a/C4/Creators/Template.pm
+++ b/C4/Creators/Template.pm
@@ -10,8 +10,6 @@ use C4::Debug;
 use C4::Creators::Profile;
 use C4::Creators::Lib qw(get_unit_values);
 
-BEGIN {
-}
 
 sub _check_params {
     shift if $_[0] =~ m/::/; # this seems a bit hackish
diff --git a/C4/Labels/Batch.pm b/C4/Labels/Batch.pm
index c8b68ca..66bcf97 100644
--- a/C4/Labels/Batch.pm
+++ b/C4/Labels/Batch.pm
@@ -7,8 +7,6 @@ use base qw(C4::Creators::Batch);
 
 use autouse 'Data::Dumper' => qw(Dumper);
 
-BEGIN {
-}
 
 __PACKAGE__ =~ m/^C4::(.+)::.+$/;
 my $me = $1;
diff --git a/C4/Labels/Label.pm b/C4/Labels/Label.pm
index 3ae505f..491146e 100644
--- a/C4/Labels/Label.pm
+++ b/C4/Labels/Label.pm
@@ -14,8 +14,6 @@ use C4::Context;
 use C4::Debug;
 use C4::Biblio;
 
-BEGIN {
-}
 
 my $possible_decimal = qr/\d{3,}(?:\.\d+)?/; # at least three digits for a DDCN
 
diff --git a/C4/Labels/Layout.pm b/C4/Labels/Layout.pm
index f64ff82..5cda8f4 100644
--- a/C4/Labels/Layout.pm
+++ b/C4/Labels/Layout.pm
@@ -7,8 +7,6 @@ use base qw(C4::Creators::Layout);
 
 use autouse 'Data::Dumper' => qw(Dumper);
 
-BEGIN {
-}
 
 __PACKAGE__ =~ m/^C4::(.+)::.+$/;
 my $me = $1;
diff --git a/C4/Labels/Profile.pm b/C4/Labels/Profile.pm
index 3f7a855..b65af63 100644
--- a/C4/Labels/Profile.pm
+++ b/C4/Labels/Profile.pm
@@ -7,8 +7,6 @@ use base qw(C4::Creators::Profile);
 
 use autouse 'Data::Dumper' => qw(Dumper);
 
-BEGIN {
-}
 
 __PACKAGE__ =~ m/^C4::(.+)::.+$/;
 my $me = $1;
diff --git a/C4/Labels/Template.pm b/C4/Labels/Template.pm
index 2742132..890c77d 100644
--- a/C4/Labels/Template.pm
+++ b/C4/Labels/Template.pm
@@ -7,8 +7,6 @@ use base qw(C4::Creators::Template);
 
 use autouse 'Data::Dumper' => qw(Dumper);
 
-BEGIN {
-}
 
 use constant TEMPLATE_TABLE => 'creator_templates';
 
diff --git a/C4/Matcher.pm b/C4/Matcher.pm
index 3fccf3c..8cf1a99 100644
--- a/C4/Matcher.pm
+++ b/C4/Matcher.pm
@@ -24,8 +24,6 @@ use C4::Context;
 use MARC::Record;
 
 
-BEGIN {
-}
 
 =head1 NAME
 
diff --git a/C4/Members/AttributeTypes.pm b/C4/Members/AttributeTypes.pm
index 1f7e404..eb4346d 100644
--- a/C4/Members/AttributeTypes.pm
+++ b/C4/Members/AttributeTypes.pm
@@ -22,8 +22,6 @@ use strict;
 use C4::Context;
 
 
-BEGIN {
-}
 
 =head1 NAME
 
diff --git a/C4/Members/Messaging.pm b/C4/Members/Messaging.pm
index c167ede..51bcdd8 100644
--- a/C4/Members/Messaging.pm
+++ b/C4/Members/Messaging.pm
@@ -22,8 +22,6 @@ use warnings;
 use C4::Context;
 
 
-BEGIN {
-}
 
 =head1 NAME
 
diff --git a/C4/Patroncards/Batch.pm b/C4/Patroncards/Batch.pm
index 9583ef8..8982fce 100644
--- a/C4/Patroncards/Batch.pm
+++ b/C4/Patroncards/Batch.pm
@@ -7,8 +7,6 @@ use base qw(C4::Creators::Batch);
 
 use autouse 'Data::Dumper' => qw(Dumper);
 
-BEGIN {
-}
 
 __PACKAGE__ =~ m/^C4::(.+)::.+$/;
 my $me = $1;
diff --git a/C4/Patroncards/Layout.pm b/C4/Patroncards/Layout.pm
index fc8bd97..4c2dc21 100644
--- a/C4/Patroncards/Layout.pm
+++ b/C4/Patroncards/Layout.pm
@@ -7,8 +7,6 @@ use base qw(C4::Creators::Layout);
 
 use autouse 'Data::Dumper' => qw(Dumper);
 
-BEGIN {
-}
 
 __PACKAGE__ =~ m/^C4::(.+)::.+$/;
 my $me = $1;
diff --git a/C4/Patroncards/Patroncard.pm b/C4/Patroncards/Patroncard.pm
index e2aa06a..2203d1a 100644
--- a/C4/Patroncards/Patroncard.pm
+++ b/C4/Patroncards/Patroncard.pm
@@ -28,8 +28,6 @@ use C4::Creators::Lib qw(get_font_types);
 use C4::Creators::PDF qw(StrWidth);
 use C4::Patroncards::Lib qw(unpack_UTF8 text_alignment leading box get_borrower_attributes);
 
-BEGIN {
-}
 
 sub new {
     my ($invocant, %params) = @_;
diff --git a/C4/Patroncards/Profile.pm b/C4/Patroncards/Profile.pm
index 3ecaa1f..36797c0 100644
--- a/C4/Patroncards/Profile.pm
+++ b/C4/Patroncards/Profile.pm
@@ -7,8 +7,6 @@ use base qw(C4::Creators::Profile);
 
 use autouse 'Data::Dumper' => qw(Dumper);
 
-BEGIN {
-}
 
 __PACKAGE__ =~ m/^C4::(.+)::.+$/;
 my $me = $1;
diff --git a/C4/Patroncards/Template.pm b/C4/Patroncards/Template.pm
index b8a14ee..4bb4543 100644
--- a/C4/Patroncards/Template.pm
+++ b/C4/Patroncards/Template.pm
@@ -7,8 +7,6 @@ use base qw(C4::Creators::Template);
 
 use autouse 'Data::Dumper' => qw(Dumper);
 
-BEGIN {
-}
 
 use constant TEMPLATE_TABLE => 'creator_templates';
 
diff --git a/C4/SMS.pm b/C4/SMS.pm
index 53c04f8..41407e3 100644
--- a/C4/SMS.pm
+++ b/C4/SMS.pm
@@ -38,8 +38,6 @@ use warnings;
 use C4::Context;
 
 
-BEGIN {
-}
 
 =head1 METHODS
 
diff --git a/Koha/Patron/Files.pm b/Koha/Patron/Files.pm
index 7efd13f..299666e 100644
--- a/Koha/Patron/Files.pm
+++ b/Koha/Patron/Files.pm
@@ -24,9 +24,6 @@ use C4::Context;
 use C4::Output;
 use C4::Debug;
 
-BEGIN {
-
-}
 
 =head1 NAME
 
-- 
2.1.4