use strict;
use warnings;
use base 'DBIx::Class::Schema::Loader::DBI';
-use Carp::Clan qw/^DBIx::Class/;
use mro 'c3';
-our $VERSION = '0.07008';
+our $VERSION = '0.07032';
=head1 NAME
=cut
# DBD::Sybase doesn't implement get_info properly
-sub _build_quoter { '"' }
-sub _build_namesep { '.' }
+sub _build_quote_char { '[]' }
+sub _build_name_sep { '.' }
sub _setup {
my $self = shift;
$self->schema->storage->sql_maker->quote_char([qw/[ ]/]);
$self->schema->storage->sql_maker->name_sep('.');
- $self->{db_schema} ||= $self->_build_db_schema;
-}
-
-sub _build_db_schema {
- my $self = shift;
- my $dbh = $self->schema->storage->dbh;
-
- my ($db_schema) = $dbh->selectrow_array('select user_name()');
-
- return $db_schema;
}
# remove 'IDENTITY' from column data_type