Re: Copious warnings from Sys::Syslog
[p5sagit/p5-mst-13.2.git] / lib / Locale / Constants.pm
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
7 package Locale::Constants;
8 use strict;
9
10 require Exporter;
11
12 #-----------------------------------------------------------------------
13 #       Public Global Variables
14 #-----------------------------------------------------------------------
15 use 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 #-----------------------------------------------------------------------
24 use constant LOCALE_CODE_ALPHA_2 => 1;
25 use constant LOCALE_CODE_ALPHA_3 => 2;
26 use constant LOCALE_CODE_NUMERIC => 3;
27
28 use constant LOCALE_CODE_DEFAULT => LOCALE_CODE_ALPHA_2;
29
30 1;
31