1 package Locale::Constants;
3 # Locale::Constants - defined constants for identifying codesets
5 # $Id: Constants.pm,v 2.0 2002/02/05 22:37:58 neilb Exp $
12 use vars qw($VERSION @ISA @EXPORT);
13 $VERSION = sprintf("%d.%02d", q$Revision: 2.0 $ =~ /(\d+)\.(\d+)/);
15 @EXPORT = qw(LOCALE_CODE_ALPHA_2 LOCALE_CODE_ALPHA_3 LOCALE_CODE_NUMERIC
18 use constant LOCALE_CODE_ALPHA_2 => 1;
19 use constant LOCALE_CODE_ALPHA_3 => 2;
20 use constant LOCALE_CODE_NUMERIC => 3;
22 use constant LOCALE_CODE_DEFAULT => LOCALE_CODE_ALPHA_2;
30 Locale::Constants - constants for Locale codes
34 use Locale::Constants;
36 $codeset = LOCALE_CODE_ALPHA_2;
40 B<Locale::Constants> defines symbols which are used in
41 the four modules from the Locale-Codes distribution:
48 B<Note:> at the moment only Locale::Country and Locale::Script
49 support more than one code set.
51 The symbols defined are used to specify which codes you
58 You shouldn't have to C<use> this module directly yourself -
59 it is used by the three Locale modules, which in turn export
62 =head1 KNOWN BUGS AND LIMITATIONS
70 =item Locale::Language
72 Codes for identification of languages.
76 Codes for identification of countries.
80 Codes for identification of scripts.
82 =item Locale::Currency
84 Codes for identification of currencies and funds.
90 Neil Bowers E<lt>neil@bowers.comE<gt>
94 Copyright (C) 2002, Neil Bowers.
96 Copyright (C) 2001, Canon Research Centre Europe (CRE).
98 This module is free software; you can redistribute it and/or
99 modify it under the same terms as Perl itself.