lib/Packages/I18N/LanguageNames.pm

   1 # Taken from the webwml CVS tree (english/templates/language_names.wml)
   2
   3 package Packages::I18N::LanguageNames;
   4
   5 use strict;
   6 use warnings;
   7
   8 use Exporter;
   9 use Packages::I18N::Locale;
  10
  11 our @ISA = qw( Exporter );
  12 our @EXPORT = qw( get_language_name get_all_languages );
  13
  14 my %ctrans = (
  15         ar    => N_("Arabic"),
  16         fi    => N_("Finnish"),
  17         hr    => N_("Croatian"),
  18         da    => N_("Danish"),
  19         nl    => N_("Dutch"),
  20         en    => N_("English"),
  21         fa    => N_("Persian"),
  22         fr    => N_("French"),
  23         de    => N_("German"),
  24         hy    => N_("Armenian"),
  25         it    => N_("Italian"),
  26         ja    => N_("Japanese"),
  27         ko    => N_("Korean"),
  28         es    => N_("Spanish"),
  29         pt    => N_("Portuguese"),
  30         'pt-br'=> N_("Portuguese (Brasilia)"),
  31         'pt-pt'=> N_("Portuguese (Portugal)"),
  32         zh    => N_("Chinese"),
  33         'zh-cn'=> N_("Chinese (China)"),
  34         'zh-hk'=> N_("Chinese (Hong Kong)"),
  35         'zh-tw'=> N_("Chinese (Taiwan)"),
  36         sv    => N_("Swedish"),
  37         'sv-se'=> N_("Swedish"),
  38         pl    => N_("Polish"),
  39         'no'  => N_("Norwegian"),
  40         'tr'  => N_("Turkish"),
  41         ru    => N_("Russian"),
  42         cs    => N_("Czech"),
  43         eo    => N_("Esperanto"),
  44         hu    => N_("Hungarian"),
  45         ro    => N_("Romanian"),
  46         sk    => N_("Slovak"),
  47         el    => N_("Greek"),
  48         ca    => N_("Catalan"),
  49         lt    => N_("Lithuanian"),
  50         sl    => N_("Slovene"),
  51         bg    => N_("Bulgarian"),
  52         uk    => N_("Ukrainian"),
  53 );
  54
  55 sub get_language_name {
  56     return $ctrans{$_[0]};
  57 }
  58
  59 sub get_all_languages {
  60     return %ctrans;
  61 }
  62
  63 1;