1# 2# Locale::Constants - defined constants for identifying codesets 3# 4# $Id: Constants.pm,v 2.1 2002/02/06 04:07:09 neilb Exp $ 5# 6 7package Locale::Constants; 8use strict; 9 10require Exporter; 11 12#----------------------------------------------------------------------- 13# Public Global Variables 14#----------------------------------------------------------------------- 15use vars qw($VERSION @ISA @EXPORT); 16$VERSION = sprintf("%d.%02d", q$Revision: 2.1 $ =~ /(\d+)\.(\d+)/); 17@ISA = qw(Exporter); 18@EXPORT = qw(LOCALE_CODE_ALPHA_2 LOCALE_CODE_ALPHA_3 LOCALE_CODE_NUMERIC 19 LOCALE_CODE_DEFAULT); 20 21#----------------------------------------------------------------------- 22# Constants 23#----------------------------------------------------------------------- 24use constant LOCALE_CODE_ALPHA_2 => 1; 25use constant LOCALE_CODE_ALPHA_3 => 2; 26use constant LOCALE_CODE_NUMERIC => 3; 27 28use constant LOCALE_CODE_DEFAULT => LOCALE_CODE_ALPHA_2; 29 301; 31 32