From b98bbef809be8e0615d85979694d9acda4ff22b2 Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Mon, 7 Jan 2008 13:52:58 -0600 Subject: [PATCH] Languages.pm - BEGIN block VERSION and vars related to export. Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- C4/Languages.pm | 23 +++++++++++++++-------- 1 file changed, 15 insertions(+), 8 deletions(-) diff --git a/C4/Languages.pm b/C4/Languages.pm index e4d95fc1db..06b12d3f10 100644 --- a/C4/Languages.pm +++ b/C4/Languages.pm @@ -19,11 +19,24 @@ package C4::Languages; # Suite 330, Boston, MA 02111-1307 USA -use strict; use warnings; #FIXME: turn off warnings before release -require Exporter; +use strict; +use warnings; #FIXME: turn off warnings before release use C4::Context; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +BEGIN { + $VERSION = 3.00; + require Exporter; + @ISA = qw(Exporter); + @EXPORT = qw( + &getFrameworkLanguages + &getTranslatedLanguages + &getAllLanguages + ); + @EXPORT_OK = qw(getFrameworkLanguages getTranslatedLanguages getAllLanguages get_bidi regex_lang_subtags language_get_description accept_language); + $DEBUG = 0; +} + =head1 NAME C4::Languages - Perl Module containing language list functions for Koha @@ -36,12 +49,6 @@ use C4::Languages; =head1 FUNCTIONS -=cut -$VERSION = 3.00; -@ISA = qw(Exporter); -@EXPORT_OK = qw(getFrameworkLanguages getTranslatedLanguages getAllLanguages get_bidi regex_lang_subtags language_get_description accept_language); -my $DEBUG = 0; - =head2 getFrameworkLanguages Returns a reference to an array of hashes: -- 2.39.5