SELECT CURRENT_SCHEMA FROM sysibm${ns}sysdummy1
EOF
- if (not defined $self->preserve_case) {
+ if (not $self->preserve_case) {
$self->preserve_case(0);
}
elsif ($self->preserve_case) {
}
$sth->finish;
-
+
return \@uniqs;
}
$self->next::method(@_);
- if (not defined $self->preserve_case) {
+ if (not $self->preserve_case) {
$self->preserve_case(0);
}
elsif ($self->preserve_case) {
# if (lc($data_type) eq 'varchar') {
# $result->{$col}{size}[1] = $info->{colmin};
# }
-
+
my ($default_type, $default) = @{$info}{qw/deflt_type deflt/};
next unless $default_type;
=head1 COLUMN NAME CASE ISSUES
By default column names from unquoted DDL will be generated in lowercase, for
-consistency with other backends.
+consistency with other backends.
Set the L<preserve_case|DBIx::Class::Schema::Loader::Base/preserve_case> option
to true if you would like to have column names in the internal case, which is
$self->next::method(@_);
- if (not defined $self->preserve_case) {
+ if (not $self->preserve_case) {
$self->preserve_case(0);
}
elsif ($self->preserve_case) {
}
}
- if (not defined $self->preserve_case) {
+ if (not $self->preserve_case) {
foreach my $db (keys %{ $self->db_schema }) {
# We use the sys.databases query for the general case, and fallback to
# databasepropertyex() if for some reason sys.databases is not available,
JOIN [$db].INFORMATION_SCHEMA.KEY_COLUMN_USAGE fk_kcu
ON fk_kcu.constraint_name = fk_tc.constraint_name
AND fk_kcu.table_name = fk_tc.table_name
- AND fk_kcu.table_schema = fk_tc.table_schema
+ AND fk_kcu.table_schema = fk_tc.table_schema
JOIN [$db].INFORMATION_SCHEMA.TABLE_CONSTRAINTS uk_tc
ON uk_tc.constraint_name = rc.unique_constraint_name
AND uk_tc.table_schema = rc.unique_constraint_schema
while (my ($fk, $remote_schema, $remote_table, $col, $remote_col) = $sth->fetchrow_array) {
push @{ $rels{$fk}{local_columns} }, $self->_lc($col);
push @{ $rels{$fk}{remote_columns} }, $self->_lc($remote_col);
-
+
$rels{$fk}{remote_table} = DBIx::Class::Schema::Loader::Table::Sybase->new(
loader => $self,
name => $remote_table,
=head1 NAME
-DBIx::Class::Schema::Loader::DBI::Oracle - DBIx::Class::Schema::Loader::DBI
+DBIx::Class::Schema::Loader::DBI::Oracle - DBIx::Class::Schema::Loader::DBI
Oracle Implementation.
=head1 DESCRIPTION
$self->dbh->do('ALTER SESSION SET current_schema=' . $self->db_schema->[0]);
}
- if (not defined $self->preserve_case) {
+ if (not $self->preserve_case) {
$self->preserve_case(0);
}
elsif ($self->preserve_case) {
my $constr_col = $self->_lc($constr->[1]);
push @{$constr_names{$constr_name}}, $constr_col;
}
-
+
my @uniqs = map { [ $_ => $constr_names{$_} ] } keys %constr_names;
return \@uniqs;
}
($table_comment) = $self->dbh->selectrow_array(<<'EOF', {}, $table->schema, $table->name);
SELECT comments FROM all_tab_comments
-WHERE owner = ?
+WHERE owner = ?
AND table_name = ?
AND (table_type = 'TABLE' OR table_type = 'VIEW')
EOF
($column_comment) = $self->dbh->selectrow_array(<<'EOF', {}, $table->schema, $table->name, $self->_uc($column_name));
SELECT comments FROM all_col_comments
-WHERE owner = ?
+WHERE owner = ?
AND table_name = ?
AND column_name = ?
EOF
elsif (lc($info->{data_type}) eq 'binary_float') {
$info->{data_type} = 'real';
$info->{original}{data_type} = 'binary_float';
- }
+ }
elsif (lc($info->{data_type}) eq 'binary_double') {
$info->{data_type} = 'double precision';
$info->{original}{data_type} = 'binary_double';
$self->{db_schema} ||= ['public'];
- if (not defined $self->preserve_case) {
+ if (not $self->preserve_case) {
$self->preserve_case(0);
}
elsif ($self->preserve_case) {
return $table_comment if $table_comment;
($table_comment) = $self->dbh->selectrow_array(<<'EOF', {}, $table->name, $table->schema);
-SELECT obj_description(oid)
-FROM pg_class
+SELECT obj_description(oid)
+FROM pg_class
WHERE relname=? AND relnamespace=(SELECT oid FROM pg_namespace WHERE nspname=?)
EOF
my ($table_oid) = $self->dbh->selectrow_array(<<'EOF', {}, $table->name, $table->schema);
SELECT oid
-FROM pg_class
+FROM pg_class
WHERE relname=? AND relnamespace=(SELECT oid FROM pg_namespace WHERE nspname=?)
EOF
$info->{extra}{custom_type_name} = $info->{data_type};
$info->{data_type} = 'enum';
-
+
delete $info->{size};
}
}
$self->next::method(@_);
$self->preserve_case(1)
- unless defined $self->preserve_case;
+ unless $self->preserve_case;
$self->schema->storage->sql_maker->quote_char('"');
$self->schema->storage->sql_maker->name_sep('.');
ON fk.foreign_table_id = fkt.table_id
JOIN sysuser fku
ON fkt.creator = fku.user_id
-JOIN sysidx pki
+JOIN sysidx pki
ON fk.primary_table_id = pki.table_id AND fk.primary_index_id = pki.index_id
-JOIN sysidx fki
+JOIN sysidx fki
ON fk.foreign_table_id = fki.table_id AND fk.foreign_index_id = fki.index_id
JOIN sysidxcol fkic
ON fkt.table_id = fkic.table_id AND fki.index_id = fkic.index_id
$self->next::method(@_);
- if (not defined $self->preserve_case) {
+ if (not $self->preserve_case) {
$self->preserve_case(0);
}
-
+
if ($self->db_schema) {
warn <<'EOF';
db_schema is not supported on SQLite, the option is implemented only for qualify_objects testing.
$self->next::method(@_);
- if (not defined $self->preserve_case) {
+ if (not $self->preserve_case) {
$self->preserve_case(0);
}
return ($self->next::method(@_), 'mysql');
}
-sub _tables_list {
+sub _tables_list {
my ($self, $opts) = @_;
return $self->next::method($opts, undef, undef);