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         km    => N_("Khmer"),
  28         ko    => N_("Korean"),
  29         es    => N_("Spanish"),
  30         pt    => N_("Portuguese"),
  31         'pt-br'=> N_("Portuguese (Brasilia)"),
  32         'pt-pt'=> N_("Portuguese (Portugal)"),
  33         zh    => N_("Chinese"),
  34         'zh-cn'=> N_("Chinese (China)"),
  35         'zh-hk'=> N_("Chinese (Hong Kong)"),
  36         'zh-tw'=> N_("Chinese (Taiwan)"),
  37         sv    => N_("Swedish"),
  38         'sv-se'=> N_("Swedish"),
  39         pl    => N_("Polish"),
  40         'no'  => N_("Norwegian"),
  41         'tr'  => N_("Turkish"),
  42         ru    => N_("Russian"),
  43         cs    => N_("Czech"),
  44         eo    => N_("Esperanto"),
  45         hu    => N_("Hungarian"),
  46         ro    => N_("Romanian"),
  47         sk    => N_("Slovak"),
  48         el    => N_("Greek"),
  49         ca    => N_("Catalan"),
  50         lt    => N_("Lithuanian"),
  51         sl    => N_("Slovene"),
  52         bg    => N_("Bulgarian"),
  53         uk    => N_("Ukrainian"),
  54 );
  55
  56 sub get_language_name {
  57     return $ctrans{$_[0]};
  58 }
  59
  60 sub get_all_languages {
  61     return %ctrans;
  62 }
  63
  64 1;