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::ODBC::Microsoft_SQL_Server
   9   DBIx::Class::Storage::DBI::NoBindVars
  10 /;
  11 use mro 'c3';
  12
  13 sub _rebless {
  14   my $self = shift;
  15   $self->disable_sth_caching(1);
  16 }
  17
  18 1;
  19
  20 =head1 NAME
  21
  22 DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server - Storage::DBI subclass for MSSQL via
  23 DBD::Sybase
  24
  25 =head1 SYNOPSIS
  26
  27 This subclass supports MSSQL server connections via L<DBD::Sybase>.
  28
  29 =head1 CAVEATS
  30
  31 This storage driver uses L<DBIx::Class::Storage::DBI::NoBindVars> as a base.
  32 This means that bind variables will be interpolated (properly quoted of course)
  33 into the SQL query itself, without using bind placeholders.
  34
  35 More importantly this means that caching of prepared statements is explicitly
  36 disabled, as the interpolation renders it useless.
  37
  38 The actual driver code for MSSQL is in
  39 L<DBIx::Class::Storage::DBI::ODBC::Microsoft_SQL_Server>.
  40
  41 =head1 AUTHORS
  42
  43 See L<DBIx::Class/CONTRIBUTORS>.
  44
  45 =head1 LICENSE
  46
  47 You may distribute this code under the same terms as Perl itself.
  48
  49 =cut