HTTP::Request::AsCGIでCGIのテスト

HTTP::Request::AsCGIとHTTP::Requestを使うとCGIのテスト時に環境変数等をよしなにセットアップしてくれる。
前に使ったことがあったはずなのに、モジュール名が全然思い出せなかったのでメモ。

以下、使い方

use strict;
use warnings;
use HTTP::Request::AsCGI;
use HTTP::Request::Common;
use CGI;
use Test::More;
{
    my $req = POST 'http://example.com/',
        Content_Type => 'form-data',
        Content      => [ file => ['t/test.gif'] ];
    my $c = HTTP::Request::AsCGI->new($req)->setup;
    my $q = CGI->new;
    my $filename = $q->param('file');
    is( $filename, 't/test.gif', 'filename ok' );
}

done_testing;