Languages.pm - BEGIN block VERSION and vars related to export.

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/C4/Languages.pm b/C4/Languages.pm
index e4d95fc..06b12d3 100644 (file)
--- 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: