bin/eg-readline-02.pl

   1 # currently works with perl-5.8.0@29163
   2
   3 use strict;
   4 use AnyEvent;
   5
   6 BEGIN { $ENV{PERL_RL} = "gnu" }
   7 use Term::ReadLine;
   8
   9 my $rl = new Term::ReadLine "cfshell";
  10 my $w = AnyEvent->io (fh => $rl->IN,
  11                       poll => 'r',
  12                       cb => sub { $rl->callback_read_char },
  13                      );
  14 $rl->callback_handler_install ("$ARGV[0]> ",
  15                                sub {
  16                                  $rl->add_history ($_[0]);
  17                                });
  18 my $cv = AnyEvent->condvar;
  19 $cv->wait;
  20
  21 __END__