File Coverage

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

Criterion	Covered	Total	%
statement	16	16	100.0
branch	4	6	66.6
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	26	28	92.8

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

use strict;
use warnings;

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

# We'll just assume that any script or variant names are being given in the
# right form. To do this all properly would basically require having all the
# ICU data available, which we're not going to attempt currently.
sub canonicalize_choice {
    return unless defined $_[1];
    my @parts = split /[-_]/, $_[1];

    my $lang = lc shift @parts;

    if (@parts) {
        $parts[-1] = uc $parts[-1]
            if length $parts[-1] == 2;
    }

    return join '-', $lang, @parts;
}

1;

__END__