| line |
true |
false |
branch |
|
26
|
15 |
0 |
if ($Devel::Trepan::IO::Input::HAVE_TERM_READLINE eq 'Perl5')
|
|
35
|
17 |
0 |
if !$ENV{'PERL_RL'} || $ENV{'PERL_RL'} =~ /\bperl5\b/i and eval 'use Term::ReadLine::Perl5; 1'
|
|
38
|
0 |
0 |
if ($ENV{'PERL_RL'}) { }
|
|
43
|
0 |
0 |
if eval "use Term::ReadLine::$ilk; 1"
|
|
45
|
0 |
0 |
if eval 'use Term::ReadLine; 1'
|
|
57
|
13 |
14 |
if ($opts->{'readline'} and $Devel::Trepan::IO::Input::HAVE_TERM_READLINE) { }
|
|
61
|
13 |
0 |
if ($Devel::Trepan::IO::Input::HAVE_TERM_READLINE eq 'Perl5') { }
|
|
68
|
13 |
0 |
if ($rc) { }
|
|
85
|
0 |
1 |
if $self->{'term_readline'}
|
|
101
|
0 |
0 |
if ($Devel::Trepan::IO::Input::HAVE_TERM_READLINE eq 'Perl5') { }
|
|
|
0 |
0 |
elsif ($Devel::Trepan::IO::Input::HAVE_TERM_READLINE eq 'Gnu') { }
|
|
115
|
0 |
0 |
unless defined $prompt
|
|
117
|
0 |
0 |
if (defined $self->{'readline'}) { }
|
|
122
|
0 |
0 |
if $self->{'eof'}
|
|
132
|
0 |
0 |
if $self->{'readline'}->can('StifleHistory')
|
|
133
|
0 |
0 |
if ($self->{'readline'}->can('WriteHistory'))
|