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

package Filter::Simple::CodeNoComments;

use Filter::Simple;

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

1;