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

package Filter::Simple::ExeNoComments;

use Filter::Simple;

FILTER_ONLY
  executable_no_comments => sub {
            $_ =~ /shromplex/ and die "We wants no shromplexes!";
            s/ABC/TEST/g;
	};

1;