@@ -, +, @@ --- 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(-) --- a/C4/BackgroundJob.pm +++ a/C4/BackgroundJob.pm @@ -25,8 +25,6 @@ use C4::Auth qw/get_session/; use Digest::MD5; -BEGIN { -} =head1 NAME --- a/C4/Creators/Batch.pm +++ a/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 = {}; --- a/C4/Creators/Layout.pm +++ a/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 = @_; --- a/C4/Creators/PDF.pm +++ a/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; --- a/C4/Creators/Profile.pm +++ a/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 = {}; --- a/C4/Creators/Template.pm +++ a/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 --- a/C4/Labels/Batch.pm +++ a/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; --- a/C4/Labels/Label.pm +++ a/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 --- a/C4/Labels/Layout.pm +++ a/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; --- a/C4/Labels/Profile.pm +++ a/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; --- a/C4/Labels/Template.pm +++ a/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'; --- a/C4/Matcher.pm +++ a/C4/Matcher.pm @@ -24,8 +24,6 @@ use C4::Context; use MARC::Record; -BEGIN { -} =head1 NAME --- a/C4/Members/AttributeTypes.pm +++ a/C4/Members/AttributeTypes.pm @@ -22,8 +22,6 @@ use strict; use C4::Context; -BEGIN { -} =head1 NAME --- a/C4/Members/Messaging.pm +++ a/C4/Members/Messaging.pm @@ -22,8 +22,6 @@ use warnings; use C4::Context; -BEGIN { -} =head1 NAME --- a/C4/Patroncards/Batch.pm +++ a/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; --- a/C4/Patroncards/Layout.pm +++ a/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; --- a/C4/Patroncards/Patroncard.pm +++ a/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) = @_; --- a/C4/Patroncards/Profile.pm +++ a/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; --- a/C4/Patroncards/Template.pm +++ a/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'; --- a/C4/SMS.pm +++ a/C4/SMS.pm @@ -39,8 +39,6 @@ use C4::Context; use vars qw( ); -BEGIN { -} =head1 METHODS --- a/Koha/Patron/Files.pm +++ a/Koha/Patron/Files.pm @@ -24,9 +24,6 @@ use C4::Context; use C4::Output; use C4::Debug; -BEGIN { - -} =head1 NAME --