lib/DBIx/Class/Storage/DBI/Sybase/Microsoft_SQL_Server.pm

   1 package DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base qw/
   7   DBIx::Class::Storage::DBI::Sybase::Common
   8   DBIx::Class::Storage::DBI::MSSQL
   9 /;
  10 use mro 'c3';
  11
  12 sub new {
  13   my $self = shift->next::method(@_);
  14   $self->_rebless;
  15   return $self;
  16 }
  17
  18 sub _rebless {
  19   my $self = shift;
  20   my $dbh  = $self->_get_dbh;
  21
  22   if (not $self->_typeless_placeholders_supported) {
  23     bless $self,
  24       'DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server::NoBindVars';
  25     $self->_rebless;
  26   }
  27
  28 # LongReadLen doesn't work with MSSQL through DBD::Sybase, and the default is
  29 # huge on some versions of SQL server and can cause memory problems, so we
  30 # fix it up here (see Sybase/Common.pm .)
  31   $self->set_textsize;
  32 }
  33
  34 1;
  35
  36 =head1 NAME
  37
  38 DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server - Support for Microsoft
  39 SQL Server via DBD::Sybase
  40
  41 =head1 SYNOPSIS
  42
  43 This subclass supports MSSQL server connections via L<DBD::Sybase>.
  44
  45 =head1 DESCRIPTION
  46
  47 This driver tries to determine whether your version of L<DBD::Sybase> and
  48 supporting libraries (usually FreeTDS) support using placeholders, if not the
  49 storage will be reblessed to
  50 L<DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server::NoBindVars>.
  51
  52 The MSSQL specific functionality is provided by
  53 L<DBIx::Class::Storage::DBI::MSSQL>.
  54
  55 =head1 AUTHOR
  56
  57 See L<DBIx::Class/CONTRIBUTORS>.
  58
  59 =head1 LICENSE
  60
  61 You may distribute this code under the same terms as Perl itself.
  62
  63 =cut