sub accepts_gzip { my $r = shift; my $ae = $r->header_in("Accept-Encoding"); require HTTP::Negotiate; require HTTP::Headers; my $hhh = HTTP::Headers->new("Accept-Encoding", $ae); my $variants = [ ['identity', 0.1, undef, 'identity', undef, undef, undef], ['gzip', 1, undef, 'gzip', undef, undef, undef], ]; my $choose = HTTP::Negotiate::choose($variants, $hhh); $choose->[0] eq "gzip"; }