HTTP::Negotiateの存在を知らずに自分でネゴシエーション処理しようと思ったら，Content-Typeって意外と扱いにくい感じがしたので勢いで書いた． 今となっては… =head1 NAME HTTP::Headers::ContentType =head1 SYNOPSIS use HTTP::Headers::ContentType; my…