File Coverage

lib/Term/ReadLine/Perl5/TermCap.pm

Criterion	Covered	Total	%
statement	0	18	0.0
branch	0	12	0.0
condition	0	4	0.0
subroutine	0	2	0.0
pod	0	2	0.0
total	0	38	0.0

=encoding utf8

=head1 Term::ReadLine::Perl5::TermCap

This is copied from L to remove the cyclic dependency
I -> I -> I
With this, I have modifed I to no longer depend
on I.

=cut

package Term::ReadLine::Perl5::TermCap;

# Prompt-start, prompt-end, command-line-start, command-line-end
#     -- zero-width beautifies to emit around prompt and the command line.
our @rl_term_set = ("","","","");
# string encoded:
our $rl_term_set = ',,,';

our $terminal;
sub LoadTermCap {
  return if defined $terminal;

  require Term::Cap;
  $terminal = Tgetent Term::Cap ({OSPEED => 9600}); # Avoid warning.
}

sub ornaments {
  shift;
  return $rl_term_set unless @_;
  $rl_term_set = shift;
  $rl_term_set ||= ',,,';
  $rl_term_set = 'us,ue,md,me' if $rl_term_set eq '1';
  my @ts = split /,/, $rl_term_set, 4;
  eval { LoadTermCap };
  unless (defined $terminal) {
    warn("Cannot find termcap: $@\n") unless $Term::ReadLine::termcap_nowarn;
    $rl_term_set = ',,,';
    return;
  }
  @rl_term_set = map {$_ ? $terminal->Tputs($_,1) || '' : ''} @ts;
  return $rl_term_set;
}

1;