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

   1 package Locale::Codes::Language;
   2 # Copyright (C) 2001      Canon Research Centre Europe (CRE).
   3 # Copyright (C) 2002-2009 Neil Bowers
   4 # Copyright (c) 2010-2015 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 require 5.006;
  10 use warnings;
  11
  12 require Exporter;
  13 use Carp;
  14 use Locale::Codes;
  15 use Locale::Codes::Constants;
  16 use Locale::Codes::Language_Codes;
  17 use Locale::Codes::Language_Retired;
  18
  19 #=======================================================================
  20 #       Public Global Variables
  21 #=======================================================================
  22
  23 our($VERSION,@ISA,@EXPORT,@EXPORT_OK);
  24
  25 $VERSION='3.34';
  26 @ISA       = qw(Exporter);
  27 @EXPORT    = qw(code2language
  28                 language2code
  29                 all_language_codes
  30                 all_language_names
  31                 language_code2code
  32                 LOCALE_LANG_ALPHA_2
  33                 LOCALE_LANG_ALPHA_3
  34                 LOCALE_LANG_TERM
  35                );
  36
  37 sub code2language {
  38    return Locale::Codes::_code2name('language',@_);
  39 }
  40
  41 sub language2code {
  42    return Locale::Codes::_name2code('language',@_);
  43 }
  44
  45 sub language_code2code {
  46    return Locale::Codes::_code2code('language',@_);
  47 }
  48
  49 sub all_language_codes {
  50    return Locale::Codes::_all_codes('language',@_);
  51 }
  52
  53 sub all_language_names {
  54    return Locale::Codes::_all_names('language',@_);
  55 }
  56
  57 sub rename_language {
  58    return Locale::Codes::_rename('language',@_);
  59 }
  60
  61 sub add_language {
  62    return Locale::Codes::_add_code('language',@_);
  63 }
  64
  65 sub delete_language {
  66    return Locale::Codes::_delete_code('language',@_);
  67 }
  68
  69 sub add_language_alias {
  70    return Locale::Codes::_add_alias('language',@_);
  71 }
  72
  73 sub delete_language_alias {
  74    return Locale::Codes::_delete_alias('language',@_);
  75 }
  76
  77 sub rename_language_code {
  78    return Locale::Codes::_rename_code('language',@_);
  79 }
  80
  81 sub add_language_code_alias {
  82    return Locale::Codes::_add_code_alias('language',@_);
  83 }
  84
  85 sub delete_language_code_alias {
  86    return Locale::Codes::_delete_code_alias('language',@_);
  87 }
  88
  89 1;
  90 # Local Variables:
  91 # mode: cperl
  92 # indent-tabs-mode: nil
  93 # cperl-indent-level: 3
  94 # cperl-continued-statement-offset: 2
  95 # cperl-continued-brace-offset: 0
  96 # cperl-brace-offset: 0
  97 # cperl-brace-imaginary-offset: 0
  98 # cperl-label-offset: -2
  99 # End: