fab3e2730ae3b5e647ea4e8d5182cf1e913f0595
[perl.git] / ext / Filter-Simple / t / lib / Filter / Simple / FilterTest.pm
1 package Filter::Simple::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;