Branch Coverage

lib/Devel/Trepan/CmdProcessor/Complete.pm
Criterion Covered Total %
branch 34 54 62.9


line true false branch
24 0 0 if defined $cw->[$_list_complete_i] and $cw->[$_list_complete_i] =~ /^\Q$text\E/
41 3 15 unless defined $_last_line
42 3 15 unless defined $_last_start
43 3 15 unless defined $_last_end
44 3 15 unless defined $_last_token
45 4 14 unless $_last_start < length $line and 0 == index(substr($line, $_last_start), $_last_token)
52 0 18 if ($_last_line eq $stripped_line and $stripped_line)
61 0 0 unless ($token or $_last_token)
82 4 14 if ($next_blank_pos >= length $line) { }
85 4 0 if (defined $_last_token)
89 0 0 if (scalar @_last_return == 0 and $self->{'settings'}{'autoeval'})
99 0 14 if (scalar @match_pairs > 1)
114 2 0 if (scalar @_last_return == 0 and $self->{'settings'}{'autoeval'})
128 0 3 unless $token or $last_token
129 0 20 unless defined $cmd
130 0 20 if ref $cmd eq 'ARRAY'
131 1 19 if ref $cmd eq 'CODE'
133 15 4 if ($cmd->can('complete_token_with_next')) { }
4 0 elsif ($cmd->can('complete')) { }
135 0 15 unless scalar @match_pairs
136 9 6 if ($next_blank_pos >= length $str) { }
139 6 0 if (scalar @match_pairs == 1) { }
140 0 6 if ($next_blank_pos == length($str) - 1 and ' ' ne substr($str, length($str) - 1)) { }
6 0 elsif ($match_pairs[0][0] eq $token) { }
159 0 4 unless scalar @matches
160 4 0 if (substr($str, $next_blank_pos) =~ /\s*$/) { }
161 2 2 if (1 == scalar @matches and $matches[0] eq $token) { }