line |
true |
false |
branch |
32
|
26 |
0 |
$ENV{'TERM'} && ($ENV{'TERM'} ne 'dumb' || exists $ENV{'EMACS'} && $ENV{'EMACS'} eq 't') ? :
|
73
|
0 |
0 |
unless ($opts->[2] =~ /^\d+$/)
|
82
|
0 |
0 |
if (scalar @$opts != 3)
|
86
|
0 |
0 |
unless -c $inp_pty
|
88
|
0 |
0 |
unless -c $out_pty
|
90
|
0 |
0 |
unless -r $inp_pty
|
92
|
0 |
0 |
unless -w $out_pty
|
101
|
0 |
0 |
if (not $server_type =~ /^tcp|^tty/)
|
111
|
0 |
0 |
if (scalar @$server_opts == 1) { }
|
|
0 |
0 |
elsif (scalar @$server_opts <= 3) { }
|
112
|
0 |
0 |
unless ($server_opts->[0])
|
118
|
0 |
0 |
if ($server_opts->[0] eq 'tcp') { }
|
124
|
0 |
0 |
if $mess
|
163
|
0 |
0 |
if $help
|
165
|
0 |
0 |
if $man
|
167
|
0 |
0 |
if $show_version
|
169
|
0 |
0 |
if defined $opts->{'initial_dir'}
|
171
|
0 |
0 |
unless defined $batch_filename
|
172
|
0 |
0 |
if ($batch_filename)
|
173
|
0 |
0 |
if (scalar @{$opts->{'cmdfiles'};} != 0)
|
180
|
0 |
0 |
if ($opts->{'server'} and $opts->{'client'}) { }
|
186
|
0 |
0 |
if ($opts->{'server'}) { }
|
|
0 |
0 |
elsif ($opts->{'client'}) { }
|
203
|
0 |
0 |
if 'File::Spec'->file_name_is_absolute($prog_script)
|
206
|
0 |
0 |
if index('./', $first_char) != -1
|
210
|
0 |
0 |
if -r $prog_script_try
|