| ... | ... |
@@ -1,5 +1,6 @@ |
| 1 |
-0.1744 |
|
| 1 |
+0.1735 |
|
| 2 | 2 |
- added EXPERIMENTAL reuse_query option to execute method |
| 3 |
+0.1734 |
|
| 3 | 4 |
- moved DBIx::Custom::Guide to wiki |
| 4 | 5 |
0.1733 |
| 5 | 6 |
- select method join option can receive string. |
| ... | ... |
@@ -1,7 +1,7 @@ |
| 1 | 1 |
package DBIx::Custom; |
| 2 | 2 |
use Object::Simple -base; |
| 3 | 3 |
|
| 4 |
-our $VERSION = '0.1734'; |
|
| 4 |
+our $VERSION = '0.1735'; |
|
| 5 | 5 |
use 5.008001; |
| 6 | 6 |
|
| 7 | 7 |
use Carp 'croak'; |
| ... | ... |
@@ -1417,7 +1417,11 @@ sub _quote {
|
| 1417 | 1417 |
sub _q {
|
| 1418 | 1418 |
my ($self, $value, $quotemeta) = @_; |
| 1419 | 1419 |
|
| 1420 |
- my $quote = $self->_quote; |
|
| 1420 |
+ my $quote = $self->{reserved_word_quote}
|
|
| 1421 |
+ || $self->{quote} || $self->quote || '';
|
|
| 1422 |
+ return "$quote$value$quote" |
|
| 1423 |
+ if !$quotemeta && ($quote eq '`' || $quote eq '"'); |
|
| 1424 |
+ |
|
| 1421 | 1425 |
my $q = substr($quote, 0, 1) || ''; |
| 1422 | 1426 |
my $p; |
| 1423 | 1427 |
if (defined $quote && length $quote > 1) {
|