diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Locale/Codes/LangExt.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Locale/Codes/LangExt.pm | 95 |
1 files changed, 95 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Locale/Codes/LangExt.pm b/Master/tlpkg/tlperl/lib/Locale/Codes/LangExt.pm new file mode 100644 index 00000000000..2817fa7fc57 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Locale/Codes/LangExt.pm @@ -0,0 +1,95 @@ +package Locale::Codes::LangExt; +# Copyright (c) 2011-2012 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 5.002; + +require Exporter; +use Carp; +use Locale::Codes; +use Locale::Codes::Constants; +use Locale::Codes::LangExt_Codes; +use Locale::Codes::LangExt_Retired; + +#======================================================================= +# Public Global Variables +#======================================================================= + +our($VERSION,@ISA,@EXPORT,@EXPORT_OK); + +$VERSION='3.21'; +@ISA = qw(Exporter); +@EXPORT = qw(code2langext + langext2code + all_langext_codes + all_langext_names + langext_code2code + LOCALE_LANGEXT_ALPHA + ); + +sub code2langext { + return Locale::Codes::_code2name('langext',@_); +} + +sub langext2code { + return Locale::Codes::_name2code('langext',@_); +} + +sub langext_code2code { + return Locale::Codes::_code2code('langext',@_); +} + +sub all_langext_codes { + return Locale::Codes::_all_codes('langext',@_); +} + +sub all_langext_names { + return Locale::Codes::_all_names('langext',@_); +} + +sub rename_langext { + return Locale::Codes::_rename('langext',@_); +} + +sub add_langext { + return Locale::Codes::_add_code('langext',@_); +} + +sub delete_langext { + return Locale::Codes::_delete_code('langext',@_); +} + +sub add_langext_alias { + return Locale::Codes::_add_alias('langext',@_); +} + +sub delete_langext_alias { + return Locale::Codes::_delete_alias('langext',@_); +} + +sub rename_langext_code { + return Locale::Codes::_rename_code('langext',@_); +} + +sub add_langext_code_alias { + return Locale::Codes::_add_code_alias('langext',@_); +} + +sub delete_langext_code_alias { + return Locale::Codes::_delete_code_alias('langext',@_); +} + +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: |