Commit | Line | Data |
---|---|---|
47a334e9 | 1 | package Locale::Language; |
f768f60b S |
2 | # Copyright (C) 2001 Canon Research Centre Europe (CRE). |
3 | # Copyright (C) 2002-2009 Neil Bowers | |
21e8c5cf | 4 | # Copyright (c) 2010-2011 Sullivan Beck |
f768f60b S |
5 | # This program is free software; you can redistribute it and/or modify it |
6 | # under the same terms as Perl itself. | |
7 | ||
47a334e9 | 8 | use strict; |
f768f60b | 9 | use warnings; |
c69a30ec | 10 | use Exporter; |
47a334e9 | 11 | |
c69a30ec | 12 | our $VERSION; |
43c6b706 | 13 | $VERSION='3.18'; |
47a334e9 | 14 | |
c69a30ec | 15 | our (@ISA,@EXPORT); |
47a334e9 | 16 | |
c69a30ec CBW |
17 | my $backend = 'Locale::Codes::Language'; |
18 | my $backend_exp = $backend . "::EXPORT"; | |
f768f60b | 19 | |
c69a30ec | 20 | eval "require $backend; $backend->import(); return 1;"; |
f768f60b | 21 | |
c69a30ec CBW |
22 | { |
23 | no strict 'refs'; | |
24 | @EXPORT = @{ $backend_exp }; | |
47a334e9 JH |
25 | } |
26 | ||
c69a30ec | 27 | unshift (@ISA, $backend); |
6b14ceb7 | 28 | |
c69a30ec CBW |
29 | sub rename_language { Locale::Codes::Language::rename_language(@_) } |
30 | sub add_language { Locale::Codes::Language::add_language(@_) } | |
31 | sub delete_language { Locale::Codes::Language::delete_language(@_) } | |
32 | sub add_language_alias { Locale::Codes::Language::add_language_alias(@_) } | |
33 | sub delete_language_alias { Locale::Codes::Language::delete_language_alias(@_) } | |
34 | sub rename_language_code { Locale::Codes::Language::rename_language_code(@_) } | |
35 | sub add_language_code_alias { Locale::Codes::Language::add_language_code_alias(@_) } | |
36 | sub delete_language_code_alias { Locale::Codes::Language::delete_language_code_alias(@_) } | |
f768f60b S |
37 | |
38 | 1; | |
39 | # Local Variables: | |
40 | # mode: cperl | |
41 | # indent-tabs-mode: nil | |
42 | # cperl-indent-level: 3 | |
43 | # cperl-continued-statement-offset: 2 | |
44 | # cperl-continued-brace-offset: 0 | |
45 | # cperl-brace-offset: 0 | |
46 | # cperl-brace-imaginary-offset: 0 | |
47 | # cperl-label-offset: -2 | |
48 | # End: |