Catalyst::Controller::Resources で Chained カオス

perl Catalyst

ネタです。というか、手元で grep ると出てくるコードなんだけどもw

# 一応補足しておくと、CatalystではCatalyst::Controller::Resorucesを使う事で、Chainedカオスを避ける事はできます。

Resources の chain に絡むことによってますますカオスな感じにはできますw

sub protect : Resource : Args(0) : Chained('member') : Method('POST') : PathPart('protect') {

なんでこう書いちゃったのかは不明。同じ事は次のように書いてできる。

__PACKAGE__->config(
    member => {
        protect => 'POST'
    }
);

sub protect {
    my ($self, $c, $id) = @_;
}