@@ -604,11 +604,11 @@ sub select {

     my $columns          = ref $_[0] eq 'ARRAY' ? shift : [];

     my $where_params     = ref $_[0] eq 'HASH'  ? shift : {};

-    my $append_statement = shift unless ref $_[0] || '';

+    my $append_statement = $_[0] && !ref $_[0]  ? shift : '';

     my $query_edit_cb    = shift if ref $_[0] eq 'CODE';

     # Check rest argument

-    croak($self->_select_usage) unless @_;

+    croak($self->_select_usage) if @_;

     # SQL template for select statement

     my $template = 'select ';

@@ -618,13 +618,14 @@ sub select {

         foreach my $column (@$columns) {

             $template .= "$column, ";

         }

-        $template .= s/, $/ /;

+        $template =~ s/, $/ /;

     }

     else {

         $template .= '* ';

     }

     # Join table

+    $template .= 'from ';

     foreach my $table (@$tables) {

         $template .= "$table, ";

     }

@@ -632,8 +632,15 @@ $dbi = DBI::Custom->new($NEW_ARGS->{0});

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

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

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

-

-$rows = $dbi->select('table1')->fetch_hash_all;

+$rows = $dbi->select('table1')->fetch_all_hash;

 is_deeply($rows, [{key1 => 1, key2 => 2},

                   {key1 => 3, key2 => 4}], "$test : table");

+$rows = $dbi->select('table1', ['key1'])->fetch_all_hash;

+is_deeply($rows, [{key1 => 1}, {key1 => 3}], "$test : table and columns and where key");

+

+$rows = $dbi->select('table1', {key1 => 1})->fetch_all_hash;

+is_deeply($rows, [{key1 => 1, key2 => 2}], "$test : table and columns and where key");

+

+$rows = $dbi->select('table1', ['key1'], {key1 => 3})->fetch_all_hash;

+is_deeply($rows, [{key1 => 3}], "$test : table and columns and where key");