#
# Locale::Language - ISO two letter codes for language identification (ISO 639)
#
# $Id: Language.pm,v 2.2 2002/07/10 16:33:27 neilb Exp $
#
use strict;
require 5.002;
require Exporter;
#-----------------------------------------------------------------------
# Public Global Variables
#-----------------------------------------------------------------------
#-----------------------------------------------------------------------
# Private Global Variables
#-----------------------------------------------------------------------
my %CODES = ();
my %LANGUAGES = ();
#=======================================================================
#
# code2language ( CODE )
#
#=======================================================================
sub code2language
{
my $code = shift;
return undef unless defined $code;
{
}
else
{
#---------------------------------------------------------------
# no such language code!
#---------------------------------------------------------------
return undef;
}
}
#=======================================================================
#
# language2code ( LANGUAGE )
#
#=======================================================================
sub language2code
{
my $lang = shift;
return undef unless defined $lang;
{
}
else
{
#---------------------------------------------------------------
# no such language!
#---------------------------------------------------------------
return undef;
}
}
#=======================================================================
#
# all_language_codes()
#
#=======================================================================
{
return keys %CODES;
}
#=======================================================================
#
# all_language_names()
#
#=======================================================================
{
return values %CODES;
}
#=======================================================================
# initialisation code - stuff the DATA into the CODES hash
#=======================================================================
{
my $code;
my $language;
local $_;
while (<DATA>)
{
next unless /\S/;
chop;
}
close(DATA);
}
1;
lt:Lithuanian
my:Burmese
ne:Nepali
no:Norwegian
or:Oriya
tr:Turkish