SYNOPSIS

#!perl
use Term::ReadKey;
use POE qw(Wheel::ReadWrite Filter::Stream);
POE::Session->create(
inline_states => {
_start => sub {
ReadMode "ultra-raw";
$_[HEAP]{io} = POE::Wheel::ReadWrite->new(
InputHandle => \*STDIN,
OutputHandle => \*STDOUT,
InputEvent => "got_some_data",
Filter => POE::Filter::Stream->new(),
);
},
got_some_data => sub {
$_[HEAP]{io}->put("<$_[ARG0]>");
delete $_[HEAP]{io} if $_[ARG0] eq "\cC";
},
_stop => sub {
ReadMode "restore";
print "\n";
},
}
);
POE::Kernel->run();
exit;

DESCRIPTION

POE::Filter::Stream passes data through without changing it. It follows POE::Filter's API and implements no new functionality.

In the ``SYNOPSIS'', POE::Filter::Stream is used to collect keystrokes without any interpretation and display output without any embellishments.

AUTHORS & COPYRIGHTS

Please see POE for more information about authors and contributors.