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

+0.1682

+    - fixed merge_param bug

 0.1681

     - added EXPERIMENTAL assign_tag() method

 0.1680

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

 package DBIx::Custom;

-our $VERSION = '0.1681';

+our $VERSION = '0.1682';

 use 5.008001;

 use strict;

@@ -730,21 +730,24 @@ sub merge_param {

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

     # Merge parameters

-    my $param = {};

-    foreach my $p (@params) {

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

-            if (exists $param->{$column}) {

-                $param->{$column} = [$param->{$column}]

-                  unless ref $param->{$column} eq 'ARRAY';

-                push @{$param->{$column}}, $p->{$column};

+    my $merge = {};

+    foreach my $param (@params) {

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

+            my $param_is_array = ref $param->{$column} eq 'ARRAY' ? 1 : 0;

+            

+            if (exists $merge->{$column}) {

+                $merge->{$column} = [$merge->{$column}]

+                  unless ref $merge->{$column} eq 'ARRAY';

+                push @{$merge->{$column}},

+                  ref $param->{$column} ? @{$param->{$column}} : $param->{$column};

             }

             else {

-                $param->{$column} = $p->{$column};

+                $merge->{$column} = $param->{$column};

             }

         }

     }

-    return $param;

+    return $merge;

 }

 sub method {

@@ -2132,6 +2132,14 @@ test 'merge_param';

     is_deeply($param, {key1 => [1, 1, 1], key2 => [2, 2], key3 => 3});

 }

+{

+    my $dbi = DBIx::Custom->new;

+    my $param1 = {key1 => [1, 2], key2 => 1, key3 => [1, 2]};

+    my $param2 = {key1 => [3, 4], key2 => [2, 3], key3 => 3};

+    my $param = $dbi->merge_param($param1, $param2);

+    is_deeply($param, {key1 => [1, 2, 3, 4], key2 => [1, 2, 3], key3 => [1, 2, 3]});

+}

+

 test 'select() param option';

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

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