Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

NAME

HTTP::AcceptCharset - Parse the HTTP header 'Accept-Charset'

VERSION

version 0.04

SYNOPSIS

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)