@@ -2,6 +2,7 @@

   - added EXPERIMENTAL DBIx::Custom::Result::kv method

   - added EXPERIMENTAL DBIx::Custom::Result::flat method

   - added where => {name => [val1, val2, val3]} support

+    this is expaned to "where name in (val1, val2, val3)"

 0.2111

   - "created_at" option is renamed to "ctime" option.

     "created_at" is DEPRECATED!

@@ -1695,7 +1695,11 @@ sub _where_clause_and_param {

       my $column_quote = $self->q($c);

       $column_quote = $table_quote . '.' . $column_quote

         if defined $table_quote;

-      push @$clause, "$column_quote = :$column";

+      if (ref $where->{$column} eq 'ARRAY') {

+        my $c = join(', ', (":$column") x @{$where->{$column}});

+        push @$clause, "$column_quote in ( $c )";

+      }

+      else { push @$clause, "$column_quote = :$column" }

     }

     $w->{clause} = @$clause ? "where ( " . join(' and ', @$clause) . " ) " : '' ;

@@ -3299,23 +3303,34 @@ Table name.

 =item C<where>

-  # Hash refrence

-  where => {author => 'Ken', 'title' => 'Perl'}

+  # (1) Hash reference

+  where => {author => 'Ken', 'title' => ['Perl', 'Ruby']}

+  # -> where author = 'Ken' and title in ('Perl', 'Ruby')

-  # DBIx::Custom::Where object

+  # (2) DBIx::Custom::Where object

   where => $dbi->where(

     clause => ['and', ':author{=}', ':title{like}'],

     param  => {author => 'Ken', title => '%Perl%'}

-  );

+  )

+  # -> where author = 'Ken' and title like '%Perl%'

-  # Array reference, this is same as above

+  # (3) Array reference[Array refenrece, Hash reference]

   where => [

     ['and', ':author{=}', ':title{like}'],

     {author => 'Ken', title => '%Perl%'}

-  ];

+  ]

+  # -> where author = 'Ken' and title like '%Perl%'

+  

+  # (4) Array reference[String, Hash reference]

+  where => [

+    ':author{=} and :title{like}',

+    {author => 'Ken', title => '%Perl%'}

+  ]

+  #  -> where author = 'Ken' and title like '%Perl%'

-  # String

+  # (5) String

   where => 'title is null'

+  #  -> where title is null

 Where clause. See L<DBIx::Custom::Where>.

@@ -1351,6 +1351,21 @@ is_deeply($row, {$key1 => 1});

 eval { $dbi->select(table => $table1, where => {';' => 1}) };

 like($@, qr/safety/);

+eval { $dbi->execute("drop table $table1") };

+$dbi->execute($create_table1);

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

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

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

+

+$rows = $dbi->select(table => $table1, where => {$key1 => [1, 5]})->all;

+is_deeply($rows, [

+  {$key1 => 1, $key2 => 2},

+  {$key1 => 5, $key2 => 6}

+], "table");

+

+$rows = $dbi->select(table => $table1, where => {$key1 => []})->all;

+is_deeply($rows, [], "table");

+

 test 'fetch filter';

 eval { $dbi->execute("drop table $table1") };

 $dbi->register_filter(