File Coverage

blib/lib/HTTP/Headers/ActionPack/AcceptCharset.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	6	8	75.0
condition	3	3	100.0
subroutine	7	7	100.0
pod	2	2	100.0
total	39	41	95.1

package HTTP::Headers::ActionPack::AcceptCharset;
BEGIN {
  $HTTP::Headers::ActionPack::AcceptCharset::AUTHORITY = 'cpan:STEVAN';
}
{
  $HTTP::Headers::ActionPack::AcceptCharset::VERSION = '0.09';
}
# ABSTRACT: A Priority List customized for Media Types

use strict;
use warnings;

use Encode qw[ find_encoding ];

use parent 'HTTP::Headers::ActionPack::PriorityList';

sub new_from_string {
    my $self = shift->SUPER::new_from_string(@_);
    # From RFC-2616 sec14.2
    # If no "*" is present in an Accept-Charset
    # field, then all character sets not explicitly
    # mentioned get a quality value of 0, except for
    # ISO-8859-1, which gets a quality value of 1
    # if not explicitly mentioned.
    unless ( defined $self->priority_of('*')
        || defined $self->priority_of('ISO-8859-1') ) {

        $self->add( 1 => 'ISO-8859-1' );
    }

    return $self;
}

sub canonicalize_choice {
    return unless defined $_[1];
    return '*' if $_[1] eq '*';
    my $charset = find_encoding($_[1])
        or return;
    return $charset->mime_name;
}

1;

__END__