| line |
true |
false |
branch |
|
68
|
0 |
0 |
unless my $fk_select = $dbh->prepare("\nSELECT r.conname,\n c.relname,\n d.relname AS frelname,\n r.conkey,\n ARRAY(SELECT column_name::varchar\n FROM information_schema.columns\n WHERE ordinal_position = ANY (r.conkey)\n AND table_schema = n.nspname\n AND table_name = c.relname ) AS fields,\n r.confkey,\n ARRAY(SELECT column_name::varchar\n FROM information_schema.columns\n WHERE ordinal_position = ANY (r.confkey)\n AND table_schema = n.nspname\n AND table_name = d.relname ) AS reference_fields,\n r.confupdtype,\n r.confdeltype,\n r.confmatchtype\n\nFROM pg_catalog.pg_constraint r\n\nJOIN pg_catalog.pg_class c\n ON c.oid = r.conrelid\n AND r.contype = 'f'\n\nJOIN pg_catalog.pg_class d\n ON d.oid = r.confrelid\n\nJOIN pg_catalog.pg_namespace n\n ON n.oid = c.relnamespace\n\nWHERE pg_catalog.pg_table_is_visible(c.oid)\n AND n.nspname = ?\n AND c.relname = ?\nORDER BY 1;\n ") |
|
118
|
0 |
0 |
if $tablehash->{'description'} |
|
130
|
0 |
0 |
$type =~ s/\(([0-9,]+)\)$// ? : |
|
136
|
0 |
0 |
if @size |
|
140
|
0 |
0 |
if (defined $default) |
|
141
|
0 |
0 |
if ($default =~ /^[0-9.]+$/) { } |
|
|
0 |
0 |
elsif ($default =~ /^'(.*?)'(::\Q$type\E)?$/) { } |
|
149
|
0 |
0 |
$columnhash->{'attnotnull'} ? : |
|
150
|
0 |
0 |
if $columnhash->{'description'} |
|
159
|
0 |
0 |
if $indexhash->{'indkey'} eq "" or not defined $indexhash->{'indkey'} |
|
164
|
0 |
0 |
if ($indexhash->{'indisprimary'}) { } |
|
|
0 |
0 |
elsif ($indexhash->{'indisunique'}) { } |
|
180
|
0 |
0 |
unless $table->add_index("name", $indexhash->{'relname'}, "type", $type, "fields", \@columns) |
|
186
|
0 |
0 |
unless $fk_select->execute("public", $table_name) |
|
188
|
0 |
0 |
if $DEBUG |