@@ -1,3 +1,6 @@

+0.1615

+  fixed DBIx::Custom::QueryBuilder build_query() bug

+  required Perl 5.008001 to use @CARP_NOT 

 0.1614

   removed DBIx::Custom::Query start_tag and end tag attributes

   enable escaping '{' and '}' in the source of SQL

@@ -1,5 +1,8 @@

 package DBIx::Custom;

+our $VERSION = '0.1615';

+

+use 5.008001;

 use strict;

 use warnings;

@@ -498,14 +501,12 @@ sub AUTOLOAD {

    return $self->methods->{$method}->($self, @_);

 }

+1;

+

 =head1 NAME

 DBIx::Custom - DBI interface, having hash parameter binding and filtering system

-=cut

-

-our $VERSION = '0.1614';

-

 =head1 STABILITY

 B<This module is not stable>.

@@ -68,11 +68,14 @@ sub _parse {

     my $before = '';

     # Position

-    my $pos;

+    my $pos = 0;

     # Parse

     my $original = $source;

-    while (my $c = substr($source, 0, 1, '')) {

+    while (defined(my $c = substr($source, $pos, 1))) {

+        

+        # Last

+        last unless length $c;

         # State is text

         if ($state eq 'text') {

@@ -147,15 +147,19 @@ like($@, qr/\QColumn name and count of values must be specified in tag "{in }"/,

 test 'variouse source';

 $source = "a {= b} c \\{ \\} {= \\{} {= \\}} d;";

 $query = $builder->build_query($source);

-is($query->sql, 'a b = ? c { } { = ? } = ? d;', "$test : 1");

+is($query->sql, 'a b = ? c { } { = ? } = ? d;', "$test : basic : 1");

 $source = "abc;";

 $query = $builder->build_query($source);

-is($query->sql, 'abc;', "$test : 2");

+is($query->sql, 'abc;', "$test : basic : 2");

 $source = "{= a}";

 $query = $builder->build_query($source);

-is($query->sql, 'a = ?;', "$test : 3");

+is($query->sql, 'a = ?;', "$test : only tag");

+

+$source = "000;";

+$query = $builder->build_query($source);

+is($query->sql, '000;', "$test : contain 0 value");

 $source = "a {= b} }";

 eval{$builder->build_query($source)};

@@ -165,3 +169,4 @@ $source = "a {= {}";

 eval{$builder->build_query($source)};

 like($@, qr/unexpected "{"/, "$test : error : 2");

+