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