@@ -, +, @@ --- C4/ClassSortRoutine.pm | 8 +++----- C4/ClassSource.pm | 6 ++---- C4/ClassSplitRoutine.pm | 19 ++++++++++--------- 3 files changed, 15 insertions(+), 18 deletions(-) --- a/C4/ClassSortRoutine.pm +++ a/C4/ClassSortRoutine.pm @@ -1,7 +1,7 @@ package C4::ClassSortRoutine; -# Copyright (C) 2007 LibLime -# +# Copyright 2022 Koha Development Team +# # This file is part of Koha. # # Koha is free software; you can redistribute it and/or modify it @@ -17,11 +17,9 @@ package C4::ClassSortRoutine; # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use Class::Factory::Util; -use C4::Context; our (@ISA, @EXPORT_OK); BEGIN { --- a/C4/ClassSource.pm +++ a/C4/ClassSource.pm @@ -1,7 +1,6 @@ package C4::ClassSource; -# Copyright (C) 2007 LibLime -# +# Copyright 2022 Koha Development Team # This file is part of Koha. # # Koha is free software; you can redistribute it and/or modify it @@ -17,8 +16,7 @@ package C4::ClassSource; # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use C4::Context; use C4::ClassSortRoutine qw( GetClassSortKey ); --- a/C4/ClassSplitRoutine.pm +++ a/C4/ClassSplitRoutine.pm @@ -1,6 +1,6 @@ package C4::ClassSplitRoutine; -# Copyright 2018 Koha Development Team +# Copyright 2022 Koha Development Team # # This file is part of Koha. # @@ -19,10 +19,16 @@ package C4::ClassSplitRoutine; use Modern::Perl; -require Exporter; - -use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use Class::Factory::Util; +our (@ISA, @EXPORT_OK); +BEGIN { + require Exporter; + @ISA = qw(Exporter); + @EXPORT_OK = qw( + GetSplitRoutineNames + ); +} =head1 NAME @@ -36,11 +42,6 @@ use C4::ClassSplitRoutine; =cut -@ISA = qw(Exporter); -@EXPORT = qw( - GetSplitRoutineNames -); - =head2 GetSplitRoutineNames my @routines = GetSplitRoutineNames(); --