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>
Signed-off-by: Tomas Cohen Arazi <tomascohen@unc.edu.ar>

Signed-off-by: Brendan A Gallagher <brendan@bywatersolutions.com>

C4/BackgroundJob.pm

@@ -25,8 +25,6 @@ use C4::Auth qw/get_session/;
 use Digest::MD5;
 
 
-BEGIN {
-}
 
 =head1 NAME
 

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 = {};

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 = @_;

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;

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 = {};

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

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;

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
 

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;

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;

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';
 

C4/Matcher.pm

@@ -24,8 +24,6 @@ use C4::Context;
 use MARC::Record;
 
 
-BEGIN {
-}
 
 =head1 NAME
 

C4/Members/AttributeTypes.pm

@@ -22,8 +22,6 @@ use strict;
 use C4::Context;
 
 
-BEGIN {
-}
 
 =head1 NAME
 

C4/Members/Messaging.pm

@@ -22,8 +22,6 @@ use warnings;
 use C4::Context;
 
 
-BEGIN {
-}
 
 =head1 NAME
 

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;

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;

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) = @_;

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;

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';
 

C4/SMS.pm

@@ -38,8 +38,6 @@ use warnings;
 use C4::Context;
 
 
-BEGIN {
-}
 
 =head1 METHODS
 

Koha/Patron/Files.pm

@@ -24,9 +24,6 @@ use C4::Context;
 use C4::Output;
 use C4::Debug;
 
-BEGIN {
-
-}
 
 =head1 NAME