Template Toolkit 使用時 に FILTER を追加する方法

Perl Catalyst 
package MyApp::View::TT;

use strict;
use base 'Catalyst::View::TT';

sub new {
    my $class = shift;
    my ( $c, $arguments ) = @_;

    $arguments->{FILTERS} = {
        do_something => ?&MyApp::View::TT::do_something,
    };
    $class->config( $arguments );

    return $class->NEXT::new( @_ );
}

sub do_something {
    my $text = shift;
    # do someting
    return $text;
}

YAML で書いて、eval でコードリファレンスを渡すとかでも良かったんですが、面倒だったので。
プロジェクトをまたがって使う FILTER が多いので、Plugin 化した方が良いかも。