... | ... |
@@ -844,9 +844,8 @@ sub new { |
844 | 844 |
'insert_param' => \&DBIx::Custom::Tag::insert_param, |
845 | 845 |
'update_param' => \&DBIx::Custom::Tag::update_param |
846 | 846 |
}; |
847 |
- |
|
848 |
- # DEPRECATED! |
|
849 |
- $self->{tag_parse} = 1; |
|
847 |
+ $self->{tag_parse} = 1 unless exists $self->{tag_parse}; |
|
848 |
+ $self->{cache} = 0 unless exists $self->{cache}; |
|
850 | 849 |
|
851 | 850 |
return $self; |
852 | 851 |
} |
... | ... |
@@ -1226,7 +1225,7 @@ sub _create_query { |
1226 | 1225 |
my ($self, $source, $after_build_sql) = @_; |
1227 | 1226 |
|
1228 | 1227 |
# Cache |
1229 |
- my $cache = $self->cache; |
|
1228 |
+ my $cache = $self->{cache}; |
|
1230 | 1229 |
|
1231 | 1230 |
# Query |
1232 | 1231 |
my $query; |
... | ... |
@@ -93,7 +93,7 @@ sub _parse { |
93 | 93 |
my $c = $self->{_safety_character}; |
94 | 94 |
|
95 | 95 |
my $column; |
96 |
- if ($self->{_tag_parse} && $clause =~ /(\s|^)\{/) { |
|
96 |
+ if ($self->{_tag_parse} && ($clause =~ /\s\{/ || $clause =~ /^\{/)) { |
|
97 | 97 |
my $columns = $self->dbi->query_builder->build_query($clause)->{columns}; |
98 | 98 |
$column = $columns->[0]; |
99 | 99 |
} |