| 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.
