| line |
true |
false |
branch |
|
31
|
0 |
110 |
if $drh |
|
33
|
110 |
0 |
if (not $methods_are_installed and 1) |
|
100
|
296 |
17 |
if ($dbname =~ /=/) |
|
103
|
285 |
13 |
if ($key =~ /^(?:db(?:name)?|database)$/) { } |
|
|
6 |
7 |
elsif ($key eq 'uri') { } |
|
114
|
19 |
294 |
if (my $flags = $attr->{'sqlite_open_flags'}) |
|
115
|
13 |
6 |
unless ($flags & (&DBD::SQLite::OPEN_READONLY() | &DBD::SQLite::OPEN_READWRITE())) |
|
122
|
0 |
0 |
if ($^O =~ /MSWin32/ and $real ne ":memory:" and $real ne "" and not $real =~ /^file:/ and not -f $real) |
|
127
|
0 |
0 |
if (-d $dir) { } |
|
137
|
6 |
307 |
unless DBD::SQLite::db::_login($dbh, $real, $user, $auth, $attr) |
|
176
|
0 |
12 |
unless ($collation) |
|
177
|
0 |
0 |
if $dbh->{'PrintWarn'} |
|
192
|
128 |
264 |
unless defined $_[0] and defined $_[1] |
|
204
|
0 |
1380 |
unless defined $sql |
|
210
|
21 |
1359 |
unless DBD::SQLite::st::_prepare($sth, $sql, @_) |
|
220
|
2870 |
107 |
if (defined $statement and not defined $attr and not @bind_values) |
|
224
|
2847 |
23 |
if (index($statement, ";") == -1 or $allow_multiple_statements) |
|
233
|
13 |
123 |
unless my $sth = $dbh->prepare($statement, $attr) |
|
234
|
4 |
119 |
unless $sth->execute(splice(@copy, 0, $sth->{'NUM_OF_PARAMS'})) |
|
237
|
111 |
8 |
unless $allow_multiple_statements |
|
242
|
16 |
98 |
$rows == 0 ? : |
|
252
|
0 |
1 |
if $file and not -f $file |
|
253
|
1 |
0 |
$dbh->FETCH('Active') ? : |
|
258
|
1 |
7 |
unless defined $value |
|
259
|
2 |
0 |
if (defined $data_type and $data_type == &DBI::SQL_BIT() || $data_type == &DBI::SQL_BLOB() || $data_type == &DBI::SQL_BINARY() || $data_type == &DBI::SQL_VARBINARY() || $data_type == &DBI::SQL_LONGVARBINARY()) |
|
276
|
6 |
73 |
if ref $v eq "CODE" |
|
284
|
0 |
21 |
unless my $sth_databases = $dbh->prepare("PRAGMA database_list") |
|
285
|
0 |
21 |
unless $sth_databases->execute |
|
287
|
11 |
36 |
if $db_info->{'seq'} >= 2 |
|
300
|
1 |
15 |
if (defined $cat_val and $cat_val eq '%' and defined $sch_val and $sch_val eq '' and defined $tbl_val and $tbl_val eq '') { } |
|
|
1 |
14 |
elsif (defined $cat_val and $cat_val eq '' and defined $sch_val and $sch_val eq '%' and defined $tbl_val and $tbl_val eq '') { } |
|
|
1 |
13 |
elsif (defined $cat_val and $cat_val eq '' and defined $sch_val and $sch_val eq '' and defined $tbl_val and $tbl_val eq '' and defined $typ_val and $typ_val eq '%') { } |
|
383
|
13 |
0 |
unless ref $attr eq "HASH" |
|
384
|
0 |
13 |
defined $attr->{'Escape'} ? : |
|
385
|
3 |
10 |
if (defined $sch_val) |
|
388
|
11 |
2 |
if (defined $tbl_val) |
|
391
|
1 |
12 |
if (defined $typ_val) |
|
397
|
1 |
0 |
unless ($table_type =~ /^'.*'$/) |
|
402
|
1 |
0 |
if $table_type_list |
|
404
|
12 |
1 |
if @where |
|
407
|
0 |
16 |
unless my $sth = $dbh->prepare($sql) |
|
408
|
0 |
16 |
unless $sth->execute |
|
420
|
6 |
3 |
if defined $schema and $schema ne "%" and $schema ne $dbname |
|
424
|
8 |
4 |
$dbname eq 'temp' ? : |
|
|
31 |
12 |
$dbname eq 'main' ? : |
|
429
|
0 |
43 |
unless my $sth = $dbh->prepare("SELECT name, sql FROM $master_table WHERE type = ?") |
|
430
|
0 |
43 |
unless $sth->execute("table") |
|
433
|
22 |
30 |
if defined $table and $table ne "%" and $table ne $tbname |
|
436
|
0 |
33 |
unless my $t_sth = $dbh->prepare("PRAGMA $quoted_dbname.table_info($quoted_tbname)") |
|
437
|
0 |
33 |
unless $t_sth->execute |
|
440
|
38 |
14 |
if $col->{'pk'} |
|
447
|
4 |
29 |
if (@pk > 1 and $row->{'sql'} =~ /\bPRIMARY\s+KEY\s*\(\s*
(
(?:
(
[a-z_][a-z0-9_]*
| (["'`])(?:\3\3|(?!\3).)+?\3(?!\3)
| \[[^\]]+\]
)
\s*,\s*
)+
(
[a-z_][a-z0-9_]*
| (["'`])(?:\5\5|(?!\5).)+?\5(?!\5)
| \[[^\]]+\]
)
)
\s*\)/six) |
|
475
|
2 |
7 |
if (defined $quote) { } |
|
|
1 |
6 |
elsif (defined $brack) { } |
|
487
|
1 |
32 |
$row->{'sql'} =~ /\bCONSTRAINT\s+(\S+|"[^"]+")\s+PRIMARY\s+KEY\s*\(/i ? : |
|
501
|
0 |
33 |
unless my $sponge = "DBI"->connect("DBI:Sponge:", "", "") |
|
505
|
0 |
33 |
unless my $sth = $sponge->prepare("primary_key_info", {"rows", [map({[@{$_;}{@names}];} @pk_info)], "NUM_OF_FIELDS", scalar @names, "NAME", \@names}) |
|
583
|
0 |
10 |
unless my $databases = $dbh->selectall_arrayref("PRAGMA database_list", {"Slice", {}}) |
|
589
|
1 |
1 |
if defined $fk_schema and $fk_schema ne "%" and $fk_schema ne $dbname |
|
592
|
4 |
6 |
$dbname eq 'temp' ? : |
|
|
9 |
10 |
$dbname eq 'main' ? : |
|
597
|
0 |
19 |
unless my $tables = $dbh->selectall_arrayref("SELECT name, sql FROM $master_table WHERE type = ?", undef, "table") |
|
602
|
20 |
8 |
if defined $fk_table and $fk_table ne "%" and $fk_table ne $tbname |
|
605
|
0 |
14 |
unless my $sth = $dbh->prepare("PRAGMA $quoted_dbname.foreign_key_list($quoted_tbname)") |
|
606
|
0 |
14 |
unless $sth->execute |
|
608
|
3 |
5 |
if defined $pk_table and $pk_table ne "%" and $pk_table ne $row->{'table'} |
|
610
|
13 |
2 |
unless ($table_info{$row->{'table'}}) |
|
614
|
0 |
15 |
unless my $t_sth = $dbh->prepare("PRAGMA $quoted_db.table_info($quoted_tb)") |
|
615
|
0 |
15 |
unless $t_sth->execute |
|
620
|
13 |
2 |
if (keys %$cols) |
|
630
|
2 |
2 |
if defined $pk_schema and $pk_schema ne "%" and $pk_schema ne $table_info{$row->{'table'}}{'schema'} |
|
640
|
13 |
0 |
if defined $row->{'to'} |
|
657
|
10 |
3 |
$table_info{$row->{'table'}}{'columns'}{$row->{'to'}} ? : |
|
669
|
0 |
11 |
unless $rel->{'remote_columns'} |
|
675
|
11 |
0 |
unless ($deferrable_clause) |
|
677
|
9 |
2 |
if (@{$rel->{'local_columns'};} == 1) |
|
679
|
0 |
9 |
unless $rel->{'remote_columns'} |
|
688
|
3 |
8 |
if ($deferrable_clause) |
|
690
|
3 |
0 |
unless ($deferrable_clause =~ /not/i) |
|
693
|
0 |
3 |
$deferrable_clause =~ /deferred/i ? : |
|
701
|
0 |
10 |
unless my $sponge_dbh = "DBI"->connect("DBI:Sponge:", "", "") |
|
705
|
0 |
10 |
unless my $sponge_sth = $sponge_dbh->prepare("foreign_key_info", {"NAME", \@FOREIGN_KEY_INFO_ODBC, "rows", [map({[@{$_;}{@FOREIGN_KEY_INFO_ODBC}];} @fk_info)], "NUM_OF_FIELDS", scalar @FOREIGN_KEY_INFO_ODBC}) |
|
733
|
0 |
4 |
unless my $databases = $dbh->selectall_arrayref("PRAGMA database_list", {"Slice", {}}) |
|
738
|
0 |
0 |
if defined $schema and $schema ne "%" and $schema ne $dbname |
|
741
|
0 |
4 |
$dbname eq 'temp' ? : |
|
|
4 |
4 |
$dbname eq 'main' ? : |
|
746
|
0 |
8 |
unless my $tables = $dbh->selectall_arrayref("SELECT name FROM $master_table WHERE type = ?", undef, "table") |
|
749
|
4 |
4 |
if defined $table and $table ne "%" and uc $table ne uc $tbname |
|
752
|
0 |
4 |
unless my $sth = $dbh->prepare("PRAGMA $quoted_dbname.index_list($quoted_tbname)") |
|
753
|
0 |
4 |
unless $sth->execute |
|
756
|
4 |
12 |
if $unique_only and not $row->{'unique'} |
|
760
|
0 |
24 |
unless my $i_sth = $dbh->prepare("PRAGMA $quoted_db.index_info($quoted_idx)") |
|
761
|
0 |
24 |
unless $i_sth->execute |
|
774
|
12 |
4 |
$row->{'unique'} ? : |
|
785
|
0 |
4 |
unless my $sponge_dbh = "DBI"->connect("DBI:Sponge:", "", "") |
|
789
|
0 |
4 |
unless my $sponge_sth = $sponge_dbh->prepare("statistics_info", {"NAME", \@STATISTICS_INFO_ODBC, "rows", [map({[@{$_;}{@STATISTICS_INFO_ODBC}];} @statistics_info)], "NUM_OF_FIELDS", scalar @STATISTICS_INFO_ODBC}) |
|
886
|
1 |
6 |
if (defined $col_val and $col_val eq "%") |
|
921
|
0 |
7 |
if (defined $sch_val) |
|
924
|
7 |
0 |
if (defined $tbl_val) |
|
927
|
7 |
0 |
if @where |
|
929
|
0 |
7 |
unless my $sth_tables = $dbh->prepare($sql) |
|
930
|
0 |
7 |
unless $sth_tables->execute |
|
935
|
0 |
9 |
unless my $sth_columns = $dbh->prepare(qq[PRAGMA "$schema".table_info("$table")]) |
|
936
|
0 |
9 |
unless $sth_columns->execute |
|
939
|
14 |
6 |
if (defined $col_val) |
|
941
|
0 |
14 |
unless my $sth = $dbh->prepare("SELECT '$col_info->{'name'}' LIKE '${col_val}'") |
|
942
|
0 |
14 |
unless $sth->execute |
|
944
|
7 |
7 |
unless ($sth->fetchrow_array)[0] |
|
955
|
7 |
6 |
if ($type =~ s/(\w+)\s*\(\s*(\d+)(?:\s*,\s*(\d+))?\s*\)/$1/) |
|
962
|
0 |
13 |
if (defined $col_info->{'dflt_value'}) |
|
966
|
2 |
11 |
if ($col_info->{'notnull'}) { } |
|
980
|
0 |
7 |
unless my $sponge = "DBI"->connect("DBI:Sponge:", "", "") |
|
983
|
0 |
7 |
unless $sponge->prepare("column_info", {"rows", [map({[@{$_;}{@COLUMN_INFO}];} @cols)], "NUM_OF_FIELDS", scalar @COLUMN_INFO, "NAME", [@COLUMN_INFO]}) |
|
1008
|
2 |
235 |
if exists $_[0]{$_[1]} |