| line |
true |
false |
branch |
|
22
|
0 |
12 |
eval 'use Devel::Trepan::IO::TTYServer; 1' ? :
|
|
44
|
0 |
0 |
unless (defined $input)
|
|
46
|
0 |
0 |
if ('tty' eq $server_type) { }
|
|
|
0 |
0 |
elsif ('fifo' eq $server_type) { }
|
|
|
0 |
0 |
elsif ('tcp' eq $server_type) { }
|
|
74
|
0 |
0 |
if ($self->{'output'} == $self->{'input'}) { }
|
|
86
|
0 |
0 |
if $self->{'input'}->is_closed
|
|
112
|
0 |
0 |
if (defined $reply) { }
|
|
117
|
0 |
0 |
if (grep /^$reply$/, ('y', 'yes', 'oui', 'si', 'yep', 'ja')) { }
|
|
|
0 |
0 |
elsif (grep /^$reply$/, ('n', 'no', 'non', 'nope', 'nein')) { }
|
|
189
|
0 |
0 |
if ($prompt)
|
|
196
|
0 |
0 |
if ($Devel::Trepan::Interface::Server::EVAL_ERROR) { }
|
|
197
|
0 |
0 |
if $self->{'logger'}
|
|
201
|
0 |
0 |
if ($coded_line) { }
|
|
213
|
0 |
0 |
unless $self->{'input'}{'readline'}
|
|
214
|
0 |
0 |
unless defined $which
|
|
234
|
0 |
0 |
$default ? :
|