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

   1 package Locale::Constants;
   2 # Copyright (C) 2001      Canon Research Centre Europe (CRE).
   3 # Copyright (C) 2002-2009 Neil Bowers
   4 # Copyright (c) 2010-2010 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 use vars qw($VERSION @ISA @EXPORT);
  18
  19 $VERSION='3.12';
  20 @ISA     = qw(Exporter);
  21 @EXPORT  = qw(LOCALE_CODE_ALPHA_2
  22               LOCALE_CODE_ALPHA_3
  23               LOCALE_CODE_NUMERIC
  24               LOCALE_CODE_FIPS
  25               LOCALE_CODE_DOM
  26               LOCALE_CODE_DEFAULT
  27
  28               LOCALE_LANG_ALPHA_2
  29               LOCALE_LANG_ALPHA_3
  30               LOCALE_LANG_TERM
  31               LOCALE_LANG_DEFAULT
  32
  33               LOCALE_CURR_ALPHA
  34               LOCALE_CURR_NUMERIC
  35               LOCALE_CURR_DEFAULT
  36
  37               LOCALE_SCRIPT_ALPHA
  38               LOCALE_SCRIPT_NUMERIC
  39               LOCALE_SCRIPT_DEFAULT
  40             );
  41
  42 #-----------------------------------------------------------------------
  43 #       Constants
  44 #-----------------------------------------------------------------------
  45
  46 use constant LOCALE_CODE_ALPHA_2   => 1;
  47 use constant LOCALE_CODE_ALPHA_3   => 2;
  48 use constant LOCALE_CODE_NUMERIC   => 3;
  49 use constant LOCALE_CODE_FIPS      => 4;
  50 use constant LOCALE_CODE_DOM       => 5;
  51
  52 use constant LOCALE_CODE_DEFAULT   => LOCALE_CODE_ALPHA_2;
  53
  54 use constant LOCALE_LANG_ALPHA_2   => 1;
  55 use constant LOCALE_LANG_ALPHA_3   => 2;
  56 use constant LOCALE_LANG_TERM      => 3;
  57
  58 use constant LOCALE_LANG_DEFAULT   => LOCALE_LANG_ALPHA_2;
  59
  60 use constant LOCALE_CURR_ALPHA     => 1;
  61 use constant LOCALE_CURR_NUMERIC   => 2;
  62
  63 use constant LOCALE_CURR_DEFAULT   => LOCALE_CURR_ALPHA;
  64
  65 use constant LOCALE_SCRIPT_ALPHA   => 1;
  66 use constant LOCALE_SCRIPT_NUMERIC => 2;
  67
  68 use constant LOCALE_SCRIPT_DEFAULT => LOCALE_SCRIPT_ALPHA;
  69
  70 1;
  71 # Local Variables:
  72 # mode: cperl
  73 # indent-tabs-mode: nil
  74 # cperl-indent-level: 3
  75 # cperl-continued-statement-offset: 2
  76 # cperl-continued-brace-offset: 0
  77 # cperl-brace-offset: 0
  78 # cperl-brace-imaginary-offset: 0
  79 # cperl-label-offset: -2
  80 # End: