Catalyst::Plugin::DoCoMoUID作ってみた。

要はApache::DoCoMoUIDと同じようなことをCatalystのプラグインとしてやるだけですね。

sub default : Private {
    my ( $self, $c ) = @_;

    my $uid = $c->req->header('X-DoCoMo-UID');
    
}

こんな感じ。ま、それだけのこと。

Catalyst::Plugin::DoCoMoUID-v0.01