Help for this page

Select Code to Download


  1. or download this
        package Filter::Handle;
    use strict;
...
    }

    1;
  2. or download this
        my $f = Filter::Handle->new(\*STDOUT,
        sub { "Foo: @_\n" });
    print "Bar";
  3. or download this
        use Filter::Handle qw/subs/;
    Filter \*STDOUT, sub { "Foo: @_\n" };
    print "Bar";
    UnFilter \*STDOUT;