t/lib/FilterOnlyTest.pm

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