[Summary view] [Print] [Text view]

   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