lib/Packages/I18N/LanguageNames.pm

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