cpan/Locale-Codes/lib/Locale/Codes/Constants.pm

   1 package Locale::Codes::Constants;
   2 # Copyright (C) 2001      Canon Research Centre Europe (CRE).
   3 # Copyright (C) 2002-2009 Neil Bowers
   4 # Copyright (c) 2010-2016 Sullivan Beck
   5 # This program is free software; you can redistribute it and/or modify it
   6 # under the same terms as Perl itself.
   7
   8 use strict;
   9 use warnings;
  10
  11 require Exporter;
  12
  13 #-----------------------------------------------------------------------
  14 #       Public Global Variables
  15 #-----------------------------------------------------------------------
  16
  17 our($VERSION,@ISA,@EXPORT);
  18 our(%ALL_CODESETS);
  19
  20 $VERSION='3.40';
  21 @ISA     = qw(Exporter);
  22 @EXPORT  = qw(LOCALE_CODE_ALPHA_2
  23               LOCALE_CODE_ALPHA_3
  24               LOCALE_CODE_NUMERIC
  25               LOCALE_CODE_DOM
  26               LOCALE_CODE_UN_NUMERIC
  27               LOCALE_CODE_UN_ALPHA_3
  28               LOCALE_CODE_GENC_ALPHA_2
  29               LOCALE_CODE_GENC_ALPHA_3
  30               LOCALE_CODE_GENC_NUMERIC
  31
  32               LOCALE_LANG_ALPHA_2
  33               LOCALE_LANG_ALPHA_3
  34               LOCALE_LANG_TERM
  35
  36               LOCALE_CURR_ALPHA
  37               LOCALE_CURR_NUMERIC
  38
  39               LOCALE_SCRIPT_ALPHA
  40               LOCALE_SCRIPT_NUMERIC
  41
  42               LOCALE_LANGEXT_ALPHA
  43
  44               LOCALE_LANGVAR_ALPHA
  45
  46               LOCALE_LANGFAM_ALPHA
  47
  48               %ALL_CODESETS
  49             );
  50
  51 #-----------------------------------------------------------------------
  52 #       Constants
  53 #-----------------------------------------------------------------------
  54
  55 use constant LOCALE_CODE_ALPHA_2      => 'alpha-2';
  56 use constant LOCALE_CODE_ALPHA_3      => 'alpha-3';
  57 use constant LOCALE_CODE_NUMERIC      => 'numeric';
  58 use constant LOCALE_CODE_DOM          => 'dom';
  59 use constant LOCALE_CODE_UN_ALPHA_3   => 'un-alpha-3';
  60 use constant LOCALE_CODE_UN_NUMERIC   => 'un-numeric';
  61 use constant LOCALE_CODE_GENC_ALPHA_2 => 'genc-alpha-2';
  62 use constant LOCALE_CODE_GENC_ALPHA_3 => 'genc-alpha-3';
  63 use constant LOCALE_CODE_GENC_NUMERIC => 'genc-numeric';
  64
  65 $ALL_CODESETS{'country'} = {
  66                             'default'  => 'alpha-2',
  67                             'codesets' => { 'alpha-2'      => ['lc'],
  68                                             'alpha-3'      => ['lc'],
  69                                             'numeric'      => ['numeric',3],
  70                                             'dom'          => ['lc'],
  71                                             'un-alpha-3'   => ['uc'],
  72                                             'un-numeric'   => ['numeric',3],
  73                                             'genc-alpha-2' => ['uc'],
  74                                             'genc-alpha-3' => ['uc'],
  75                                             'genc-numeric' => ['numeric',3],
  76                                           }
  77                            };
  78
  79 use constant LOCALE_LANG_ALPHA_2    => 'alpha-2';
  80 use constant LOCALE_LANG_ALPHA_3    => 'alpha-3';
  81 use constant LOCALE_LANG_TERM       => 'term';
  82
  83 $ALL_CODESETS{'language'} = {
  84                              'default'  => 'alpha-2',
  85                              'codesets' => { 'alpha-2'  => ['lc'],
  86                                              'alpha-3'  => ['lc'],
  87                                              'term'     => ['lc'],
  88                                            }
  89                             };
  90
  91 use constant LOCALE_CURR_ALPHA      => 'alpha';
  92 use constant LOCALE_CURR_NUMERIC    => 'num';
  93
  94 $ALL_CODESETS{'currency'} = {
  95                              'default'  => 'alpha',
  96                              'codesets' => { 'alpha'  => ['uc'],
  97                                              'num'    => ['numeric',3],
  98                                            }
  99                             };
 100
 101 use constant LOCALE_SCRIPT_ALPHA    => 'alpha';
 102 use constant LOCALE_SCRIPT_NUMERIC  => 'num';
 103
 104 $ALL_CODESETS{'script'} = {
 105                            'default'  => 'alpha',
 106                            'codesets' => { 'alpha'  => ['ucfirst'],
 107                                            'num'    => ['numeric',3],
 108                                          }
 109                           };
 110
 111 use constant LOCALE_LANGEXT_ALPHA   => 'alpha';
 112
 113 $ALL_CODESETS{'langext'} = {
 114                            'default'  => 'alpha',
 115                            'codesets' => { 'alpha'  => ['lc'],
 116                                          }
 117                           };
 118
 119 use constant LOCALE_LANGVAR_ALPHA   => 'alpha';
 120
 121 $ALL_CODESETS{'langvar'} = {
 122                            'default'  => 'alpha',
 123                            'codesets' => { 'alpha'  => ['lc'],
 124                                          }
 125                           };
 126
 127 use constant LOCALE_LANGFAM_ALPHA   => 'alpha';
 128
 129 $ALL_CODESETS{'langfam'} = {
 130                            'default'  => 'alpha',
 131                            'codesets' => { 'alpha'  => ['lc'],
 132                                          }
 133                           };
 134
 135 1;
 136 # Local Variables:
 137 # mode: cperl
 138 # indent-tabs-mode: nil
 139 # cperl-indent-level: 3
 140 # cperl-continued-statement-offset: 2
 141 # cperl-continued-brace-offset: 0
 142 # cperl-brace-offset: 0
 143 # cperl-brace-imaginary-offset: 0
 144 # cperl-label-offset: 0
 145 # End: