diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /systems/texlive/tlnet/tlpkg/tlperl/lib/Locale/Language.pm |
Initial commit
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Locale/Language.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/Locale/Language.pm | 94 |
1 files changed, 94 insertions, 0 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Locale/Language.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Locale/Language.pm new file mode 100644 index 0000000000..be848c9893 --- /dev/null +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Locale/Language.pm @@ -0,0 +1,94 @@ +package Locale::Language; +# Copyright (C) 2001 Canon Research Centre Europe (CRE). +# Copyright (C) 2002-2009 Neil Bowers +# Copyright (c) 2010-2018 Sullivan Beck +# This program is free software; you can redistribute it and/or modify it +# under the same terms as Perl itself. + +# This file was automatically generated. Any changes to this file will +# be lost the next time 'gen_mods' is run. +# Generated on: Fri Feb 23 12:55:25 EST 2018 + +use strict; +use warnings; +require 5.006; +use Exporter qw(import); + +our($VERSION,@EXPORT); +$VERSION = '3.56'; + +################################################################################ +use if $] >= 5.027007, 'deprecate'; +use Locale::Codes; +use Locale::Codes::Constants; + +@EXPORT = qw( + code2language + language2code + all_language_codes + all_language_names + language_code2code + ); +push(@EXPORT,@Locale::Codes::Constants::CONSTANTS_LANGUAGE); + +our $obj = new Locale::Codes('language'); +$obj->show_errors(0); + +sub show_errors { + my($val) = @_; + $obj->show_errors($val); +} + +sub code2language { + return $obj->code2name(@_); +} + +sub language2code { + return $obj->name2code(@_); +} + +sub language_code2code { + return $obj->code2code(@_); +} + +sub all_language_codes { + return $obj->all_codes(@_); +} + +sub all_language_names { + return $obj->all_names(@_); +} + +sub rename_language { + return $obj->rename_code(@_); +} + +sub add_language { + return $obj->add_code(@_); +} + +sub delete_language { + return $obj->delete_code(@_); +} + +sub add_language_alias { + return $obj->add_alias(@_); +} + +sub delete_language_alias { + return $obj->delete_alias(@_); +} + +sub rename_language_code { + return $obj->replace_code(@_); +} + +sub add_language_code_alias { + return $obj->add_code_alias(@_); +} + +sub delete_language_code_alias { + return $obj->delete_code_alias(@_); +} + +1; |