lib/DBIx/Class/Storage/DBI/Sybase/Microsoft_SQL_Server/NoBindVars.pm

   1 package DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server::NoBindVars;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base qw/
   7   DBIx::Class::Storage::DBI::NoBindVars
   8   DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server
   9 /;
  10 use mro 'c3';
  11
  12 sub new {
  13   my $self = shift->next::method(@_);
  14   $self->_rebless;
  15   return $self;
  16 }
  17
  18 sub _rebless {
  19   my $self = shift;
  20
  21   $self->disable_sth_caching(1);
  22 }
  23
  24 1;
  25
  26 =head1 NAME
  27
  28 DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server::NoBindVars - Support for Microsoft
  29 SQL Server via DBD::Sybase without placeholders
  30
  31 =head1 SYNOPSIS
  32
  33 This subclass supports MSSQL server connections via DBD::Sybase when ? style
  34 placeholders are not available.
  35
  36 =head1 DESCRIPTION
  37
  38 If you are using this driver then your combination of L<DBD::Sybase> and
  39 libraries (most likely FreeTDS) does not support ? style placeholders.
  40
  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.
  44
  45 More importantly this means that caching of prepared statements is explicitly
  46 disabled, as the interpolation renders it useless.
  47
  48 In all other respects, it is a subclass of
  49 L<DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server>.
  50
  51 =head1 AUTHOR
  52
  53 See L<DBIx::Class/CONTRIBUTORS>.
  54
  55 =head1 LICENSE
  56
  57 You may distribute this code under the same terms as Perl itself.
  58
  59 =cut