For example, with AnyEvent:
- $term->event_loop(sub {
- my $data = shift;
- $data->[1] = AE::cv();
- $data->[1]->recv();
- }, sub {
- my $fh = shift;
- my $data = [];
- $data->[0] = AE::io($fh, 0, sub { $data->[1]->send() });
- $data;
- });
+ $term->event_loop(sub {
+ my $data = shift;
+ $data->[1] = AE::cv();
+ $data->[1]->recv();
+ }, sub {
+ my $fh = shift;
+ my $data = [];
+ $data->[0] = AE::io($fh, 0, sub { $data->[1]->send() });
+ $data;
+ });
The second call-back is optional if the call back is registered prior to
the call to $term-E<gt>readline.
If the variable is not set, or if the head of space-separated list is
empty, the best available package is loaded.
- export "PERL_RL=Perl o=0" # Use Perl ReadLine without ornaments
- export "PERL_RL= o=0" # Use best available ReadLine without ornaments
+ export "PERL_RL=Perl o=0" # Use Perl ReadLine sans ornaments
+ export "PERL_RL= o=0" # Use best available ReadLine sans ornaments
(Note that processing of C<PERL_RL> for ornaments is in the discretion of the
particular used C<Term::ReadLine::*> package).
-# This file is the data file for t/porting/podcheck.t.
+# This file is the data file for porting/podcheck.t.
# There are three types of lines.
# Comment lines are white-space only or begin with a '#', like this one. Any
# changes you make to the comment lines will be lost when the file is
dist/safe/safe.pm empty section in previous paragraph 1
dist/selfloader/lib/selfloader.pm Verbatim line length including indents exceeds 79 by 13
dist/storable/storable.pm Verbatim line length including indents exceeds 79 by 4
-dist/term-readline/lib/term/readline.pm Verbatim line length including indents exceeds 79 by 1
dist/thread-queue/lib/thread/queue.pm Verbatim line length including indents exceeds 79 by 4
dist/threads/lib/threads.pm Verbatim line length including indents exceeds 79 by 3
dist/tie-file/lib/tie/file.pm Verbatim line length including indents exceeds 79 by 3