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::Base
   8   DBIx::Class::Storage::DBI::MSSQL
   9 /;
  10 use mro 'c3';
  11
  12 sub _rebless {
  13   my $self = shift;
  14   my $dbh  = $self->_get_dbh;
  15
  16   if (not $self->_typeless_placeholders_supported) {
  17     bless $self,
  18       'DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server::NoBindVars';
  19     $self->_rebless;
  20   }
  21 }
  22
  23 1;
  24
  25 =head1 NAME
  26
  27 DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server - Support for Microsoft
  28 SQL Server via DBD::Sybase
  29
  30 =head1 SYNOPSIS
  31
  32 This subclass supports MSSQL server connections via L<DBD::Sybase>.
  33
  34 =head1 DESCRIPTION
  35
  36 This driver tries to determine whether your version of L<DBD::Sybase> and
  37 supporting libraries (usually FreeTDS) support using placeholders, if not the
  38 storage will be reblessed to
  39 L<DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server::NoBindVars>.
  40
  41 The MSSQL specific functionality is provided by
  42 L<DBIx::Class::Storage::DBI::MSSQL>.
  43
  44 =head1 AUTHOR
  45
  46 See L<DBIx::Class/CONTRIBUTORS>.
  47
  48 =head1 LICENSE
  49
  50 You may distribute this code under the same terms as Perl itself.
  51
  52 =cut