Update Locale::Codes to 3.12

[p5sagit/p5-mst-13.2.git] / cpan / Locale-Codes / lib / Locale / Constants.pm

diff --git a/cpan/Locale-Codes/lib/Locale/Constants.pm b/cpan/Locale-Codes/lib/Locale/Constants.pm
index d8ef8f7..c6e52c5 100644 (file)
--- a/cpan/Locale-Codes/lib/Locale/Constants.pm
+++ b/cpan/Locale-Codes/lib/Locale/Constants.pm
@@ -1,31 +1,80 @@
-#
-# Locale::Constants - defined constants for identifying codesets
-#
-# $Id: Constants.pm,v 2.7 2004/06/10 21:19:34 neilb Exp $
-#
-
 package Locale::Constants;
+# Copyright (C) 2001      Canon Research Centre Europe (CRE).
+# Copyright (C) 2002-2009 Neil Bowers
+# Copyright (c) 2010-2010 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
 use strict;
+use warnings;
 
 require Exporter;
 
 #-----------------------------------------------------------------------
 #      Public Global Variables
 #-----------------------------------------------------------------------
+
 use vars qw($VERSION @ISA @EXPORT);
-$VERSION   = sprintf("%d.%02d", q$Revision: 2.7 $ =~ /(\d+)\.(\d+)/);
-@ISA   = qw(Exporter);
-@EXPORT = qw(LOCALE_CODE_ALPHA_2 LOCALE_CODE_ALPHA_3 LOCALE_CODE_NUMERIC
-               LOCALE_CODE_DEFAULT);
+
+$VERSION='3.12';
+@ISA    = qw(Exporter);
+@EXPORT  = qw(LOCALE_CODE_ALPHA_2
+              LOCALE_CODE_ALPHA_3
+              LOCALE_CODE_NUMERIC
+              LOCALE_CODE_FIPS
+              LOCALE_CODE_DOM
+              LOCALE_CODE_DEFAULT
+
+              LOCALE_LANG_ALPHA_2
+              LOCALE_LANG_ALPHA_3
+              LOCALE_LANG_TERM
+              LOCALE_LANG_DEFAULT
+
+              LOCALE_CURR_ALPHA
+              LOCALE_CURR_NUMERIC
+              LOCALE_CURR_DEFAULT
+
+              LOCALE_SCRIPT_ALPHA
+              LOCALE_SCRIPT_NUMERIC
+              LOCALE_SCRIPT_DEFAULT
+            );
 
 #-----------------------------------------------------------------------
 #      Constants
 #-----------------------------------------------------------------------
-use constant LOCALE_CODE_ALPHA_2 => 1;
-use constant LOCALE_CODE_ALPHA_3 => 2;
-use constant LOCALE_CODE_NUMERIC => 3;
 
-use constant LOCALE_CODE_DEFAULT => LOCALE_CODE_ALPHA_2;
+use constant LOCALE_CODE_ALPHA_2   => 1;
+use constant LOCALE_CODE_ALPHA_3   => 2;
+use constant LOCALE_CODE_NUMERIC   => 3;
+use constant LOCALE_CODE_FIPS      => 4;
+use constant LOCALE_CODE_DOM       => 5;
 
-1;
+use constant LOCALE_CODE_DEFAULT   => LOCALE_CODE_ALPHA_2;
 
+use constant LOCALE_LANG_ALPHA_2   => 1;
+use constant LOCALE_LANG_ALPHA_3   => 2;
+use constant LOCALE_LANG_TERM      => 3;
+
+use constant LOCALE_LANG_DEFAULT   => LOCALE_LANG_ALPHA_2;
+
+use constant LOCALE_CURR_ALPHA     => 1;
+use constant LOCALE_CURR_NUMERIC   => 2;
+
+use constant LOCALE_CURR_DEFAULT   => LOCALE_CURR_ALPHA;
+
+use constant LOCALE_SCRIPT_ALPHA   => 1;
+use constant LOCALE_SCRIPT_NUMERIC => 2;
+
+use constant LOCALE_SCRIPT_DEFAULT => LOCALE_SCRIPT_ALPHA;
+
+1;
+# Local Variables:
+# mode: cperl
+# indent-tabs-mode: nil
+# cperl-indent-level: 3
+# cperl-continued-statement-offset: 2
+# cperl-continued-brace-offset: 0
+# cperl-brace-offset: 0
+# cperl-brace-imaginary-offset: 0
+# cperl-label-offset: -2
+# End: