2006-11-08 CPAN Test::Base run_isしてみた。 use Test::Base; plan tests => 1 * blocks; run_is input => 'expected'; sub hoge_filter { s/my/your/g; } __END__ === Test one (the name of the test) --- input hoge_filter my hoge --- expected your hoge この置換、「お前のものは俺のもの」みたいな置換になってた。orz