index template(2)

Perl Catalyst

よく考えたら、素直にサブクラス化してるんだから上書きすれば良いだけですね……orz

sub process
{
    my $self = shift;
    my ( $c ) = @_;

    unless( $c->stash->{template} ) {
        my $basename = $c->request->match || $c->request->action;
        if( $basename =~ m!/$! ) {
            $basename .= 'index';
        }
        $c->stash->{template} = $basename . $self->config->{TEMPLATE_EXTENSION};
    }
    $self->NEXT::process(@_);
}

最初、$selfもNEXT::processに突っ込んでいて悩んだのは内緒。
この記事をたまたま目にしてようやく思い至りました。駄目なときは正道になかなか至れないものです……。