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.