NAME
HTTP::AcceptLanguage - Accept-Language header parser and find available language
HOW DO I USE THIS MODULE WITH
WITH CGI.pm
use HTTP::AcceptLanguage;
my $lang = HTTP::AcceptLanguage->new($ENV{HTTP_ACCEPT_LANGUAGE})->match(qw/ en fr es ja zh-tw /);WITH raw PSGI
use HTTP::AcceptLanguage;
my $lang = HTTP::AcceptLanguage->new($env->{HTTP_ACCEPT_LANGUAGE})->match(qw/ en fr es ja zh-tw /);WITH Plack::Request
use HTTP::AcceptLanguage;
my $lang = HTTP::AcceptLanguage->new($req->header('Accept-Language'))->match(qw/ en fr es ja zh-tw /);SYNOPSIS
Good example of the input and output.
# If language quality is the same then order by match method's input list
my $accept_language = HTTP::AcceptLanguage->new('en;q=0.5, ja;q=0.1');
$accept_language->match(qw/ th da ja /); # -> ja
$accept_language->match(qw/ en ja /); # -> en
my $accept_language = HTTP::AcceptLanguage->new('en, da');
$accept_language->match(qw/ da en /); # -> da
$accept_language->match(qw/ en da /); # -> enYou can obtain the order of preference of the available languages list of client
my $accept_language = HTTP::AcceptLanguage->new('en, ja;q=0.3, da;q=1, *;q=0.29, ch-tw');
$accept_language->languages; # -> en, da, ch-tw, ja, *DESCRIPTION
HTTP::AcceptLanguage is HTTP Accept-Language header parser And you can find available language by Accept-Language header.
METHODS
new($ENV{HTTP_ACCEPT_LANGUAGE})
It to specify a string of Accept-Language header.
match(@available_language)
By your available language list, returns the most optimal language.
If language quality is the same, the order of the input list takes precedence.
languages
Returns are arranged in order of quality language list parsed.
AUTHOR
Kazuhiro Osawa <yappo {at} shibuya {dot} pl>
COPYRIGHT
Copyright 2013- Kazuhiro Osawa
LICENSE
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
SEE ALSO
RFC2616, I18N::AcceptLanguage