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 でコードリファレンスを渡すとかでも良かったんですが、面倒だったので。 プロジェクトをまたがって使う FI