package NoFilter;

use Filter::Simple;

FILTER_ONLY code => sub {};

1;

##</code><code>##

#!/usr/bin/perl

use NoFilter;

my $buf = <<HERE;
/
HERE

my $buf2 = <<HERE;
HERE

##</code><code>##

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