| line |
true |
false |
branch |
|
97
|
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 ") |
|
138
|
0 |
0 |
if ($deconstruct_enum_types) |
|
139
|
0 |
0 |
unless my $enum_select = $dbh->prepare("SELECT enumtypid, enumlabel FROM pg_enum ORDER BY oid, enumsortorder") |
|
160
|
0 |
0 |
if $tablehash->{'description'} |
|
173
|
0 |
0 |
$type =~ s/\(([0-9,]+)\)$// ? : |
|
179
|
0 |
0 |
if @size |
|
184
|
0 |
0 |
if (defined $default) |
|
185
|
0 |
0 |
if ($default =~ /^[0-9.]+$/) { } |
|
|
0 |
0 |
elsif ($default =~ /^'(.*?)'(::\Q$type\E)?$/) { } |
|
194
|
0 |
0 |
if ($deconstruct_enum_types and $enum_types{$columnhash->{'atttypid'}}) |
|
200
|
0 |
0 |
$columnhash->{'attnotnull'} ? : |
|
202
|
0 |
0 |
if $columnhash->{'description'} |
|
213
|
0 |
0 |
if $indexhash->{'indkey'} eq "" or not defined $indexhash->{'indkey'} |
|
218
|
0 |
0 |
if ($indexhash->{'indisprimary'}) { } |
|
|
0 |
0 |
elsif ($indexhash->{'indisunique'}) { } |
|
233
|
0 |
0 |
unless $table->add_index("name", $indexhash->{'relname'}, "type", $type, "fields", \@columns) |
|
239
|
0 |
0 |
unless $fk_select->execute("public", $table_name) |
|
241
|
0 |
0 |
if $DEBUG |