... | ... |
@@ -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 |
... | ... |
@@ -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 |
|
... | ... |
@@ -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]} |
... | ... |
@@ -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 |
|