1 package DBIx::Class::Storage::DBI::NoBindVars;
6 use base 'DBIx::Class::Storage::DBI';
10 DBIx::Class::Storage::DBI::NoBindVars - Sometime DBDs have poor to no support for bind variables
14 This class allows queries to work when the DBD or underlying library does not
15 support the usual C<?> placeholders, or at least doesn't support them very
16 well, as is the case with L<DBD::Sybase>
22 We can't cache very effectively without bind variables, so force the C<disable_sth_caching> setting to be turned on when the connect info is set.
28 my $retval = $self->next::method(@_);
29 $self->disable_sth_caching(1);
33 =head2 _prep_for_execute
35 Manually subs in the values for the usual C<?> placeholders.
39 sub _prep_for_execute {
42 my ($op, $extra_bind, $ident) = @_;
44 my ($sql, $bind) = $self->next::method(@_);
46 # stringify args, quote via $dbh, and manually insert
48 my @sql_part = split /\?/, $sql;
51 foreach my $bound (@$bind) {
52 my $col = shift @$bound;
53 my $datatype = 'FIXME!!!';
54 foreach my $data (@$bound) {
58 $data = $self->_dbh->quote($data);
59 $new_sql .= shift(@sql_part) . $data;
62 $new_sql .= join '', @sql_part;
64 return ($new_sql, []);
69 Brandon Black <blblack@gmail.com>
71 Trym Skaar <trym@tryms.no>
75 You may distribute this code under the same terms as Perl itself.