@@ -1,4 +1,6 @@

 0.1667

+    - renamed update_param to update_param_tag, update_param is DEPRECATED!

+    - renamed insert_param to insert_param_tag, insert_param is DEPRECATED!

     - added EXPERIMENTAL updat_param no_set option.

     - added EXPERIMENTAL reserved_word_quote attribute.

 0.1666

@@ -1,6 +1,6 @@

 package DBIx::Custom;

-our $VERSION = '0.1668';

+our $VERSION = '0.1669';

 use 5.008001;

 use strict;

@@ -651,7 +651,7 @@ sub insert_at {

     return $self->insert(param => $param, %args);

 }

-sub insert_param {

+sub insert_param_tag {

     my ($self, $param) = @_;

     # Insert parameter tag

@@ -1178,7 +1178,7 @@ sub update_at {

     return $self->update(where => $where, param => $param, %args);

 }

-sub update_param {

+sub update_param_tag {

     my ($self, $param, $opt) = @_;

     # Insert parameter tag

@@ -1463,11 +1463,24 @@ sub default_fetch_filter {

     return $self->{default_in_filter};

 }

+# DEPRECATED!

+sub insert_param {

+    warn "insert_param is renamed to insert_param_tag."

+       . " insert_param is DEPRECATED!";

+    return shift->insert_param_tag(@_);

+}

+

 # DEPRECATED!

 sub register_tag_processor {

     return shift->query_builder->register_tag_processor(@_);

 }

+# DEPRECATED!

+sub update_param {

+    warn "update_param is renamed to update_param_tag."

+       . " update_param is DEPRECATED!";

+    return shift->update_param_tag(@_);

+}

 # DEPRECATED!

 sub _push_relation {

     my ($self, $sql, $tables, $relation, $need_where) = @_;

@@ -2172,9 +2185,9 @@ Place holders are set to 5 and 'Perl'.

 =back

-=head2 C<insert_param>

+=head2 C<insert_param_tag>

-    my $insert_param = $dbi->insert_param({title => 'a', age => 2});

+    my $insert_param_tag = $dbi->insert_param_tag({title => 'a', age => 2});

 Create insert parameter tag.

@@ -2741,17 +2754,18 @@ Place holders are set to 'Perl' and 5.

 =back

-=head2 C<update_param>

+=head2 C<update_param_tag>

-    my $update_param = $dbi->update_param({title => 'a', age => 2});

+    my $update_param_tag = $dbi->update_param_tag({title => 'a', age => 2});

 Create update parameter tag.

     set title = {? title}, author = {? author}

-You can create tag without 'set ' by C<no_set> option. This option is EXPERIMENTAL.

+You can create tag without 'set '

+by C<no_set> option. This option is EXPERIMENTAL.

-    my $update_param = $dbi->update_param(

+    my $update_param_tag = $dbi->update_param_tag(

         {title => 'a', age => 2}

         {no_set => 1}

     );

@@ -1775,7 +1775,7 @@ $dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4

 $dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});

 $param = {key2 => 11};

-$update_param = $dbi->update_param($param);

+$update_param = $dbi->update_param_tag($param);

 $sql = <<"EOS";

 update {table table1} $update_param

 where key1 = 1

@@ -1794,7 +1794,7 @@ $dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4

 $dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});

 $param = {key2 => 11, key3 => 33};

-$update_param = $dbi->update_param($param);

+$update_param = $dbi->update_param_tag($param);

 $sql = <<"EOS";

 update {table table1} $update_param

 where key1 = 1

@@ -1812,7 +1812,7 @@ $dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4

 $dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});

 $param = {key2 => 11, key3 => 33};

-$update_param = $dbi->update_param($param, {no_set => 1});

+$update_param = $dbi->update_param_tag($param, {no_set => 1});

 $sql = <<"EOS";

 update {table table1} set $update_param

 where key1 = 1

@@ -1825,7 +1825,7 @@ is_deeply($rows, [{key1 => 1, key2 => 11, key3 => 33, key4 => 4, key5 => 5},

                   "update param no_set");

-eval { $dbi->update_param({";" => 1}) };

+eval { $dbi->update_param_tag({";" => 1}) };

 like($@, qr/not safety/);

@@ -1833,7 +1833,7 @@ test 'insert_param';

 $dbi = DBIx::Custom->connect($NEW_ARGS->{0});

 $dbi->execute($CREATE_TABLE->{1});

 $param = {key1 => 1, key2 => 2};

-$insert_param = $dbi->insert_param($param);

+$insert_param = $dbi->insert_param_tag($param);

 $sql = <<"EOS";

 insert into {table table1} $insert_param

 EOS

@@ -1845,7 +1845,7 @@ $dbi = DBIx::Custom->connect($NEW_ARGS->{0});

 $dbi->reserved_word_quote('"');

 $dbi->execute($CREATE_TABLE->{1});

 $param = {key1 => 1, key2 => 2};

-$insert_param = $dbi->insert_param($param);

+$insert_param = $dbi->insert_param_tag($param);

 $sql = <<"EOS";

 insert into {table table1} $insert_param

 EOS

@@ -1853,7 +1853,7 @@ $dbi->execute($sql, param => $param);

 is($dbi->select(table => 'table1')->fetch_hash_first->{key1}, 1);

 is($dbi->select(table => 'table1')->fetch_hash_first->{key2}, 2);

-eval { $dbi->insert_param({";" => 1}) };

+eval { $dbi->insert_param_tag({";" => 1}) };

 like($@, qr/not safety/);