| line |
true |
false |
branch |
|
18
|
0 |
21 |
if $DBD::SQLite2::drh |
|
46
|
24 |
1 |
if ($dbname =~ /=/) |
|
49
|
24 |
0 |
if ($k eq 'dbname') { } |
|
57
|
0 |
25 |
unless DBD::SQLite2::db::_login($dbh, $real_dbname, $user, $auth) |
|
72
|
0 |
149 |
unless DBD::SQLite2::st::_prepare($sth, $statement, @attribs) |
|
87
|
0 |
3 |
if (defined $CatVal and $CatVal eq '%' and defined $SchVal and $SchVal eq '' and defined $TblVal and $TblVal eq '') { } |
|
|
0 |
3 |
elsif (defined $SchVal and $SchVal eq '%' and defined $CatVal and $CatVal eq '' and defined $TblVal and $TblVal eq '') { } |
|
|
0 |
3 |
elsif (defined $TypVal and $TypVal eq '%' and defined $CatVal and $CatVal eq '' and defined $SchVal and $SchVal eq '' and defined $TblVal and $TblVal eq '') { } |
|
153
|
3 |
0 |
if (defined $TblVal) |
|
156
|
3 |
0 |
if (defined $TypVal) |
|
162
|
0 |
0 |
unless ($table_type =~ /^'.*'$/) |
|
167
|
0 |
3 |
if $table_type_list |
|
170
|
3 |
0 |
if @Where |
|
173
|
0 |
3 |
unless my $sth = $dbh->prepare($Sql) |
|
174
|
0 |
3 |
unless $sth->execute |
|
189
|
2 |
8 |
unless my $sql = $row->{'sqlite_sql'} |
|
190
|
3 |
5 |
unless $sql =~ /(.*?)\s*PRIMARY\s+KEY\s*(?:\(\s*(.*?)\s*\))?/is |
|
192
|
2 |
3 |
unless (@pk) |
|
211
|
0 |
3 |
unless my $sponge = 'DBI'->connect('DBI:Sponge:', '', '') |
|
215
|
0 |
3 |
unless my $sth = $sponge->prepare("column_info $table", {'rows', [map({[@{$_;}{@names}];} @pk_info)], 'NUM_OF_FIELDS', scalar @names, 'NAME', \@names}) |