Commit | Line | Data |
---|---|---|
4345d05b | 1 | package Locale::Codes::LangFam; |
4764fecd | 2 | # Copyright (c) 2011-2012 Sullivan Beck |
4345d05b CBW |
3 | # This program is free software; you can redistribute it and/or modify it |
4 | # under the same terms as Perl itself. | |
5 | ||
6 | use strict; | |
94814ff5 | 7 | require 5.006; |
4345d05b | 8 | use warnings; |
4345d05b CBW |
9 | |
10 | require Exporter; | |
11 | use Carp; | |
12 | use Locale::Codes; | |
13 | use Locale::Codes::Constants; | |
14 | use Locale::Codes::LangFam_Codes; | |
15 | use Locale::Codes::LangFam_Retired; | |
16 | ||
17 | #======================================================================= | |
18 | # Public Global Variables | |
19 | #======================================================================= | |
20 | ||
21 | our($VERSION,@ISA,@EXPORT,@EXPORT_OK); | |
22 | ||
94814ff5 | 23 | $VERSION='3.23'; |
4345d05b CBW |
24 | @ISA = qw(Exporter); |
25 | @EXPORT = qw(code2langfam | |
26 | langfam2code | |
27 | all_langfam_codes | |
28 | all_langfam_names | |
29 | langfam_code2code | |
30 | LOCALE_LANGFAM_ALPHA | |
31 | ); | |
32 | ||
33 | sub code2langfam { | |
34 | return Locale::Codes::_code2name('langfam',@_); | |
35 | } | |
36 | ||
37 | sub langfam2code { | |
38 | return Locale::Codes::_name2code('langfam',@_); | |
39 | } | |
40 | ||
41 | sub langfam_code2code { | |
42 | return Locale::Codes::_code2code('langfam',@_); | |
43 | } | |
44 | ||
45 | sub all_langfam_codes { | |
46 | return Locale::Codes::_all_codes('langfam',@_); | |
47 | } | |
48 | ||
49 | sub all_langfam_names { | |
50 | return Locale::Codes::_all_names('langfam',@_); | |
51 | } | |
52 | ||
53 | sub rename_langfam { | |
54 | return Locale::Codes::_rename('langfam',@_); | |
55 | } | |
56 | ||
57 | sub add_langfam { | |
58 | return Locale::Codes::_add_code('langfam',@_); | |
59 | } | |
60 | ||
61 | sub delete_langfam { | |
62 | return Locale::Codes::_delete_code('langfam',@_); | |
63 | } | |
64 | ||
65 | sub add_langfam_alias { | |
66 | return Locale::Codes::_add_alias('langfam',@_); | |
67 | } | |
68 | ||
69 | sub delete_langfam_alias { | |
70 | return Locale::Codes::_delete_alias('langfam',@_); | |
71 | } | |
72 | ||
73 | sub rename_langfam_code { | |
74 | return Locale::Codes::_rename_code('langfam',@_); | |
75 | } | |
76 | ||
77 | sub add_langfam_code_alias { | |
78 | return Locale::Codes::_add_code_alias('langfam',@_); | |
79 | } | |
80 | ||
81 | sub delete_langfam_code_alias { | |
82 | return Locale::Codes::_delete_code_alias('langfam',@_); | |
83 | } | |
84 | ||
85 | 1; | |
86 | # Local Variables: | |
87 | # mode: cperl | |
88 | # indent-tabs-mode: nil | |
89 | # cperl-indent-level: 3 | |
90 | # cperl-continued-statement-offset: 2 | |
91 | # cperl-continued-brace-offset: 0 | |
92 | # cperl-brace-offset: 0 | |
93 | # cperl-brace-imaginary-offset: 0 | |
94 | # cperl-label-offset: -2 | |
95 | # End: |