1 package DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server;
7 DBIx::Class::Storage::DBI::Sybase::Base
8 DBIx::Class::Storage::DBI::MSSQL
14 my $dbh = $self->_dbh;
16 my ($placeholders_supported) = eval {
17 # There's also $dbh->{syb_dynamic_supported} but it can be inaccurate for this
19 local $dbh->{PrintError} = 0;
20 $dbh->selectrow_array('select ?', {}, 1);
23 if (not $placeholders_supported) {
25 'DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server::NoBindVars';
29 # LongReadLen doesn't work with MSSQL through DBD::Sybase, and the default is
30 # huge on some versions of SQL server and can cause memory problems, so we
32 my $text_size = eval { $self->_dbi_connect_info->[-1]->{LongReadLen} } ||
33 32768; # the DBD::Sybase default
35 $dbh->do("set textsize $text_size");
42 DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server - Support for Microsoft
43 SQL Server via DBD::Sybase
47 This subclass supports MSSQL server connections via L<DBD::Sybase>.
51 This driver tries to determine whether your version of L<DBD::Sybase> and
52 supporting libraries (usually FreeTDS) support using placeholders, if not the
53 storage will be reblessed to
54 L<DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server::NoBindVars>.
56 The MSSQL specific functionality is provided by
57 L<DBIx::Class::Storage::DBI::MSSQL>.
61 See L<DBIx::Class/CONTRIBUTORS>.
65 You may distribute this code under the same terms as Perl itself.