@@ -1,4 +1,5 @@

 0.1742

+    - fixed where clause parsing bug when time(like 00:00:00) contain

     - fixed update_or_insert method bug

     - micro optimization

 0.1741

@@ -1,7 +1,7 @@

 package DBIx::Custom;

 use Object::Simple -base;

-our $VERSION = '0.1742';

+our $VERSION = '0.1743';

 use 5.008001;

 use Carp 'croak';

@@ -109,11 +109,17 @@ sub _parse {

         my $c = $self->{_safety_character};

         my $column;

-        if ($clause =~ /(\s|^)\{/ && $self->{_tag_parse}) {

+        if ($self->{_tag_parse} && $clause =~ /(\s|^)\{/) {

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

             $column = $columns->[0];

         }

-        else { ($column) = $clause =~ /:([$c\.]+)/ }

+        else {

+            my $sql = $clause;

+            $sql =~ s/([0-9]):/$1\\:/g;

+            if ($sql =~ /[^\\]:([$c\.]+)/s || $sql =~ /^:([$c\.]+)/s) {

+                ($column) = $1;

+            }

+        }

         unless (defined $column) {

             push @$where, $clause;

             $pushed = 1;

@@ -1788,6 +1788,23 @@ $result = $dbi->execute("select * from $table1 $where", {$key1 => [0, 1]});

 $row = $result->all;

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

+

+$dbi = DBIx::Custom->connect;

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

+$dbi->execute($create_table1);

+$dbi->insert(table => $table1, param => {$key1 => 1, $key2 => '00:00:00'});

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

+$where = $dbi->where

+             ->clause(['and', "$key1 = :$key1", "$key2 = '00:00:00'"])

+             ->param({$key1 => 1});

+

+$result = $dbi->select(

+    table => $table1,

+    where => $where

+);

+$row = $result->all;

+is_deeply($row, [{$key1 => 1, $key2 => '00:00:00'}]);

+

 test 'register_tag_processor';

 $dbi = DBIx::Custom->connect;

 $dbi->register_tag_processor(