diff options
author | Karl Berry <karl@freefriends.org> | 2019-03-10 21:56:14 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2019-03-10 21:56:14 +0000 |
commit | e0a2a718e89f9700d627f1e6a8eea8f21d2fbeb8 (patch) | |
tree | 39972f65008b0d70f306a5f976494d29411bc41e /Master/tlpkg/tlperl/lib/Locale/Codes/LangVar.pm | |
parent | b206fdc77d81ed1600949062f08de5690a4bf66f (diff) |
tl19 perl 5.28.1 for Windows, from Siep
git-svn-id: svn://tug.org/texlive/trunk@50322 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Locale/Codes/LangVar.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Locale/Codes/LangVar.pm | 78 |
1 files changed, 38 insertions, 40 deletions
diff --git a/Master/tlpkg/tlperl/lib/Locale/Codes/LangVar.pm b/Master/tlpkg/tlperl/lib/Locale/Codes/LangVar.pm index a038eb7681e..504bc02f1cd 100644 --- a/Master/tlpkg/tlperl/lib/Locale/Codes/LangVar.pm +++ b/Master/tlpkg/tlperl/lib/Locale/Codes/LangVar.pm @@ -1,96 +1,94 @@ package Locale::Codes::LangVar; -# Copyright (c) 2011-2016 Sullivan Beck +# 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; -require 5.006; use warnings; +require 5.006; +use Exporter qw(import); -require Exporter; -use Carp; +our($VERSION,@EXPORT); +$VERSION = '3.56'; + +################################################################################ +use if $] >= 5.027007, 'deprecate'; use Locale::Codes; use Locale::Codes::Constants; -use Locale::Codes::LangVar_Codes; -use Locale::Codes::LangVar_Retired; - -#======================================================================= -# Public Global Variables -#======================================================================= -our($VERSION,@ISA,@EXPORT,@EXPORT_OK); - -$VERSION='3.42'; -@ISA = qw(Exporter); -@EXPORT = qw(code2langvar +@EXPORT = qw( + code2langvar langvar2code all_langvar_codes all_langvar_names langvar_code2code - LOCALE_LANGVAR_ALPHA ); +push(@EXPORT,@Locale::Codes::Constants::CONSTANTS_LANGVAR); + +our $obj = new Locale::Codes('langvar'); +$obj->show_errors(0); + +sub show_errors { + my($val) = @_; + $obj->show_errors($val); +} sub code2langvar { - return Locale::Codes::_code2name('langvar',@_); + return $obj->code2name(@_); } sub langvar2code { - return Locale::Codes::_name2code('langvar',@_); + return $obj->name2code(@_); } sub langvar_code2code { - - return Locale::Codes::_code2code('langvar',@_); + return $obj->code2code(@_); } sub all_langvar_codes { - return Locale::Codes::_all_codes('langvar',@_); + return $obj->all_codes(@_); } sub all_langvar_names { - return Locale::Codes::_all_names('langvar',@_); + return $obj->all_names(@_); } sub rename_langvar { - return Locale::Codes::_rename('langvar',@_); + return $obj->rename_code(@_); } sub add_langvar { - return Locale::Codes::_add_code('langvar',@_); + return $obj->add_code(@_); } sub delete_langvar { - return Locale::Codes::_delete_code('langvar',@_); + return $obj->delete_code(@_); } sub add_langvar_alias { - return Locale::Codes::_add_alias('langvar',@_); + return $obj->add_alias(@_); } sub delete_langvar_alias { - return Locale::Codes::_delete_alias('langvar',@_); + return $obj->delete_alias(@_); } sub rename_langvar_code { - return Locale::Codes::_rename_code('langvar',@_); + return $obj->replace_code(@_); } sub add_langvar_code_alias { - return Locale::Codes::_add_code_alias('langvar',@_); + return $obj->add_code_alias(@_); } sub delete_langvar_code_alias { - return Locale::Codes::_delete_code_alias('langvar',@_); + return $obj->delete_code_alias(@_); } 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: 0 -# End: |