Help for this page

Select Code to Download


  1. or download this
    package NoFilter;

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

1;
  2. or download this
    #!/usr/bin/perl

use NoFilter;
...

my $buf2 = <<HERE;
HERE
  3. or download this
    sub gen_std_filter_for {
    my ($type, $transform) = @_;
    return sub {
        [$_];   # XXX this is the "voodoo" line
        my $instr;