1package DBIx::Class::Schema::Loader::DBI::ODBC::SQL_Anywhere; 2 3use strict; 4use warnings; 5use base qw/ 6 DBIx::Class::Schema::Loader::DBI::ODBC 7 DBIx::Class::Schema::Loader::DBI::SQLAnywhere 8/; 9use mro 'c3'; 10 11our $VERSION = '0.07033'; 12 13=head1 NAME 14 15DBIx::Class::Schema::Loader::DBI::ODBC::SQL_Anywhere - ODBC wrapper for 16L<DBIx::Class::Schema::Loader::DBI::SQLAnywhere> 17 18=head1 DESCRIPTION 19 20Proxy for L<DBIx::Class::Schema::Loader::DBI::SQLAnywhere> when using L<DBD::ODBC>. 21 22See L<DBIx::Class::Schema::Loader::Base> for usage information. 23 24=cut 25 26sub _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 41=head1 SEE ALSO 42 43L<DBIx::Class::Schema::Loader::DBI::SQLAnywhere>, 44L<DBIx::Class::Schema::Loader>, L<DBIx::Class::Schema::Loader::Base>, 45L<DBIx::Class::Schema::Loader::DBI> 46 47=head1 AUTHOR 48 49See L<DBIx::Class::Schema::Loader/AUTHOR> and L<DBIx::Class::Schema::Loader/CONTRIBUTORS>. 50 51=head1 LICENSE 52 53This library is free software; you can redistribute it and/or modify it under 54the same terms as Perl itself. 55 56=cut 57 581; 59# vim:et sw=4 sts=4 tw=0: 60