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