Catalyst::Plugin::MobileUserIDがそのままでは動かなかった

HTTP::MobileUserID & Catalyst::Plugin::MobileUserID Released - Unknown::Programming -

Catalyst::Pluginの方、使ってみたら動かなかった。

追ってみると、中でHTTP::MobileAgentのget_headerメソッド使ってるんだけど、前提になっているCatalyst：：Plugin::MobileAgentの方でHTTP::MobileAgentのオブジェクトが作られる際に、リクエストオブジェクトから作るのではなくUseAgent文字列だけから生成していたので、get_headerメソッドがうまく動いていなかった。

なので、かなりむりくり感あふれるけどCatalyst::Plugin::MobileAgentのprepare_headersをちょこっと変え。

    sub prepare_headers {
        my $c = shift;
        $c->NEXT::prepare_headers(@_);
        my $ma = $c->req->mobile_agent(HTTP::MobileAgent->new($c->req->user_agent));
        $ma->{_request} = bless { r => $c->req }, "HTTP::MobileAgent::Request::HTTPHeaders";
    }

これで動いたよ！