xref: /openbsd-src/gnu/usr.bin/perl/dist/Filter-Simple/t/lib/Filter/Simple/FilterTest.pm (revision b39c515898423c8d899e35282f4b395f7cad3298)

package Filter::Simple::FilterTest;

use Filter::Simple;

FILTER {
	my $class = shift;
	while (my($pat, $str) = splice @_, 0, 2) {
		s/$pat/$str/g;
	}
};

1;