/usr/web/sources/contrib/gabidiaz/root/sys/src/cmd/perl/t/lib/Filter/Simple/FilterOnlyTest.pm

Plan 9 from Bell Labs’s /usr/web/sources/contrib/gabidiaz/root/sys/src/cmd/perl/t/lib/Filter/Simple/FilterOnlyTest.pm


package FilterOnlyTest;

use Filter::Simple;

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

(Return to Plan 9 Home Page)