| line |
true |
false |
branch |
|
97
|
9 |
2 |
if ($name =~ /(.+)\.(.+)/) { } |
|
103
|
9 |
2 |
$sth->fetchrow_hashref ? : |
|
127
|
0 |
40 |
if ($driver eq 'mysql') |
|
132
|
0 |
40 |
if $type eq 'VIEW' |
|
133
|
0 |
40 |
if $type eq 'INDEX' |
|
134
|
0 |
40 |
if $schem =~ /^(information_schema)$/ |
|
136
|
0 |
40 |
if ($driver eq 'Pg') { } |
|
|
40 |
0 |
elsif ($driver eq 'SQLite') { } |
|
137
|
0 |
0 |
if $schem =~ /^(pg_catalog)$/ |
|
139
|
10 |
30 |
if $schem =~ /^(temp)$/ |
|
140
|
10 |
20 |
if $name =~ /^(sqlite_master|sqlite_temp_master)$/ |
|
143
|
20 |
0 |
length $schem ? : |
|
179
|
0 |
0 |
if ($driver eq 'SQLite') { } |
|
|
0 |
0 |
elsif ($driver eq 'mysql') { } |
|
182
|
0 |
0 |
if (defined $wanted_table) { } |
|
187
|
0 |
0 |
if /.+\.(.+)/ |
|
192
|
0 |
0 |
unless $row->{'type'} eq 'index' |
|
193
|
0 |
0 |
unless grep {$_ eq $row->{'tbl_name'};} @wanted_tables |
|
194
|
0 |
0 |
unless $row->{'name'} =~ /\Asqlite_autoindex_.+_(\d+)\z/ |
|
209
|
0 |
0 |
unless $row->{'TABLE_TYPE'} eq 'INDEX' |
|
215
|
0 |
0 |
if (defined $wanted_table) |
|
216
|
0 |
0 |
if ($wanted_table =~ /(.+)\.(.+)/) { } |
|
217
|
0 |
0 |
unless $schem eq $1 and $table eq $2 |
|
219
|
0 |
0 |
unless $table eq $wanted_table |
|
223
|
0 |
0 |
unless my $sql = $row->{'sqlite_sql'} |
|
225
|
0 |
0 |
unless ($sql =~ s/\A\s*CREATE\s+(UNIQUE\s+)?INDEX\s+//is) |
|
230
|
0 |
0 |
$1 ? : |
|
231
|
0 |
0 |
$1 ? : |
|
233
|
0 |
0 |
unless $sql =~ s/\A(\S+)\s+//s |
|
238
|
0 |
0 |
unless $sql =~ s/\AON\s*(\S+)\s*\(\s*(.+)\s*\)//s |
|
252
|
0 |
0 |
if (defined $wanted_table) |
|
253
|
0 |
0 |
if ($wanted_table =~ /(.+)\.(.+)/) { } |
|
254
|
0 |
0 |
unless $row->{'TABLE_SCHEM'} eq $1 and $row->{'TABLE_NAME'} eq $2 |
|
256
|
0 |
0 |
unless $row->{'TABLE_NAME'} eq $wanted_table |
|
261
|
0 |
0 |
$row->{'NON_UNIQUE'} ? : |
|
262
|
0 |
0 |
$row->{'INDEX_NAME'} eq 'PRIMARY' ? : |
|
270
|
0 |
0 |
unless grep {$row->{'INDEX_NAME'} eq $_;} @index_names |
|
273
|
0 |
0 |
if (@hashes == 1) { } |
|
314
|
22 |
0 |
if ($table =~ /\./) { } |
|
332
|
4 |
26 |
if ($c1->{'TYPE_NAME'} ne $c2->{'TYPE_NAME'}) |
|
337
|
4 |
22 |
if ($c1->{'NULLABLE'} xor $c2->{'NULLABLE'}) |
|
341
|
0 |
26 |
if (defined $c1->{'CHAR_OCTET_LENGTH'}) |
|
342
|
0 |
0 |
if ($c1->{'CHAR_OCTET_LENGTH'} != $c2->{'CHAR_OCTET_LENGTH'}) |
|
347
|
6 |
20 |
if (defined $c1->{'DECIMAL_DIGITS'}) |
|
348
|
0 |
6 |
if ($c1->{'DECIMAL_DIGITS'} != $c2->{'DECIMAL_DIGITS'}) |
|
353
|
0 |
26 |
if (($c1->{'mysql_is_auto_increment'} // 0) != ($c2->{'mysql_is_auto_increment'} // 0)) |
|
374
|
30 |
5 |
if (defined $c2) { } |
|
376
|
8 |
22 |
if %$tres |
|
384
|
30 |
9 |
if (defined $c1) { } |
|
391
|
5 |
6 |
if @added |
|
392
|
5 |
6 |
if @deleted |
|
393
|
4 |
7 |
if %modified |
|
426
|
6 |
0 |
&Scalar::Util::blessed($dbh1) ? : |
|
|
6 |
0 |
defined $dbh1 ? : |
|
|
6 |
0 |
if defined $dbh1 ? 1 : ($arg_err //= 'Required but not specified', 0) |
|
|
0 |
6 |
if ($arg_err) |
|
427
|
6 |
0 |
&Scalar::Util::blessed($dbh2) ? : |
|
|
6 |
0 |
defined $dbh2 ? : |
|
|
6 |
0 |
if defined $dbh2 ? 1 : ($arg_err //= 'Required but not specified', 0) |
|
|
0 |
6 |
if ($arg_err) |
|
428
|
6 |
0 |
!ref($table1) ? : |
|
|
6 |
0 |
defined $table1 ? : |
|
|
6 |
0 |
if defined $table1 ? 1 : ($arg_err //= 'Required but not specified', 0) |
|
|
0 |
6 |
if ($arg_err) |
|
429
|
6 |
0 |
!ref($table2) ? : |
|
|
6 |
0 |
defined $table2 ? : |
|
|
6 |
0 |
if defined $table2 ? 1 : ($arg_err //= 'Required but not specified', 0) |
|
|
0 |
6 |
if ($arg_err) |
|
433
|
1 |
5 |
unless check_table_exists($dbh1, $table1) |
|
435
|
1 |
4 |
unless check_table_exists($dbh2, $table2) |
|
503
|
5 |
0 |
&Scalar::Util::blessed($dbh1) ? : |
|
|
5 |
0 |
defined $dbh1 ? : |
|
|
5 |
0 |
if defined $dbh1 ? 1 : ($arg_err //= 'Required but not specified', 0) |
|
|
0 |
5 |
if ($arg_err) |
|
504
|
5 |
0 |
&Scalar::Util::blessed($dbh2) ? : |
|
|
5 |
0 |
defined $dbh2 ? : |
|
|
5 |
0 |
if defined $dbh2 ? 1 : ($arg_err //= 'Required but not specified', 0) |
|
|
0 |
5 |
if ($arg_err) |
|
514
|
7 |
3 |
if (grep {$_ eq $t;} @tables2) { } |
|
517
|
3 |
4 |
if %$tres |
|
523
|
7 |
3 |
if (grep {$_ eq $t;} @tables1) { } |
|
530
|
3 |
2 |
if @added |
|
531
|
3 |
2 |
if @deleted |
|
532
|
3 |
2 |
if %modified |