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