@@ -1,4 +1,5 @@

 0.1699

+    - added tag_parse attribute.

     - added EXPERIMENTAL order method

     - added EXPERIMENTAL DBIx::Custom::Order module

     - changed backword compatible policy

@@ -56,7 +56,8 @@ has [qw/connector dsn password quote user/],

     query_builder => sub { DBIx::Custom::QueryBuilder->new },

     result_class  => 'DBIx::Custom::Result',

     safety_character => '\w',

-    stash => sub { {} };

+    stash => sub { {} },

+    tag_parse => 1;

 our $AUTOLOAD;

 sub AUTOLOAD {

@@ -1138,6 +1139,7 @@ sub _create_query {

         # Create query

         my $builder = $self->query_builder;

+        $builder->{_tag_parse} = $self->tag_parse;

         $query = $builder->build_query($source);

         # Remove reserved word quote

@@ -1932,6 +1934,14 @@ Result class, default to L<DBIx::Custom::Result>.

 Regex of safety character for table and column name, default to '\w'.

 Note that you don't have to specify like '[\w]'.

+=head2 C<tag_parse>

+

+    my $tag_parse = $dbi->tag_parse(0);

+    $dbi = $dbi->tag_parse;

+

+Enable DEPRECATED tag parsing functionality, default to 1.

+If you want to disable tag parsing functionality, set to 0.

+

 =head2 C<user>

     my $user = $dbi->user;

@@ -2948,6 +2958,7 @@ L<DBIx::Custom>

     dbi_options # Removed at 2017/1/1

     filter_check # Removed at 2017/1/1

     reserved_word_quote # Removed at 2017/1/1

+    cache_method # Removed at 2017/1/1

     # Methods

     create_query # Removed at 2017/1/1

@@ -2970,6 +2981,7 @@ L<DBIx::Custom>

     # Others

     execute("select * from {= title}"); # execute tag parsing functionality

                                         # Removed at 2017/1/1

+    Query caching # Removed at 2017/1/1

 L<DBIx::Custom::Model>

@@ -19,7 +19,8 @@ sub build_query {

     my $query;

     # Parse tag. tag is DEPRECATED!

-    if ($source =~ /\{/ && $source =~ /\}/) {

+    $self->{_tag_parse} = 1 unless defined $self->{_tag_parse};

+    if ($self->{_tag_parse} && $source =~ /\{/ && $source =~ /\}/) {

         $query = $self->_parse_tag($source);

         my $tag_count = delete $query->{tag_count};

         warn qq/Tag system such as {? name} is DEPRECATED! / .

@@ -39,9 +40,7 @@ sub build_query {

     }

     # Parse parameter

-    else {

-        $query = $self->_parse_parameter($source);

-    }

+    else { $query = $self->_parse_parameter($source) }

     my $sql = $query->sql;

     $sql .= ';' unless $source =~ /;$/;

@@ -3306,5 +3306,14 @@ $dbi = DBIx::Custom->connect(dsn => 'dbi:SQLite:dbname=:memory:');

       {key1 => 1, key2 => 3}, {key1 => 1, key2 => 1}]);

 }

+test 'tag_parse';

+$dbi = DBIx::Custom->connect(dsn => 'dbi:SQLite:dbname=:memory:');

+$dbi->tag_parse(0);

+{

+    $dbi->execute("create table table1 (key1, key2)");

+    $dbi->insert({key1 => 1, key2 => 1}, table => 'table1');

+    eval {$dbi->execute("select * from table1 where {= key1}", {key1 => 1})};

+    ok($@);

+}

 =cut