lib/Locale/Constants.pm

   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