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

 0.1678

     - DBIx::Custom::Model filter attribute can receive hash reference

+    - DBIx::Custom::Where clause attribute can receive clause without column name.

 0.1677

     - improved table search in column and join clause

     - DEPRECATED table tag. use table option.

@@ -70,11 +70,20 @@ sub _parse {

     # String

     else {

+        # Pushed

+        my $pushed;

         # Column

         my $columns = $self->query_builder->build_query($clause)->columns;

-        croak qq{Each tag contains one column name: tag "$clause"}

-          unless @$columns == 1;

+        if (@$columns == 0) {

+            push @$where, $clause;

+            $pushed = 1;

+            return $pushed;

+        }

+        elsif (@$columns != 1) {

+            croak qq{Each tag contains one column name: tag "$clause"}

+        }

+

         my $column = $columns->[0];

         if (my $q = $self->reserved_word_quote) {

             $column =~ s/$q//g;

@@ -89,7 +98,6 @@ sub _parse {

         # Push

         my $param = $self->param;

-        my $pushed;

         if (ref $param eq 'HASH') {

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

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

@@ -1249,6 +1249,15 @@ $result = $dbi->select(

 $row = $result->fetch_hash_all;

 is_deeply($row, [{key1 => 1, key2 => 2}], 'not_exists');

+$where = $dbi->where

+             ->clause(['and', 'key1 is not null', 'key2 is not null' ]);

+$result = $dbi->select(

+    table => 'table1',

+    where => $where,

+);

+$row = $result->fetch_hash_all;

+is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], 'not_exists');

+

 test 'dbi_option default';

 $dbi = DBIx::Custom->new;

 is_deeply($dbi->dbi_option, {});