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

 0.2101

+    - select method can receive odd number argument. In that case first argument

+      is column option.

     - fixed update_or_insert bug that when parameter don't contain any key-value

       this method throw exception.

 0.2100

@@ -892,7 +892,10 @@ sub register_filter {

 }

 sub select {

-    my ($self, %opt) = @_;

+    my $self = shift;

+    my $column = shift if @_ % 2;

+    my %opt = @_;

+    $opt{column} = $column if defined $column;

     # Options

     my $tables = ref $opt{table} eq 'ARRAY' ? $opt{table}

@@ -2955,13 +2958,18 @@ Register filters, used by C<filter> option of many methods.

 =head2 C<select>

     my $result = $dbi->select(

-        table  => 'book',

         column => ['author', 'title'],

+        table  => 'book',

         where  => {author => 'Ken'},

     );

 Execute select statement.

+You can pass odd number arguments. first argument is C<column>.

+This is EXPERIMENTAL.

+

+    my $result = $dbi->select(['author', 'title'], table => 'book');

+

 B<OPTIONS>

 C<select> method use all of C<execute> method's options,

@@ -267,6 +267,12 @@ $model = $dbi->create_model(table => $table1);

 $model->insert({$key1 => 1, $key2 => 2});

 is_deeply($model->select->all, [{$key1 => 1, $key2 => 2}]);

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

+$dbi->execute($create_table1);

+$model = $dbi->create_model(table => $table1);

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

+is_deeply($model->select($key1)->all, [{$key1 => 1}]);

+

 test 'DBIx::Custom::Result test';

 $dbi->delete_all(table => $table1);

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

@@ -1121,6 +1127,12 @@ $result = $dbi->select(table => 'table', where => {select => 1});

 $rows   = $result->all;

 is_deeply($rows, [{select => 2, update => 2}], "reserved word");

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

+$dbi->execute($create_table1);

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

+$row = $dbi->select($key1, table => $table1)->one;

+is_deeply($row, {$key1 => 1});

+

 test 'fetch filter';

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

 $dbi->register_filter(