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

package FilterTest;

use Filter::Simple;

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

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