1N/Apackage FilterTest;
1N/A
1N/Ause Filter::Simple;
1N/A
1N/AFILTER {
1N/A my $class = shift;
1N/A while (my($pat, $str) = splice @_, 0, 2) {
1N/A s/$pat/$str/g;
1N/A }
1N/A};
1N/A
1N/A1;