use strict;
use warnings;
use base qw/
+ DBIx::Class::Schema::Loader::DBI::ODBC
DBIx::Class::Schema::Loader::DBI::SQLAnywhere
/;
-use Carp::Clan qw/^DBIx::Class/;
-use Class::C3;
+use mro 'c3';
-our $VERSION = '0.07001';
+our $VERSION = '0.07049';
=head1 NAME
See L<DBIx::Class::Schema::Loader::Base> for usage information.
+=cut
+
+sub _columns_info_for {
+ my $self = shift;
+
+ my $result = $self->next::method(@_);
+
+ while (my ($col, $info) = each %$result) {
+ # The ODBC driver sets the default value to NULL even when it was not specified.
+ if (ref $info->{default_value} && ${ $info->{default_value} } eq 'null') {
+ delete $info->{default_value};
+ }
+ }
+
+ return $result;
+}
+
=head1 SEE ALSO
L<DBIx::Class::Schema::Loader::DBI::SQLAnywhere>,
L<DBIx::Class::Schema::Loader>, L<DBIx::Class::Schema::Loader::Base>,
L<DBIx::Class::Schema::Loader::DBI>
-=head1 AUTHOR
+=head1 AUTHORS
-See L<DBIx::Class::Schema::Loader/AUTHOR> and L<DBIx::Class::Schema::Loader/CONTRIBUTORS>.
+See L<DBIx::Class::Schema::Loader/AUTHORS>.
=head1 LICENSE
=cut
1;
+# vim:et sw=4 sts=4 tw=0: