Commit | Line | Data |
---|---|---|
4345d05b | 1 | package Locale::Codes::LangFam; |
afac733b SB |
2 | # Copyright (C) 2001 Canon Research Centre Europe (CRE). |
3 | # Copyright (C) 2002-2009 Neil Bowers | |
fd144912 | 4 | # Copyright (c) 2010-2018 Sullivan Beck |
4345d05b CBW |
5 | # This program is free software; you can redistribute it and/or modify it |
6 | # under the same terms as Perl itself. | |
7 | ||
afac733b SB |
8 | # This file was automatically generated. Any changes to this file will |
9 | # be lost the next time 'gen_mods' is run. | |
fd144912 | 10 | # Generated on: Fri Feb 23 12:55:25 EST 2018 |
afac733b | 11 | |
4345d05b CBW |
12 | use strict; |
13 | use warnings; | |
afac733b SB |
14 | require 5.006; |
15 | use Exporter qw(import); | |
4345d05b | 16 | |
afac733b | 17 | our($VERSION,@EXPORT); |
fd144912 | 18 | $VERSION = '3.56'; |
afac733b SB |
19 | |
20 | ################################################################################ | |
183fb71f | 21 | use if $] >= 5.027007, 'deprecate'; |
4345d05b CBW |
22 | use Locale::Codes; |
23 | use Locale::Codes::Constants; | |
4345d05b | 24 | |
afac733b SB |
25 | @EXPORT = qw( |
26 | code2langfam | |
4345d05b CBW |
27 | langfam2code |
28 | all_langfam_codes | |
29 | all_langfam_names | |
30 | langfam_code2code | |
4345d05b | 31 | ); |
afac733b SB |
32 | push(@EXPORT,@Locale::Codes::Constants::CONSTANTS_LANGFAM); |
33 | ||
34 | our $obj = new Locale::Codes('langfam'); | |
72807c72 | 35 | $obj->show_errors(0); |
afac733b | 36 | |
72807c72 | 37 | sub show_errors { |
afac733b SB |
38 | my($val) = @_; |
39 | $obj->show_errors($val); | |
40 | } | |
4345d05b CBW |
41 | |
42 | sub code2langfam { | |
afac733b | 43 | return $obj->code2name(@_); |
4345d05b CBW |
44 | } |
45 | ||
46 | sub langfam2code { | |
afac733b | 47 | return $obj->name2code(@_); |
4345d05b CBW |
48 | } |
49 | ||
50 | sub langfam_code2code { | |
afac733b | 51 | return $obj->code2code(@_); |
4345d05b CBW |
52 | } |
53 | ||
54 | sub all_langfam_codes { | |
afac733b | 55 | return $obj->all_codes(@_); |
4345d05b CBW |
56 | } |
57 | ||
58 | sub all_langfam_names { | |
afac733b | 59 | return $obj->all_names(@_); |
4345d05b CBW |
60 | } |
61 | ||
62 | sub rename_langfam { | |
afac733b | 63 | return $obj->rename_code(@_); |
4345d05b CBW |
64 | } |
65 | ||
66 | sub add_langfam { | |
afac733b | 67 | return $obj->add_code(@_); |
4345d05b CBW |
68 | } |
69 | ||
70 | sub delete_langfam { | |
afac733b | 71 | return $obj->delete_code(@_); |
4345d05b CBW |
72 | } |
73 | ||
74 | sub add_langfam_alias { | |
afac733b | 75 | return $obj->add_alias(@_); |
4345d05b CBW |
76 | } |
77 | ||
78 | sub delete_langfam_alias { | |
afac733b | 79 | return $obj->delete_alias(@_); |
4345d05b CBW |
80 | } |
81 | ||
82 | sub rename_langfam_code { | |
afac733b | 83 | return $obj->replace_code(@_); |
4345d05b CBW |
84 | } |
85 | ||
86 | sub add_langfam_code_alias { | |
afac733b | 87 | return $obj->add_code_alias(@_); |
4345d05b CBW |
88 | } |
89 | ||
90 | sub delete_langfam_code_alias { | |
afac733b | 91 | return $obj->delete_code_alias(@_); |
4345d05b CBW |
92 | } |
93 | ||
94 | 1; |