1 package DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server;
7 DBIx::Class::Storage::DBI::Sybase::Base
8 DBIx::Class::Storage::DBI::ODBC::Microsoft_SQL_Server
9 DBIx::Class::Storage::DBI::NoBindVars
15 $self->disable_sth_caching(1);
17 # LongReadLen doesn't work with MSSQL through DBD::Sybase, and the default is
18 # huge on some versions of SQL server and can cause memory problems, so we
20 my $dbh = $self->_dbh;
22 my $text_size = eval { $self->_dbi_connect_info->[-1]->{LongReadLen} } ||
23 32768; # the DBD::Sybase default
25 $dbh->do("set textsize $text_size");
32 DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server - Storage::DBI subclass for MSSQL via
37 This subclass supports MSSQL server connections via L<DBD::Sybase>.
41 This storage driver uses L<DBIx::Class::Storage::DBI::NoBindVars> as a base.
42 This means that bind variables will be interpolated (properly quoted of course)
43 into the SQL query itself, without using bind placeholders.
45 More importantly this means that caching of prepared statements is explicitly
46 disabled, as the interpolation renders it useless.
48 The actual driver code for MSSQL is in
49 L<DBIx::Class::Storage::DBI::ODBC::Microsoft_SQL_Server>.
53 See L<DBIx::Class/CONTRIBUTORS>.
57 You may distribute this code under the same terms as Perl itself.