t/lib/MyFilter.pm

   1 package MyFilter;
   2
   3 BEGIN {
   4     chdir('t') if -d 't';
   5     @INC = '../lib';
   6 }
   7
   8 use Filter::Simple sub {
   9     while (my ($from, $to) = splice @_, 0, 2) {
  10         s/$from/$to/g;
  11     }
  12 };
  13
  14 1;