@@ -1,3 +1,5 @@

+0.1681

+    - added EXPERIMENTAL assign_tag() method

 0.1680

     - DEPRECATED select() param option, this is renamed to where_param

     - added select(), update(), and delete() where_param option

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

 package DBIx::Custom;

-our $VERSION = '0.1680';

+our $VERSION = '0.1681';

 use 5.008001;

 use strict;

@@ -151,6 +151,26 @@ sub apply_filter {

     return $self;

 }

+

+sub assign_tag {

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

+    

+    # Create set tag

+    my @params;

+    my $safety = $self->safety_character;

+    my $q = $self->reserved_word_quote;

+    foreach my $column (keys %$param) {

+        croak qq{"$column" is not safety column name } . _subname

+          unless $column =~ /^[$safety\.]+$/;

+        my $column = "$q$column$q";

+        $column =~ s/\./$q.$q/;

+        push @params, "$column = {? $column}";

+    }

+    my $tag = join(', ', @params);

+    

+    return $tag;

+}

+

 sub column {

     my ($self, $table, $columns) = @_;

@@ -1084,20 +1104,9 @@ sub update_param_tag {

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

     # Create update parameter tag

-    my @params;

-    my $safety = $self->safety_character;

-    my $q = $self->reserved_word_quote;

-    foreach my $column (keys %$param) {

-        croak qq{"$column" is not safety column name } . _subname

-          unless $column =~ /^[$safety\.]+$/;

-        my $column = "$q$column$q";

-        $column =~ s/\./$q.$q/;

-        push @params, "$column = {? $column}";

-    }

-    my $tag;

-    $tag .= 'set ' unless $opt->{no_set};

-    $tag .= join(', ', @params);

-    

+    my $tag = $self->assign_tag($param);

+    $tag = "set $tag" unless $opt->{no_set};

+

     return $tag;

 }

@@ -1732,6 +1741,16 @@ You can set multiple filters at once.

         }

     );

+=head2 C<assign_tag> EXPERIMENTAL

+

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

+

+Create assign tag.

+

+    title = {? title}, author = {? author}

+

+This is equal to C<update_param_tag> exept that set is not added.

+

 =head2 C<connect>

     my $dbi = DBIx::Custom->connect(

@@ -1792,7 +1792,7 @@ $result = $model->select(

 is_deeply($result->fetch_hash_first,

           {key1 => 1, key2 => 2, 'table2__key1' => 1, 'table2__key3' => 3});

-test 'update_param';

+test 'update_param_tag';

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

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

 $dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});

@@ -1853,6 +1853,27 @@ eval { $dbi->update_param_tag({";" => 1}) };

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

+test 'set_tag';

+test 'update_param_tag';

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

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

+$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});

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

+

+$param = {key2 => 11};

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

+$sql = <<"EOS";

+update {table table1} set $update_param

+where key1 = 1

+EOS

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

+$result = $dbi->execute($SELECT_SOURCES->{0});

+$rows   = $result->fetch_hash_all;

+is_deeply($rows, [{key1 => 1, key2 => 11, key3 => 3, key4 => 4, key5 => 5},

+                  {key1 => 6, key2 => 7,  key3 => 8, key4 => 9, key5 => 10}],

+                  "basic");

+

+

 test 'insert_param';

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

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