Branch Coverage

lib/Devel/Trepan/CmdProcessor.pm
Criterion Covered Total %
branch 4 112 3.5


line true false branch
47 2 11 if (defined $interfaces) { }
90 0 13 if $self->{'settings'}{'traceprint'}
92 13 0 if ($intf->has_completion)
126 0 0 defined $Devel::Trepan::PROGRAM ? :
141 0 0 if ($nargs < $min_args)
149 0 0 if (defined $max_args and $nargs > $max_args)
157 0 0 if ($cmd->NEED_STACK and $self->{'terminated'})
162 0 0 if ($cmd->NEED_STACK and not defined $self->{'frame'})
177 0 0 if not defined $intf or $intf->is_input_eof and $intf_size == 1
182 0 0 if (scalar @cmd_queue == 0) { }
185 0 0 if ($intf->is_input_eof)
186 0 0 if ($intf_size > 1) { }
203 0 0 if ('' eq $self->{'current_command'})
204 0 0 unless $self->{'last_command'} and $intf->is_interactive
208 0 0 if substr($self->{'current_command'}, 0, 1) eq '#'
217 0 0 if ($Devel::Trepan::CmdProcessor::EVAL_ERROR) { }
222 0 0 if $self->{'last_command'}
229 0 0 if 'line' ne $event
230 0 0 if $self->{'terminated'}
231 0 0 if eval { do { no warnings; $DB::tid ne $self->{'last_tid'} } }
234 0 0 if $self->{'stack_size'} > $self->{'next_level'}
242 0 0 if ($event eq 'terminated') { }
0 0 elsif (not defined $event) { }
250 0 0 if ($event eq 'after_eval' or $event eq 'after_nest') { }
252 0 0 if ($event eq 'after_nest')
263 0 0 if ($event eq 'watch')
267 0 0 defined $arg->old_value ? :
271 0 0 defined $arg->current_val ? :
279 0 0 unless ($next_skip)
284 0 0 if (index($self->{'event'}, 'brkpt') < 0 and not $self->{'terminated'})
287 0 0 if ($event eq 'line')
292 0 0 if ($self->is_stepping_skip)
300 0 0 if ($self->{'settings'}{'traceprint'})
302 0 0 unless 0 == $self->{'skip_count'}
309 0 0 unless $self->{'settings'}{'traceprint'} or $self->{'terminated'}
316 0 0 unless ($next_skip)
337 0 0 if ($self->{'terminated'}) { }
355 0 0 unless ($eval_command)
357 0 0 if (scalar @commands > 1)
368 0 0 if scalar @args == 0
370 0 0 unless $self->{'macros'}{$macro_cmd_name}
378 0 0 if (ref $macro_expanded eq 'ARRAY') { }
382 0 0 if $debugging
383 0 0 if (scalar @new_commands > 0) { }
392 0 0 if $debugging
409 0 0 if (exists $aliases{$cmd_name})
416 0 0 if not $commands{$run_cmd_name} and $self->{'settings'}{'abbrev'}
419 0 0 if ($cmd)
420 0 0 if ($self->ok_for_running($cmd, $run_cmd_name, scalar(@args) - 1))
433 0 0 if ($self->{'settings'}{'autoeval'} or $eval_command)
435 0 0 unless $return_type
443 0 0 if (0 == $self->{'frame_index'}) { }
451 0 0 if ('$' eq $opts->{'return_type'}) { }
0 0 elsif ('@' eq $opts->{'return_type'}) { }
0 0 elsif ('%' eq $opts->{'return_type'}) { }
473 0 0 if $Devel::Trepan::CmdProcessor::EVAL_ERROR