The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

language5.pl - Demonstration of Locales::Language setLocale Usage.

SYNOPSIS

./language5.pl

DESCRIPTION

This is a simple demonstration script that shows how the top level Locales::Language module will override the environment LC_ALL setting at import time. Methods for resetting the default locale are also demonstrated. For example:

  $ENV{LC_ALL} = "de";             # reset environment locale.

  use Locales::Language ( "am" );  # override environment locale.

  my $l = new Locales::Language;
  print $l->getLocale, " => ", $l->code2language ( "en" ), "\n";

  $l->setLocale ( "fr" );          # reset default locale.
  print $l->getLocale, " => ", $l->code2language ( "en" ), "\n";

  $l->setLocale;                   # no arg returns to the import setting
  print $l->getLocale, " => ", $l->code2language ( "en" ), "\n";

AUTHOR

Daniel Yacob, dyacob@cpan.org

SEE ALSO

Locales::Language