| ... | ... |
@@ -1,3 +1,6 @@ |
| 1 |
+0.1707 |
|
| 2 |
+ - removed some EXPERIMENTAL status |
|
| 3 |
+ - fixed performance |
|
| 1 | 4 |
0.1706 |
| 2 | 5 |
- Added execute method's query option document |
| 3 | 6 |
You can get more performance. |
| ... | ... |
@@ -1,7 +1,7 @@ |
| 1 | 1 |
package DBIx::Custom; |
| 2 | 2 |
use Object::Simple -base; |
| 3 | 3 |
|
| 4 |
-our $VERSION = '0.1706'; |
|
| 4 |
+our $VERSION = '0.1707'; |
|
| 5 | 5 |
use 5.008001; |
| 6 | 6 |
|
| 7 | 7 |
use Carp 'croak'; |
| ... | ... |
@@ -2156,7 +2156,6 @@ Parameter is replaced by placeholder C<?>. |
| 2156 | 2156 |
select * from where title = ? and author like ?; |
| 2157 | 2157 |
|
| 2158 | 2158 |
You can specify operator with parameter by C<name{operator}> syntax.
|
| 2159 |
-This is EXPERIMENTAL. |
|
| 2160 | 2159 |
|
| 2161 | 2160 |
# Before |
| 2162 | 2161 |
select * from book where :title{=} and :author{like}
|
| ... | ... |
@@ -19,7 +19,7 @@ sub build_query {
|
| 19 | 19 |
|
| 20 | 20 |
# Parse tag. tag is DEPRECATED! |
| 21 | 21 |
$self->{_tag_parse} = 1 unless defined $self->{_tag_parse};
|
| 22 |
- if ($self->{_tag_parse} && $source =~ /\{/ && $source =~ /\}/) {
|
|
| 22 |
+ if ($self->{_tag_parse} && $source =~ /(\s|^)\{/) {
|
|
| 23 | 23 |
$query = $self->_parse_tag($source); |
| 24 | 24 |
my $tag_count = delete $query->{tag_count};
|
| 25 | 25 |
warn qq/Tag system such as {? name} is DEPRECATED! / .
|