init III

Perl OTRS/Kernel/cpan-lib/Locale/Codes/Script.pm

@@ -0,0 +1,92 @@
+package Locale::Codes::Script;
+# Copyright (C) 2001      Canon Research Centre Europe (CRE).
+# Copyright (C) 2002-2009 Neil Bowers
+# Copyright (c) 2010-2017 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: Tue May 30 10:31:45 EDT 2017
+
+use strict;
+use warnings;
+require 5.006;
+use Exporter qw(import);
+
+our($VERSION,@EXPORT);
+$VERSION   = '3.52';
+
+################################################################################
+use Locale::Codes;
+use Locale::Codes::Constants;
+
+@EXPORT    = qw(
+                code2script
+                script2code
+                all_script_codes
+                all_script_names
+                script_code2code
+               );
+push(@EXPORT,@Locale::Codes::Constants::CONSTANTS_SCRIPT);
+
+our $obj = new Locale::Codes('script');
+
+sub _show_errors {
+   my($val) = @_;
+   $obj->show_errors($val);
+}
+
+sub code2script {
+   return $obj->code2name(@_);
+}
+
+sub script2code {
+   return $obj->name2code(@_);
+}
+
+sub script_code2code {
+   return $obj->code2code(@_);
+}
+
+sub all_script_codes {
+   return $obj->all_codes(@_);
+}
+
+sub all_script_names {
+   return $obj->all_names(@_);
+}
+
+sub rename_script {
+   return $obj->rename_code(@_);
+}
+
+sub add_script {
+   return $obj->add_code(@_);
+}
+
+sub delete_script {
+   return $obj->delete_code(@_);
+}
+
+sub add_script_alias {
+   return $obj->add_alias(@_);
+}
+
+sub delete_script_alias {
+   return $obj->delete_alias(@_);
+}
+
+sub rename_script_code {
+   return $obj->replace_code(@_);
+}
+
+sub add_script_code_alias {
+   return $obj->add_code_alias(@_);
+}
+
+sub delete_script_code_alias {
+   return $obj->delete_code_alias(@_);
+}
+
+1;