Branch Coverage

blib/lib/DBI/Shell/Completion.pm
Criterion Covered Total %
branch 2 88 2.2


line true false branch
48 4 0 if exists $sh->{'home_dir'} and defined $sh->{'home_dir'}
55 4 0 unless $sh->{'term'}
66 0 0 if ($term->ReadLine eq 'Term::ReadLine::Gnu')
79 0 0 if (-e $pi->{'history'}) { }
81 0 0 unless $term->ReadHistory($pi->{'history'})
84 0 0 unless open HISTORY, "> $pi->{'history'}"
127 0 0 unless $list
128 0 0 unless exists $loa->{$list}
132 0 0 if (@_)
160 0 0 unless (defined $loa->{'sql_keywords'})
165 0 0 unless defined $key_words
167 0 0 unless @key_words
169 0 0 unless defined $loa->{'sql_keywords'}
172 0 0 if ($@)
177 0 0 unless (defined $loa->{'columns'})
180 0 0 unless $sth
183 0 0 if defined $row->[0]
184 0 0 if defined $row->[1]
185 0 0 if defined $row->[2]
186 0 0 if defined $row->[3]
200 0 0 if ($start == 0) { }
0 0 elsif ($line =~ / \bfrom(?:\s*)?(?:['"])?$ | \bfrom(?:\s*)(?:['"])?(?:[\w.]+) | \binsert\s+into(?:\s+)?$ | \binsert\s+into\s+(?:['"])?(?:\w+|[\w+.]|\w+\.\w+)$ | \bupdate(?:\s*)?(?:['"])?(?:\w+)?$ | ^${cmd_p}desc(?:\s*)?(?:['"])?(?:\w+)? /xi) { }
0 0 elsif ($line =~ /select\s+?$|select\s+\w+?$/i) { }
0 0 elsif ($line =~ / ^insert\s+ into\s+ ((?:\w+|\w+\.\w+))\s+?\( # ) /xi) { }
223 0 0 unless $loa->{'tables'}
239 0 0 unless (exists $loa->{'ntables'}{$tbl_nm})
242 0 0 unless $sth
248 0 0 if ($@)
258 0 0 unless ($sth->err)
295 0 0 unless ($state)
304 0 0 if $columns[$list_index - 1] =~ /^$text/i
319 0 0 unless ($state)
321 0 0 if (exists $loa->{'ntables'}{$tbl_nm}) { }
333 0 0 if $columns[$list_index - 1] =~ /^$text/i
346 0 0 unless ($state)
355 0 0 if $name[$list_index - 1] =~ /^$text/i
368 0 0 unless ($state)
377 0 0 if $name[$list_index - 1] =~ /^$text/i
394 0 0 unless ($state)
403 0 0 if $tables[$list_index - 1] =~ /^$text/i
414 0 0 if ($term and $term->ReadLine eq 'Term::ReadLine::Gnu')
415 0 0 if ($term and $term->history_total_bytes)
417 0 0 if ($history)
418 0 0 unless ($term->WriteHistory($history))