NAME
HTTP::AcceptCharset - Parse the HTTP header 'Accept-Charset'
VERSION
version 0.04
SYNOPSIS
use
HTTP::AcceptCharset;
my
$header
=
'utf-8, iso-8859-1;q=0.5'
;
my
$charset_header
= HTTP::AcceptCharset->new(
$header
);
# returns utf-8
my
$use_charset
=
$charset_header
->match(
qw/iso-8859-1 utf-8/
);
ATTRIBUTES
string
The header string as passed to new
.
values
The given charset in the prioritized order.
Header | Values
--------------------------+----------------------------
utf-8, iso-8859-1;
q=0.5 | utf-8, iso-8859-1
iso-8859-1;q=
0.5, utf-8 | utf-8, iso-8859-1
utf-8 | utf-8
utf-8, * | utf-8, *
utf-8;
q=0.2, utf-16;q=
0.5 | utf-16, utf-8
METHODS
new
my
$header
=
'utf-8, iso-8859-1;q=0.5'
;
my
$charset_header
= HTTP::AcceptCharset->new(
$header
);
match
# header: 'utf-8, iso-8859-1;q=0.5';
my
$charset
=
$charset_header
->match(
'utf-8'
);
# utf-8
my
$charset
=
$charset_header
->match(
'iso-8859-1'
);
# iso-8859-1
my
$charset
=
$charset_header
->match(
'iso-8859-1'
,
'utf-8'
);
# utf-8
my
$charset
=
$charset_header
->match();
# empty string
my
$charset
=
$charset_header
->match(
undef
);
# empty string
my
$charset
=
$charset_header
->match(
'utf-16'
);
# empty string
AUTHOR
Renee Baecker <reneeb@cpan.org>
COPYRIGHT AND LICENSE
This software is Copyright (c) 2018 by Renee Baecker.
This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)