Line | |
---|
1 | #
|
---|
2 | # Locale::Constants - defined constants for identifying codesets
|
---|
3 | #
|
---|
4 | # $Id: Constants.pm,v 2.7 2004/06/10 21:19:34 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.7 $ =~ /(\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 |
|
---|
Note:
See
TracBrowser
for help on using the repository browser.