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;