Data::Transform::Identity - a no-op filter that passes data through unchanged
#!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;
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.
Data::Transform
See Data::Transform
To install Data::Transform, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Data::Transform
CPAN shell
perl -MCPAN -e shell install Data::Transform
For more information on module installation, please visit the detailed CPAN module installation guide.