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

   1 package Locale::Codes::LangExt;
   2 # Copyright (c) 2011-2012 Sullivan Beck
   3 # This program is free software; you can redistribute it and/or modify it
   4 # under the same terms as Perl itself.
   5
   6 use strict;
   7 require 5.006;
   8 use warnings;
   9
  10 require Exporter;
  11 use Carp;
  12 use Locale::Codes;
  13 use Locale::Codes::Constants;
  14 use Locale::Codes::LangExt_Codes;
  15 use Locale::Codes::LangExt_Retired;
  16
  17 #=======================================================================
  18 #       Public Global Variables
  19 #=======================================================================
  20
  21 our($VERSION,@ISA,@EXPORT,@EXPORT_OK);
  22
  23 $VERSION='3.24';
  24 @ISA       = qw(Exporter);
  25 @EXPORT    = qw(code2langext
  26                 langext2code
  27                 all_langext_codes
  28                 all_langext_names
  29                 langext_code2code
  30                 LOCALE_LANGEXT_ALPHA
  31                );
  32
  33 sub code2langext {
  34    return Locale::Codes::_code2name('langext',@_);
  35 }
  36
  37 sub langext2code {
  38    return Locale::Codes::_name2code('langext',@_);
  39 }
  40
  41 sub langext_code2code {
  42    return Locale::Codes::_code2code('langext',@_);
  43 }
  44
  45 sub all_langext_codes {
  46    return Locale::Codes::_all_codes('langext',@_);
  47 }
  48
  49 sub all_langext_names {
  50    return Locale::Codes::_all_names('langext',@_);
  51 }
  52
  53 sub rename_langext {
  54    return Locale::Codes::_rename('langext',@_);
  55 }
  56
  57 sub add_langext {
  58    return Locale::Codes::_add_code('langext',@_);
  59 }
  60
  61 sub delete_langext {
  62    return Locale::Codes::_delete_code('langext',@_);
  63 }
  64
  65 sub add_langext_alias {
  66    return Locale::Codes::_add_alias('langext',@_);
  67 }
  68
  69 sub delete_langext_alias {
  70    return Locale::Codes::_delete_alias('langext',@_);
  71 }
  72
  73 sub rename_langext_code {
  74    return Locale::Codes::_rename_code('langext',@_);
  75 }
  76
  77 sub add_langext_code_alias {
  78    return Locale::Codes::_add_code_alias('langext',@_);
  79 }
  80
  81 sub delete_langext_code_alias {
  82    return Locale::Codes::_delete_code_alias('langext',@_);
  83 }
  84
  85 1;
  86 # Local Variables:
  87 # mode: cperl
  88 # indent-tabs-mode: nil
  89 # cperl-indent-level: 3
  90 # cperl-continued-statement-offset: 2
  91 # cperl-continued-brace-offset: 0
  92 # cperl-brace-offset: 0
  93 # cperl-brace-imaginary-offset: 0
  94 # cperl-label-offset: -2
  95 # End: