| ... | ... |
@@ -1,5 +1,7 @@ |
| 1 | 1 |
0.1704 |
| 2 |
- - added EXPERIMENTAL parameter new syntax :name(operator) |
|
| 2 |
+ - added quote method's two character support like [] |
|
| 3 |
+ for Microsoft SQL Server and Access |
|
| 4 |
+ - added EXPERIMENTAL parameter new syntax :name{operator}
|
|
| 3 | 5 |
0.1703 |
| 4 | 6 |
- added EXPERIMENTAL join new syntax. |
| 5 | 7 |
0.1702 |
| ... | ... |
@@ -1375,6 +1375,16 @@ sub _quote {
|
| 1375 | 1375 |
: ''; |
| 1376 | 1376 |
} |
| 1377 | 1377 |
|
| 1378 |
+sub _q {
|
|
| 1379 |
+ my $self = shift; |
|
| 1380 |
+ |
|
| 1381 |
+ my $quote = $self->_quote; |
|
| 1382 |
+ my $q = substr($quote, 0, 1) || ''; |
|
| 1383 |
+ my $p = substr($quote, 1, 1) || $q || ''; |
|
| 1384 |
+ |
|
| 1385 |
+ return ($q, $p); |
|
| 1386 |
+} |
|
| 1387 |
+ |
|
| 1378 | 1388 |
sub _remove_duplicate_table {
|
| 1379 | 1389 |
my ($self, $tables, $main_table) = @_; |
| 1380 | 1390 |
|