lib/Term/ReadLine.pm

3 Term::ReadLine - Perl interface to various C<readline> packages.
8   use Term::ReadLine;
9   my $term = new Term::ReadLine 'Simple Perl calc';
22 this description is written, the only such package is Term-ReadLine,
30   $term = new Term::ReadLine 'name';
36 where $term is a return value of Term::ReadLine-E<gt>new().
40 =item C<ReadLine>
43 values are C<Term::ReadLine::Gnu>, C<Term::ReadLine::Perl>,
44 C<Term::ReadLine::Stub>.
102 Actually C<Term::ReadLine> can use some other package, that will
133 One can check whether the currently loaded ReadLine package supports
142 The environment variable C<PERL_RL> governs which ReadLine clone is
154   export "PERL_RL=Perl o=0"	# Use Perl ReadLine without ornaments
155   export "PERL_RL= o=0"		# Use best available ReadLine without ornaments
158 particular used C<Term::ReadLine::*> package).
162 It seems that using Term::ReadLine from Emacs minibuffer doesn't work
170       or eval 'sub Term::ReadLine::findConsole { ("&STDIN", "&STDERR") }';
174 or you can try using the 4-argument form of Term::ReadLine->new().
180 package Term::ReadLine::Stub;
181 our @ISA = qw'Term::ReadLine::Tk Term::ReadLine::TermCap';
185 *rl_term_set = \@Term::ReadLine::TermCap::rl_term_set;
189 sub ReadLine {'Term::ReadLine::Stub'}
196      if not $Term::ReadLine::registered and $Term::ReadLine::toloop
268     local $Term::ReadLine::termcap_nowarn = 1;
291 package Term::ReadLine;		# So late to allow the above code be defined?
298     eval "use Term::ReadLine::Gnu;";
300     eval "use Term::ReadLine::Perl;";
302     eval "use Term::ReadLine::$which;";
307   eval "use Term::ReadLine::Gnu; 1" or eval "use Term::ReadLine::Perl; 1";
315 if (defined &Term::ReadLine::Gnu::readline) {
316   @ISA = qw(Term::ReadLine::Gnu Term::ReadLine::Stub);
317 } elsif (defined &Term::ReadLine::Perl::readline) {
318   @ISA = qw(Term::ReadLine::Perl Term::ReadLine::Stub);
319 } elsif (defined $which && defined &{"Term::ReadLine::$which\::readline"}) {
320   @ISA = "Term::ReadLine::$which";
322   @ISA = qw(Term::ReadLine::Stub);
325 package Term::ReadLine::TermCap;
350     warn("Cannot find termcap: $@\n") unless $Term::ReadLine::termcap_nowarn;
359 package Term::ReadLine::Tk;
376   $Term::ReadLine::registered++
381   $Term::ReadLine::toloop = $_[1] if @_ > 1;
382   $Term::ReadLine::toloop;
387   $self->Tk_loop if $Term::ReadLine::toloop && defined &Tk::DoOneEvent;
393   $self->Tk_loop if $Term::ReadLine::toloop && defined &Tk::DoOneEvent;