The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

IO::Plumbing::Plug - stop data flowing

SYNOPSIS

 use IO::Plumbing qw(plumb bucket plug);

 # plug that input!  that's actually the default.
 my $output = plumb("find / -print0", input => plug)
                ->output->raw_fh;

 {
    local($/) = \0;
    while (<$output>) {
       print "Read a filename: '$_'\n";
    }
 }
 $output->wait;

DESCRIPTION

Degenerate IO::Plumbing object that returns end of file or device full depending on whether it is used as a source or target of data.

AUTHOR AND LICENCE

Copyright 2007, Sam Vilain. All Rights Reserved. This program is free software; you can use it and/or modify it under the same terms as Perl itself.