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         fr    => N_("French"),
  22         de    => N_("German"),
  23         it    => N_("Italian"),
  24         ja    => N_("Japanese"),
  25         ko    => N_("Korean"),
  26         es    => N_("Spanish"),
  27         pt_BR => N_("Portuguese (Brasilia)"),
  28         pt_PT => N_("Portuguese (Portugal)"),
  29         zh    => N_("Chinese"),
  30         sv_SE => N_("Swedish"),
  31         pl    => N_("Polish"),
  32         'no'  => N_("Norwegian"),
  33         tr    => N_("Turkish"),
  34         ru    => N_("Russian"),
  35         cs    => N_("Czech"),
  36         eo    => N_("Esperanto"),
  37         hu    => N_("Hungarian"),
  38         ro    => N_("Romanian"),
  39         sk    => N_("Slovak"),
  40         el    => N_("Greek"),
  41         ca    => N_("Catalan"),
  42         lt    => N_("Lithuanian"),
  43         sl    => N_("Slovene"),
  44         bg    => N_("Bulgarian"),
  45         uk    => N_("Ukrainian"),
  46 );
  47
  48 sub get_language_name {
  49     return $ctrans{$_[0]};
  50 }
  51
  52 sub get_all_languages {
  53     return %ctrans;
  54 }
  55
  56 1;