t/lib/FilterTest.pm

   1 package FilterTest;
   2
   3 use Filter::Simple;
   4
   5 FILTER {
   6         my $class = shift;
   7         while (my($pat, $str) = splice @_, 0, 2) {
   8                 s/$pat/$str/g;
   9         }
  10 };
  11
  12 1;