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>
This commit is contained in:
Joe Atzberger 2008-01-07 13:52:58 -06:00 committed by Joshua Ferraro
parent 50c461e98c
commit b98bbef809
1 changed files with 15 additions and 8 deletions

View File

@ -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: