NAME
Data::Transform::Identity - a no-op filter that passes data through unchanged
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
Data::Transform::Identity passes data through unchanged. It follows Data::Transform'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.
SEE ALSO
AUTHORS & COPYRIGHTS
See Data::Transform