Branch Coverage

lib/Devel/Trepan/Core.pm
Criterion Covered Total %
branch 14 52 26.9


line true false branch
35 0 2 eval 'use Devel::Trepan::BWProcessors; 1' ? :
43 0 0 if ($errmsg) { }
44 0 0 unless $nowarn
76 0 0 if $DB::package eq 'Devel::Trepan::Terminated'
77 0 0 if ($self->{'need_e_remap'} and $DB::filename eq '-e')
124 0 3 if (not defined $opts and $ENV{'TREPANPL_OPTS'})
134 0 0 if (defined $exec_strs_ary and scalar @{$exec_strs_ary;})
139 0 3 if $opts->{'dollar_0'}
141 0 3 if $opts->{'fall_off_end'} or $opts->{'traceprint'}
143 0 3 if $opts->{'post_mortem'}
147 0 3 if ($opts->{'bw'} and 0) { }
149 0 0 unless ref $bw_opts eq 'HASH'
150 0 0 if (defined $batch_filename)
160 3 0 unless defined $batch_filename
168 0 3 if (defined $batch_filename) { }
170 0 0 if (defined $result) { }
175 0 0 $opts->{'testing'} ? :
188 1 0 if (defined $dbgr and exists $dbgr->{'proc'})
191 0 1 if exists $opts->{'readline'}
193 0 3 if ($opts->{'server'})
195 0 0 if ($server_opts->[0] eq 'tcp') { }
0 0 elsif ($server_opts->[0] eq 'fifo') { }
0 0 elsif ($server_opts->[0] eq 'tty') { }
223 0 3 unless defined $opts
228 0 3 if (not $opts->{'nx'} and exists $opts->{'initfile'})
232 0 3 if $opts->{'traceprint'}