1 package DBIx::Class::Schema::Loader::DBI::ODBC::SQL_Anywhere;
6 DBIx::Class::Schema::Loader::DBI::ODBC
7 DBIx::Class::Schema::Loader::DBI::SQLAnywhere
11 our $VERSION = '0.07015';
15 DBIx::Class::Schema::Loader::DBI::ODBC::SQL_Anywhere - ODBC wrapper for
16 L<DBIx::Class::Schema::Loader::DBI::SQLAnywhere>
20 Proxy for L<DBIx::Class::Schema::Loader::DBI::SQLAnywhere> when using L<DBD::ODBC>.
22 See L<DBIx::Class::Schema::Loader::Base> for usage information.
26 sub _columns_info_for {
29 my $result = $self->next::method(@_);
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};
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>
49 See L<DBIx::Class::Schema::Loader/AUTHOR> and L<DBIx::Class::Schema::Loader/CONTRIBUTORS>.
53 This library is free software; you can redistribute it and/or modify it under
54 the same terms as Perl itself.
59 # vim:et sw=4 sts=4 tw=0: