Lines Matching refs:Term
205 package Term::ReadLine::Stub;
210 *rl_term_set = \@Term::ReadLine::TermCap::rl_term_set;
221 if not $Term::ReadLine::registered and $Term::ReadLine::toloop;
297 local $Term::ReadLine::termcap_nowarn = 1;
327 package Term::ReadLine; # So late to allow the above code be defined?
354 if (defined &Term::ReadLine::Gnu::readline) {
356 } elsif (defined &Term::ReadLine::EditLine::readline) {
358 } elsif (defined &Term::ReadLine::Perl::readline) {
366 package Term::ReadLine::TermCap;
378 require Term::Cap;
379 $terminal = Tgetent Term::Cap ({OSPEED => 9600}); # Avoid warning.
391 warn("Cannot find termcap: $@\n") unless $Term::ReadLine::termcap_nowarn;
400 package Term::ReadLine::Tk;
412 if (ref $Term::ReadLine::toloop)
414 $Term::ReadLine::toloop->[0]->($Term::ReadLine::toloop->[2]);
425 unless ($Term::ReadLine::registered++)
427 if (ref $Term::ReadLine::toloop)
429 …$Term::ReadLine::toloop->[2] = $Term::ReadLine::toloop->[1]->($self->IN) if $Term::ReadLine::toloo…
439 $Term::ReadLine::toloop = $_[1] if @_ > 1;
440 $Term::ReadLine::toloop;
458 $Term::ReadLine::toloop = [ @_ ] if @_ > 0; # 0 because we shifted off $self.
459 $Term::ReadLine::toloop;
468 if ($Term::ReadLine::toloop) {
469 $self->register_Tk if not $Term::ReadLine::registered;