[p5sagit/p5-mst-13.2.git] / t / lib / Filter / Simple / FilterTest.pm

package Filter::Simple::FilterTest;

use Filter::Simple;

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

1;
Commit	Line	Data
1b629f66	1	package Filter::Simple::FilterTest;
255c1263	2
	3	use Filter::Simple;
	4
	5	FILTER {
	6	my $class = shift;
	7	while (my($pat, $str) = splice @_, 0, 2) {
	8	s/$pat/$str/g;
	9	}
	10	};
	11
	12	1;