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

package Filter::Simple::FilterOnlyTest;

use Filter::Simple;

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