General Parser Options:
--skip Comma-separated list of tables to skip (only implemented in some parsers)
- --ignore_opts Comma-separated list of table options to ignore
+ --ignore_opts Comma-separated list of table options to ignore
DBI Parser Options:
GetOptions(
'add-drop-table' => \$add_drop_table,
- 'quote_table_names' => \$quote_table_names,
- 'quote_field_names' => \$quote_field_names,
+ 'quote-table-names|quote_table_names' => \$quote_table_names,
+ 'quote-field-names|quote_field_names' => \$quote_field_names,
'd|debug' => \$debug,
'f|from|parser:s' => \$from,
'fs:s' => \$field_separator,
) or pod2usage(2);
if ($use_same_auth) {
- $producer_dsn = $dsn;
- $producer_db_user = $db_user;
- $producer_db_password = $db_password;
+ $producer_dsn = $dsn;
+ $producer_db_user = $db_user;
+ $producer_db_password = $db_password;
}
-if (
+if (
( !defined $from && defined $dsn )
||
$from =~ /^DBI.*/
exit(0);
}
-my $translator = SQL::Translator->new(
+my $translator = SQL::Translator->new(
debug => $debug || 0,
trace => $trace || 0,
no_comments => $no_comments || 0,
show_warnings => $show_warnings || 0,
add_drop_table => $add_drop_table || 0,
- quote_table_names => $quote_table_names || 1,
- quote_field_names => $quote_field_names || 1,
+ quote_table_names => defined $quote_table_names ? $quote_table_names : 1,
+ quote_field_names => defined $quote_field_names ? $quote_field_names : 1,
validate => $validate || 0,
parser_args => {
trim_fields => $no_trim ? 0 : 1,
newlines => $newlines,
postgres_version => $postgres_version,
mysql_version => $mysql_version,
- package_name => $package_name,
+ package_name => $package_name,
},
);
$translator->producer($to);
for my $file (@files) {
- my @args =
+ my @args =
($file eq '-') ? (data => \*STDIN) :
($file eq '!') ? (data => '') :
(file => $file);