@@ -1,3 +1,5 @@

+0.1614

+  fixed Carp Carp trust relationship

 0.1613

   added experimental register_method() method

   added experimental methods attribute

@@ -339,10 +339,8 @@ sub create_query {

         my $builder = $self->query_builder;

         # Create query

-        {

-            local $Carp::CarpLevel += 1;

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

-        }

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

+

         # Cache query

         $self->cache_method->($self, $source,

                              {sql     => $query->sql, 

@@ -506,7 +504,7 @@ DBIx::Custom - DBI interface, having hash parameter binding and filtering system

 =cut

-our $VERSION = '0.1613';

+our $VERSION = '0.1614';

 =head1 STABILITY

@@ -9,6 +9,9 @@ use Carp 'croak';

 use DBIx::Custom::Query;

 use DBIx::Custom::QueryBuilder::TagProcessors;

+# Carp trust relationship

+push @DBIx::Custom::CARP_NOT, __PACKAGE__;

+

 __PACKAGE__->dual_attr('tag_processors', default => sub { {} }, inherit => 'hash_copy');

 __PACKAGE__->register_tag_processor(

     '?'     => \&DBIx::Custom::QueryBuilder::TagProcessors::expand_placeholder_tag,

@@ -137,11 +140,7 @@ sub _build_query {

               unless ref $tag_processor eq 'CODE';

             # Execute tag processor

-            my $r;

-            {

-                local $Carp::CarpLevel += 1;

-                $r = $tag_processor->(@$tag_args);

-            }

+            my $r = $tag_processor->(@$tag_args);

             # Check tag processor return value

             croak qq{Tag processor "$tag_name" must return [STRING, ARRAY_REFERENCE]}

@@ -5,6 +5,9 @@ use warnings;

 use Carp 'croak';

+# Carp trust relationship

+push @DBIx::Custom::QueryBuilder::CARP_NOT, __PACKAGE__;

+

 sub _expand_basic_tag {

     my ($name, $column) = @_;