| package Locale::Language; |
| # Copyright (C) 2001 Canon Research Centre Europe (CRE). |
| # Copyright (C) 2002-2009 Neil Bowers |
| # Copyright (c) 2010-2012 Sullivan Beck |
| # This program is free software; you can redistribute it and/or modify it |
| # under the same terms as Perl itself. |
| |
| use strict; |
| use warnings; |
| use Exporter; |
| |
| our $VERSION; |
| $VERSION='3.21'; |
| |
| our (@ISA,@EXPORT); |
| |
| my $backend = 'Locale::Codes::Language'; |
| my $backend_exp = $backend . "::EXPORT"; |
| |
| eval "require $backend; $backend->import(); return 1;"; |
| |
| { |
| no strict 'refs'; |
| @EXPORT = @{ $backend_exp }; |
| } |
| |
| unshift (@ISA, $backend); |
| |
| sub rename_language { Locale::Codes::Language::rename_language(@_) } |
| sub add_language { Locale::Codes::Language::add_language(@_) } |
| sub delete_language { Locale::Codes::Language::delete_language(@_) } |
| sub add_language_alias { Locale::Codes::Language::add_language_alias(@_) } |
| sub delete_language_alias { Locale::Codes::Language::delete_language_alias(@_) } |
| sub rename_language_code { Locale::Codes::Language::rename_language_code(@_) } |
| sub add_language_code_alias { Locale::Codes::Language::add_language_code_alias(@_) } |
| sub delete_language_code_alias { Locale::Codes::Language::delete_language_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: -2 |
| # End: |