Branch Coverage

lib/Devel/Trepan/Options.pm
Criterion Covered Total %
branch 1 52 1.9


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