Commit 3cfedcf2 authored by joubu's avatar joubu Committed by Brendan A Gallagher

Bug 16011: $VERSION - Remove empty BEGIN block

perl -p -i -0 -e 's/BEGIN \{\n?\n?\}\n//' **/*.pm
Signed-off-by: Josef Moravec's avatarJosef Moravec <josef.moravec@gmail.com>
Signed-off-by: default avatarTomas Cohen Arazi <tomascohen@unc.edu.ar>
Signed-off-by: default avatarBrendan A Gallagher <brendan@bywatersolutions.com>
parent 4c0e3096
......@@ -25,8 +25,6 @@ use C4::Auth qw/get_session/;
use Digest::MD5;
BEGIN {
}
=head1 NAME
......
......@@ -8,8 +8,6 @@ use autouse 'Data::Dumper' => qw(Dumper);
use C4::Context;
use C4::Debug;
BEGIN {
}
sub _check_params {
my $given_params = {};
......
......@@ -9,8 +9,6 @@ use C4::Context;
use C4::Debug;
use C4::Creators::PDF;
BEGIN {
}
# FIXME: Consider this style parameter verification instead...
# my %param = @_;
......
......@@ -24,8 +24,6 @@ use PDF::Reuse::Barcode;
use File::Temp;
use List::Util qw/first/;
BEGIN {
}
sub _InitVars {
my $self = shift;
......
......@@ -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 = {};
......
......@@ -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
......
......@@ -7,8 +7,6 @@ use base qw(C4::Creators::Batch);
use autouse 'Data::Dumper' => qw(Dumper);
BEGIN {
}
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
my $me = $1;
......
......@@ -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
......
......@@ -7,8 +7,6 @@ use base qw(C4::Creators::Layout);
use autouse 'Data::Dumper' => qw(Dumper);
BEGIN {
}
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
my $me = $1;
......
......@@ -7,8 +7,6 @@ use base qw(C4::Creators::Profile);
use autouse 'Data::Dumper' => qw(Dumper);
BEGIN {
}
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
my $me = $1;
......
......@@ -7,8 +7,6 @@ use base qw(C4::Creators::Template);
use autouse 'Data::Dumper' => qw(Dumper);
BEGIN {
}
use constant TEMPLATE_TABLE => 'creator_templates';
......
......@@ -24,8 +24,6 @@ use C4::Context;
use MARC::Record;
BEGIN {
}
=head1 NAME
......
......@@ -22,8 +22,6 @@ use strict;
use C4::Context;
BEGIN {
}
=head1 NAME
......
......@@ -22,8 +22,6 @@ use warnings;
use C4::Context;
BEGIN {
}
=head1 NAME
......
......@@ -7,8 +7,6 @@ use base qw(C4::Creators::Batch);
use autouse 'Data::Dumper' => qw(Dumper);
BEGIN {
}
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
my $me = $1;
......
......@@ -7,8 +7,6 @@ use base qw(C4::Creators::Layout);
use autouse 'Data::Dumper' => qw(Dumper);
BEGIN {
}
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
my $me = $1;
......
......@@ -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) = @_;
......
......@@ -7,8 +7,6 @@ use base qw(C4::Creators::Profile);
use autouse 'Data::Dumper' => qw(Dumper);
BEGIN {
}
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
my $me = $1;
......
......@@ -7,8 +7,6 @@ use base qw(C4::Creators::Template);
use autouse 'Data::Dumper' => qw(Dumper);
BEGIN {
}
use constant TEMPLATE_TABLE => 'creator_templates';
......
......@@ -38,8 +38,6 @@ use warnings;
use C4::Context;
BEGIN {
}
=head1 METHODS
......
......@@ -24,9 +24,6 @@ use C4::Context;
use C4::Output;
use C4::Debug;
BEGIN {
}
=head1 NAME
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment