Lingua::Preferred

Many web browsers let you specify which languages you understand.
Then they negotiate with the web server to get documents in the best
language possible.  This is something similar in Perl.

which_lang() takes a list of languages the user understands, such as
qw(en es) and a list of those available on the server, such as qw(en fr
de), and it returns the language to use.  There is some fooling around
with picking second-best 'dialects' of a language, for example if the
user's language is en_IE and a page is available in en_US.

acceptable_lang() takes a list of languages the user understands and a
single language, and returns true iff that language is acceptable.
Again it assumes that different dialects of a language are mutually
comprehensible.

Version 0.2.1: no code changes, just clarified the licence.

* Copying

Copyright 2001-2002 Ed Avis.  This is free software; you may
distribute it under the same terms as perl itself (either under the
GNU General Public License, version 2 or at your option any later
version); or under the Artistic License.

-- Ed Avis, <ed@membled.com>, 2002-09-24