lib/DBIx/Class/Schema/Loader/DBI/Sybase/Common.pm

   1 package DBIx::Class::Schema::Loader::DBI::Sybase::Common;
   2
   3 use strict;
   4 use warnings;
   5 use base 'DBIx::Class::Schema::Loader::DBI';
   6 use Carp::Clan qw/^DBIx::Class/;
   7 use mro 'c3';
   8
   9 our $VERSION = '0.07008';
  10
  11 =head1 NAME
  12
  13 DBIx::Class::Schema::Loader::DBI::Sybase::Common - Common methods for Sybase
  14 and MSSQL
  15
  16 =head1 DESCRIPTION
  17
  18 See L<DBIx::Class::Schema::Loader> and L<DBIx::Class::Schema::Loader::Base>.
  19
  20 =cut
  21
  22 # DBD::Sybase doesn't implement get_info properly
  23 sub _build_quoter  { '"' }
  24 sub _build_namesep { '.' }
  25
  26 sub _setup {
  27     my $self = shift;
  28
  29     $self->next::method(@_);
  30
  31     $self->schema->storage->sql_maker->quote_char([qw/[ ]/]);
  32     $self->schema->storage->sql_maker->name_sep('.');
  33     $self->{db_schema} ||= $self->_build_db_schema;
  34 }
  35
  36 sub _build_db_schema {
  37     my $self = shift;
  38     my $dbh  = $self->schema->storage->dbh;
  39
  40     my ($db_schema) = $dbh->selectrow_array('select user_name()');
  41
  42     return $db_schema;
  43 }
  44
  45 # remove 'IDENTITY' from column data_type
  46 sub _columns_info_for {
  47     my $self   = shift;
  48     my $result = $self->next::method(@_);
  49
  50     foreach my $col (keys %$result) {
  51         $result->{$col}->{data_type} =~ s/\s* identity \s*//ix;
  52     }
  53
  54     return $result;
  55 }
  56
  57 =head1 SEE ALSO
  58
  59 L<DBIx::Class::Schema::Loader::DBI::Sybase>,
  60 L<DBIx::Class::Schema::Loader::DBI::MSSQL>,
  61 L<DBIx::Class::Schema::Loader::DBI::ODBC::Microsoft_SQL_Server>,
  62 L<DBIx::Class::Schema::Loader::DBI::Sybase::Microsoft_SQL_Server>,
  63 L<DBIx::Class::Schema::Loader::DBI>
  64 L<DBIx::Class::Schema::Loader>, L<DBIx::Class::Schema::Loader::Base>,
  65
  66 =head1 AUTHOR
  67
  68 See L<DBIx::Class::Schema::Loader/AUTHOR> and L<DBIx::Class::Schema::Loader/CONTRIBUTORS>.
  69
  70 =head1 LICENSE
  71
  72 This library is free software; you can redistribute it and/or modify it under
  73 the same terms as Perl itself.
  74
  75 =cut
  76
  77 1;