Filter::Util::Call

↑もそうなんだけど、出力にフィルター掛けてくれる人。

こんな感じで設定して、

package Hoge ;

use Filter::Util::Call ;

sub filter
{
}

sub import
{

}

1 ;

こういう感じで使うと出力に対して、フィルターしてくれる。

use Hoge ;
print "Hello Joe\n" ;
print "Where is Joe\n" ;

hoge

http://search.cpan.org/~pmqs/Filter-1.32/Call/Call.pm