1 package DBIx::Class::Schema::Loader::DBI::Sybase::Common;
5 use base 'DBIx::Class::Schema::Loader::DBI';
6 use Carp::Clan qw/^DBIx::Class/;
9 our $VERSION = '0.07009';
13 DBIx::Class::Schema::Loader::DBI::Sybase::Common - Common methods for Sybase
18 See L<DBIx::Class::Schema::Loader> and L<DBIx::Class::Schema::Loader::Base>.
22 # DBD::Sybase doesn't implement get_info properly
23 sub _build_quoter { '"' }
24 sub _build_namesep { '.' }
29 $self->next::method(@_);
31 $self->schema->storage->sql_maker->quote_char([qw/[ ]/]);
32 $self->schema->storage->sql_maker->name_sep('.');
33 $self->{db_schema} ||= $self->_build_db_schema;
36 sub _build_db_schema {
38 my $dbh = $self->schema->storage->dbh;
40 my ($db_schema) = $dbh->selectrow_array('select user_name()');
45 # remove 'IDENTITY' from column data_type
46 sub _columns_info_for {
48 my $result = $self->next::method(@_);
50 foreach my $col (keys %$result) {
51 $result->{$col}->{data_type} =~ s/\s* identity \s*//ix;
59 L<DBIx::Class::Schema::Loader::DBI::Sybase>,
60 L<DBIx::Class::Schema::Loader::DBI::MSSQL>,
61 L<DBIx::Class::Schema::Loader::DBI::ODBC::Microsoft_SQL_Server>,
62 L<DBIx::Class::Schema::Loader::DBI::Sybase::Microsoft_SQL_Server>,
63 L<DBIx::Class::Schema::Loader::DBI>
64 L<DBIx::Class::Schema::Loader>, L<DBIx::Class::Schema::Loader::Base>,
68 See L<DBIx::Class::Schema::Loader/AUTHOR> and L<DBIx::Class::Schema::Loader/CONTRIBUTORS>.
72 This library is free software; you can redistribute it and/or modify it under
73 the same terms as Perl itself.