Commit | Line | Data |
8793567f |
1 | package DBIx::Class::Schema::Loader::DBI::ODBC::SQL_Anywhere; |
2 | |
3 | use strict; |
4 | use warnings; |
5 | use base qw/ |
c4a69b87 |
6 | DBIx::Class::Schema::Loader::DBI::ODBC |
8793567f |
7 | DBIx::Class::Schema::Loader::DBI::SQLAnywhere |
8 | /; |
942bd5e0 |
9 | use mro 'c3'; |
8793567f |
10 | |
4a6249b2 |
11 | our $VERSION = '0.07035'; |
8793567f |
12 | |
13 | =head1 NAME |
14 | |
15 | DBIx::Class::Schema::Loader::DBI::ODBC::SQL_Anywhere - ODBC wrapper for |
16 | L<DBIx::Class::Schema::Loader::DBI::SQLAnywhere> |
17 | |
18 | =head1 DESCRIPTION |
19 | |
20 | Proxy for L<DBIx::Class::Schema::Loader::DBI::SQLAnywhere> when using L<DBD::ODBC>. |
21 | |
22 | See L<DBIx::Class::Schema::Loader::Base> for usage information. |
23 | |
eea428f2 |
24 | =cut |
25 | |
26 | sub _columns_info_for { |
27 | my $self = shift; |
28 | |
29 | my $result = $self->next::method(@_); |
30 | |
31 | while (my ($col, $info) = each %$result) { |
32 | # The ODBC driver sets the default value to NULL even when it was not specified. |
33 | if (ref $info->{default_value} && ${ $info->{default_value} } eq 'null') { |
34 | delete $info->{default_value}; |
35 | } |
36 | } |
37 | |
38 | return $result; |
39 | } |
40 | |
8793567f |
41 | =head1 SEE ALSO |
42 | |
43 | L<DBIx::Class::Schema::Loader::DBI::SQLAnywhere>, |
44 | L<DBIx::Class::Schema::Loader>, L<DBIx::Class::Schema::Loader::Base>, |
45 | L<DBIx::Class::Schema::Loader::DBI> |
46 | |
47 | =head1 AUTHOR |
48 | |
49 | See L<DBIx::Class::Schema::Loader/AUTHOR> and L<DBIx::Class::Schema::Loader/CONTRIBUTORS>. |
50 | |
51 | =head1 LICENSE |
52 | |
53 | This library is free software; you can redistribute it and/or modify it under |
54 | the same terms as Perl itself. |
55 | |
56 | =cut |
57 | |
58 | 1; |
eea428f2 |
59 | # vim:et sw=4 sts=4 tw=0: |