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'; |
942bd5e0 |
6 | use mro 'c3'; |
c9373b79 |
7 | |
90062860 |
8 | our $VERSION = '0.07044'; |
c9373b79 |
9 | |
10 | =head1 NAME |
11 | |
5163dc4a |
12 | DBIx::Class::Schema::Loader::DBI::Sybase::Common - Common methods for Sybase |
c9373b79 |
13 | and MSSQL |
14 | |
15 | =head1 DESCRIPTION |
16 | |
5163dc4a |
17 | See L<DBIx::Class::Schema::Loader> and L<DBIx::Class::Schema::Loader::Base>. |
c9373b79 |
18 | |
19 | =cut |
20 | |
21 | # DBD::Sybase doesn't implement get_info properly |
c4a69b87 |
22 | sub _build_quote_char { '[]' } |
23 | sub _build_name_sep { '.' } |
c9373b79 |
24 | |
243c6ebc |
25 | sub _setup { |
c9373b79 |
26 | my $self = shift; |
27 | |
243c6ebc |
28 | $self->next::method(@_); |
c9373b79 |
29 | |
243c6ebc |
30 | $self->schema->storage->sql_maker->quote_char([qw/[ ]/]); |
31 | $self->schema->storage->sql_maker->name_sep('.'); |
c9373b79 |
32 | } |
33 | |
de82711a |
34 | # remove 'IDENTITY' from column data_type |
35 | sub _columns_info_for { |
36 | my $self = shift; |
37 | my $result = $self->next::method(@_); |
38 | |
8793567f |
39 | foreach my $col (keys %$result) { |
de82711a |
40 | $result->{$col}->{data_type} =~ s/\s* identity \s*//ix; |
41 | } |
42 | |
43 | return $result; |
44 | } |
45 | |
c9373b79 |
46 | =head1 SEE ALSO |
47 | |
48 | L<DBIx::Class::Schema::Loader::DBI::Sybase>, |
49 | L<DBIx::Class::Schema::Loader::DBI::MSSQL>, |
5163dc4a |
50 | L<DBIx::Class::Schema::Loader::DBI::ODBC::Microsoft_SQL_Server>, |
51 | L<DBIx::Class::Schema::Loader::DBI::Sybase::Microsoft_SQL_Server>, |
c9373b79 |
52 | L<DBIx::Class::Schema::Loader::DBI> |
53 | L<DBIx::Class::Schema::Loader>, L<DBIx::Class::Schema::Loader::Base>, |
54 | |
b87ab391 |
55 | =head1 AUTHORS |
c9373b79 |
56 | |
b87ab391 |
57 | See L<DBIx::Class::Schema::Loader/AUTHORS>. |
be80bba7 |
58 | |
59 | =head1 LICENSE |
60 | |
61 | This library is free software; you can redistribute it and/or modify it under |
62 | the same terms as Perl itself. |
c9373b79 |
63 | |
64 | =cut |
65 | |
66 | 1; |