Showing 4 changed files with 12 additions and 10 deletions
+2
Changes
... ...
@@ -1,3 +1,5 @@
1
+0.1614
2
+  fixed Carp Carp trust relationship
1 3
 0.1613
2 4
   added experimental register_method() method
3 5
   added experimental methods attribute
+3 -5
lib/DBIx/Custom.pm
... ...
@@ -339,10 +339,8 @@ sub create_query {
339 339
         my $builder = $self->query_builder;
340 340
         
341 341
         # Create query
342
-        {
343
-            local $Carp::CarpLevel += 1;
344
-            $query = $builder->build_query($source);
345
-        }
342
+        $query = $builder->build_query($source);
343
+
346 344
         # Cache query
347 345
         $self->cache_method->($self, $source,
348 346
                              {sql     => $query->sql, 
... ...
@@ -506,7 +504,7 @@ DBIx::Custom - DBI interface, having hash parameter binding and filtering system
506 504
 
507 505
 =cut
508 506
 
509
-our $VERSION = '0.1613';
507
+our $VERSION = '0.1614';
510 508
 
511 509
 =head1 STABILITY
512 510
 
+4 -5
lib/DBIx/Custom/QueryBuilder.pm
... ...
@@ -9,6 +9,9 @@ use Carp 'croak';
9 9
 use DBIx::Custom::Query;
10 10
 use DBIx::Custom::QueryBuilder::TagProcessors;
11 11
 
12
+# Carp trust relationship
13
+push @DBIx::Custom::CARP_NOT, __PACKAGE__;
14
+
12 15
 __PACKAGE__->dual_attr('tag_processors', default => sub { {} }, inherit => 'hash_copy');
13 16
 __PACKAGE__->register_tag_processor(
14 17
     '?'     => \&DBIx::Custom::QueryBuilder::TagProcessors::expand_placeholder_tag,
... ...
@@ -137,11 +140,7 @@ sub _build_query {
137 140
               unless ref $tag_processor eq 'CODE';
138 141
             
139 142
             # Execute tag processor
140
-            my $r;
141
-            {
142
-                local $Carp::CarpLevel += 1;
143
-                $r = $tag_processor->(@$tag_args);
144
-            }
143
+            my $r = $tag_processor->(@$tag_args);
145 144
             
146 145
             # Check tag processor return value
147 146
             croak qq{Tag processor "$tag_name" must return [STRING, ARRAY_REFERENCE]}
+3
lib/DBIx/Custom/QueryBuilder/TagProcessors.pm
... ...
@@ -5,6 +5,9 @@ use warnings;
5 5
 
6 6
 use Carp 'croak';
7 7
 
8
+# Carp trust relationship
9
+push @DBIx::Custom::QueryBuilder::CARP_NOT, __PACKAGE__;
10
+
8 11
 sub _expand_basic_tag {
9 12
     my ($name, $column) = @_;
10 13