FilterTest.pm revision 7c478bd95313f5f23a4c958a745db2134aa03244
package FilterTest;
use Filter::Simple;
FILTER {
my $class = shift;
while (my($pat, $str) = splice @_, 0, 2) {
s/$pat/$str/g;
}
};
1;