pod fixes
[dbsrgits/DBIx-Class-Historic.git] / lib / DBIx / Class / Storage / DBI / NoBindVars.pm
1 package DBIx::Class::Storage::DBI::NoBindVars;
2
3 use strict;
4 use warnings;
5
6 use base 'DBIx::Class::Storage::DBI';
7
8 =head1 NAME 
9
10 DBIx::Class::Storage::DBI::NoBindVars - Sometime DBDs have poor to no support for bind variables
11
12 =head1 DESCRIPTION
13
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>
17
18 =head1 METHODS
19
20 =head2 connect_info
21
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.
23
24 =cut
25
26 sub connect_info {
27     my $self = shift;
28     my $retval = $self->next::method(@_);
29     $self->disable_sth_caching(1);
30     $retval;
31 }
32
33 =head2 _prep_for_execute
34
35 Manually subs in the values for the usual C<?> placeholders.
36
37 =cut
38
39 sub _prep_for_execute {
40   my $self = shift;
41   my ($sql, $bind) = $self->next::method(@_);
42
43   # stringify args, quote via $dbh, and manually insert
44
45   my @sql_part = split /\?/, $sql;
46   my $new_sql;
47
48   foreach my $bound (@$bind) {
49     shift @$bound;
50     foreach my $data (@$bound) {
51         if(ref $data) {
52             $data = ''.$data;
53         }
54         $new_sql .= shift(@sql_part) . $self->_dbh->quote($data);
55     }
56   }
57   $new_sql .= join '', @sql_part;
58
59   return ($new_sql);
60 }
61
62 =head1 AUTHORS
63
64 Brandon Black <blblack@gmail.com>
65
66 Trym Skaar <trym@tryms.no>
67
68 =head1 LICENSE
69
70 You may distribute this code under the same terms as Perl itself.
71
72 =cut
73
74 1;