Move ExtUtils::Install from ext/ to dist/
[perl.git] / ext / Filter-Simple / t / lib / Filter / Simple / FilterOnlyTest.pm
1 package Filter::Simple::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         };