https://perl5.git.perl.org / perl5.git / blame
| Commit | Line | Data |
|---|---|---|
| 47a334e9 JH |
1 | package Locale::Constants; |
| 2 | # | |
| 3 | # Locale::Constants - defined constants for identifying codesets | |
| 4 | # | |
| 5 | # $Id: Constants.pm,v 1.1 2001/03/04 17:58:15 neilb Exp $ | |
| 6 | # | |
| 7 | ||
| 8 | use strict; | |
| 9 | ||
| 10 | require Exporter; | |
| 11 | ||
| 12 | use vars qw($VERSION @ISA @EXPORT); | |
| 13 | @ISA = qw(Exporter); | |
| 14 | @EXPORT = qw(LOCALE_CODE_ALPHA_2 LOCALE_CODE_ALPHA_3 LOCALE_CODE_NUMERIC | |
| 15 | LOCALE_CODE_DEFAULT); | |
| 16 | ||
| 17 | use constant LOCALE_CODE_ALPHA_2 => 1; | |
| 18 | use constant LOCALE_CODE_ALPHA_3 => 2; | |
| 19 | use constant LOCALE_CODE_NUMERIC => 3; | |
| 20 | ||
| 21 | use constant LOCALE_CODE_DEFAULT => LOCALE_CODE_ALPHA_2; | |
| 22 | ||
| 23 | 1; | |
| 24 | ||
| 25 | __END__ | |
| 26 | ||
| 27 | =head1 NAME | |
| 28 | ||
| 29 | Locale::Constants - constants for Locale codes | |
| 30 | ||
| 31 | =head1 SYNOPSIS | |
| 32 | ||
| 33 | use Locale::Constants; | |
| bbc7dcd2 | 34 | |
| 47a334e9 JH |
35 | $codeset = LOCALE_CODE_ALPHA_2; |
| 36 | ||
| 37 | =head1 DESCRIPTION | |
| 38 | ||
| 39 | B<Locale::Constants> defines symbols which are used in | |
| 40 | the three modules from the Locale-Codes distribution: | |
| 41 | ||
| 42 | Locale::Language | |
| 43 | Locale::Country | |
| 44 | Locale::Currency | |
| 45 | ||
| 46 | B<Note:> at the moment only Locale::Country supports | |
| 47 | more than one code set. | |
| 48 | ||
| 49 | The symbols defined are used to specify which codes you | |
| 50 | want to be used: | |
| 51 | ||
| 52 | LOCALE_CODE_ALPHA_2 | |
| 53 | LOCALE_CODE_ALPHA_3 | |
| 54 | LOCALE_CODE_NUMERIC | |
| 55 | ||
| 56 | You shouldn't have to C<use> this module directly yourself - | |
| 57 | it is used by the three Locale modules, which in turn export | |
| 58 | the symbols. | |
| 59 | ||
| 60 | =head1 KNOWN BUGS AND LIMITATIONS | |
| 61 | ||
| 62 | None at the moment. | |
| 63 | ||
| 64 | =head1 SEE ALSO | |
| 65 | ||
| 66 | =over 4 | |
| 67 | ||
| 68 | =item Locale::Language | |
| 69 | ||
| 70 | Codes for identification of languages. | |
| 71 | ||
| 72 | =item Locale::Country | |
| 73 | ||
| 74 | Codes for identification of countries. | |
| 75 | ||
| 76 | =item Locale::Currency | |
| 77 | ||
| 78 | Codes for identification of currencies and funds. | |
| 79 | ||
| 80 | =back | |
| 81 | ||
| 82 | =head1 AUTHOR | |
| 83 | ||
| 84 | Neil Bowers E<lt>neilb@cre.canon.co.ukE<gt> | |
| 85 | ||
| 86 | =head1 COPYRIGHT | |
| 87 | ||
| 88 | Copyright (C) 2001, Canon Research Centre Europe (CRE). | |
| 89 | ||
| 90 | This module is free software; you can redistribute it and/or | |
| 91 | modify it under the same terms as Perl itself. | |
| 92 | ||
| 93 | =cut | |
| 94 |