lib/DBIx/Class/Schema/Loader/DBI/ODBC/SQL_Anywhere.pm

   1 package DBIx::Class::Schema::Loader::DBI::ODBC::SQL_Anywhere;
   2
   3 use strict;
   4 use warnings;
   5 use base qw/
   6     DBIx::Class::Schema::Loader::DBI::ODBC
   7     DBIx::Class::Schema::Loader::DBI::SQLAnywhere
   8 /;
   9 use mro 'c3';
  10
  11 our $VERSION = '0.07047';
  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
  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
  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 AUTHORS
  48
  49 See L<DBIx::Class::Schema::Loader/AUTHORS>.
  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;
  59 # vim:et sw=4 sts=4 tw=0: