1N/Apackage FilterOnlyTest;
1N/A
1N/Ause Filter::Simple;
1N/A
1N/AFILTER_ONLY
1N/A string => sub {
1N/A my $class = shift;
1N/A while (my($pat, $str) = splice @_, 0, 2) {
1N/A s/$pat/$str/g;
1N/A }
1N/A };