X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FNoBindVars.pm;h=9f8470263b7c7f2e4ec30b0eabf080cb25f22d84;hb=e9657379908899b73ff92948a4cd19b6f875e10f;hp=ada367b301bc9d641a3a631a2772fe5962296a04;hpb=166c656193b56e08b472c675e92b9076aac03a53;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Storage/DBI/NoBindVars.pm b/lib/DBIx/Class/Storage/DBI/NoBindVars.pm index ada367b..9f84702 100644 --- a/lib/DBIx/Class/Storage/DBI/NoBindVars.pm +++ b/lib/DBIx/Class/Storage/DBI/NoBindVars.pm @@ -63,7 +63,7 @@ sub _prep_for_execute { if $datatype; $data = $self->_dbh->quote($data) - if (!$datatype || $self->should_quote_value($datatype, $data)); + unless $self->interpolate_unquoted($datatype, $data); $new_sql .= shift(@sql_part) . $data; } @@ -73,15 +73,15 @@ sub _prep_for_execute { return ($new_sql, []); } -=head2 should_quote_value +=head2 interpolate_unquoted This method is called by L for every column in order to determine if its value should be quoted or not. The arguments are the current column data type and the actual bind value. The return -value is interpreted as: true - do quote, false - do not quote. You should +value is interpreted as: true - do not quote, false - do quote. You should override this in you Storage::DBI:: subclass, if your RDBMS does not like quotes around certain datatypes (e.g. Sybase and integer -columns). The default method always returns true (do quote). +columns). The default method always returns false (do quote). WARNING!!! @@ -90,9 +90,9 @@ columns). The default method always returns true (do quote). =cut -sub should_quote_value { +sub interpolate_unquoted { #my ($self, $datatype, $value) = @_; - return 1; + return 0; } =head2 _prep_interpolated_value