1 package DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server;
7 DBIx::Class::Storage::DBI::Sybase
8 DBIx::Class::Storage::DBI::MSSQL
14 my $dbh = $self->_get_dbh;
16 return if ref $self ne __PACKAGE__;
18 if (not $self->_typeless_placeholders_supported) {
20 DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server::NoBindVars;
22 'DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server::NoBindVars';
27 sub _run_connection_actions {
30 # LongReadLen doesn't work with MSSQL through DBD::Sybase, and the default is
31 # huge on some versions of SQL server and can cause memory problems, so we
32 # fix it up here (see ::DBI::Sybase.pm)
35 $self->next::method(@_);
41 $self->_get_dbh->do('BEGIN TRAN');
47 or $self->throw_exception('cannot COMMIT on a disconnected handle');
54 or $self->throw_exception('cannot ROLLBACK on a disconnected handle');
58 sub _populate_server_info {
61 my $info = $self->next::method(@_);
63 my $product_version = $self->_get_dbh->selectrow_hashref('xp_msver ProductVersion');
65 if ((my $version = $data->{Character_Value}) =~ /^(\d+)\./) {
66 $info->{dbms_ver} = $version;
68 $self->throw_exception(q{
69 MSSQL Version Retrieval Failed, Your ProductVersion's Character_Value is missing
81 DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server - Support for Microsoft
82 SQL Server via DBD::Sybase
86 This subclass supports MSSQL server connections via L<DBD::Sybase>.
90 This driver tries to determine whether your version of L<DBD::Sybase> and
91 supporting libraries (usually FreeTDS) support using placeholders, if not the
92 storage will be reblessed to
93 L<DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server::NoBindVars>.
95 The MSSQL specific functionality is provided by
96 L<DBIx::Class::Storage::DBI::MSSQL>.
100 See L<DBIx::Class/CONTRIBUTORS>.
104 You may distribute this code under the same terms as Perl itself.