Commit | Line | Data |
c9373b79 |
1 | package DBIx::Class::Schema::Loader::DBI::Sybase::Common; |
2 | |
3 | use strict; |
4 | use warnings; |
de82711a |
5 | use base 'DBIx::Class::Schema::Loader::DBI'; |
c9373b79 |
6 | use Carp::Clan qw/^DBIx::Class/; |
942bd5e0 |
7 | use mro 'c3'; |
c9373b79 |
8 | |
3bdcf490 |
9 | our $VERSION = '0.07008'; |
c9373b79 |
10 | |
11 | =head1 NAME |
12 | |
5163dc4a |
13 | DBIx::Class::Schema::Loader::DBI::Sybase::Common - Common methods for Sybase |
c9373b79 |
14 | and MSSQL |
15 | |
16 | =head1 DESCRIPTION |
17 | |
5163dc4a |
18 | See L<DBIx::Class::Schema::Loader> and L<DBIx::Class::Schema::Loader::Base>. |
c9373b79 |
19 | |
20 | =cut |
21 | |
22 | # DBD::Sybase doesn't implement get_info properly |
23 | sub _build_quoter { '"' } |
24 | sub _build_namesep { '.' } |
25 | |
243c6ebc |
26 | sub _setup { |
c9373b79 |
27 | my $self = shift; |
28 | |
243c6ebc |
29 | $self->next::method(@_); |
c9373b79 |
30 | |
243c6ebc |
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; |
c9373b79 |
34 | } |
35 | |
36 | sub _build_db_schema { |
37 | my $self = shift; |
38 | my $dbh = $self->schema->storage->dbh; |
39 | |
23ed3da1 |
40 | my ($db_schema) = $dbh->selectrow_array('select user_name()'); |
c9373b79 |
41 | |
42 | return $db_schema; |
43 | } |
44 | |
de82711a |
45 | # remove 'IDENTITY' from column data_type |
46 | sub _columns_info_for { |
47 | my $self = shift; |
48 | my $result = $self->next::method(@_); |
49 | |
8793567f |
50 | foreach my $col (keys %$result) { |
de82711a |
51 | $result->{$col}->{data_type} =~ s/\s* identity \s*//ix; |
52 | } |
53 | |
54 | return $result; |
55 | } |
56 | |
c9373b79 |
57 | =head1 SEE ALSO |
58 | |
59 | L<DBIx::Class::Schema::Loader::DBI::Sybase>, |
60 | L<DBIx::Class::Schema::Loader::DBI::MSSQL>, |
5163dc4a |
61 | L<DBIx::Class::Schema::Loader::DBI::ODBC::Microsoft_SQL_Server>, |
62 | L<DBIx::Class::Schema::Loader::DBI::Sybase::Microsoft_SQL_Server>, |
c9373b79 |
63 | L<DBIx::Class::Schema::Loader::DBI> |
64 | L<DBIx::Class::Schema::Loader>, L<DBIx::Class::Schema::Loader::Base>, |
65 | |
66 | =head1 AUTHOR |
67 | |
9cc8e7e1 |
68 | See L<DBIx::Class::Schema::Loader/AUTHOR> and L<DBIx::Class::Schema::Loader/CONTRIBUTORS>. |
be80bba7 |
69 | |
70 | =head1 LICENSE |
71 | |
72 | This library is free software; you can redistribute it and/or modify it under |
73 | the same terms as Perl itself. |
c9373b79 |
74 | |
75 | =cut |
76 | |
77 | 1; |