Select Code to Download

package NoFilter;

use Filter::Simple;
...
FILTER_ONLY code => sub {};

1;

#!/usr/bin/perl

use NoFilter;
...

my $buf2 = <<HERE;
HERE

sub gen_std_filter_for {
    my ($type, $transform) = @_;
    return sub {
        [$_];   # XXX this is the "voodoo" line
        my $instr;