summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Locale/Codes/LangVar.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2019-03-10 21:56:14 +0000
committerKarl Berry <karl@freefriends.org>2019-03-10 21:56:14 +0000
commite0a2a718e89f9700d627f1e6a8eea8f21d2fbeb8 (patch)
tree39972f65008b0d70f306a5f976494d29411bc41e /Master/tlpkg/tlperl/lib/Locale/Codes/LangVar.pm
parentb206fdc77d81ed1600949062f08de5690a4bf66f (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.pm78
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: