... | ... |
@@ -329,7 +329,7 @@ sub execute { |
329 | 329 |
$filter ||= $query->filter; |
330 | 330 |
|
331 | 331 |
# Tables |
332 |
- unshift @$tables, @{$query->tables}; |
|
332 |
+ unshift @$tables, @{$query->{tables} || []}; |
|
333 | 333 |
my $main_table = pop @$tables; |
334 | 334 |
$tables = $self->_remove_duplicate_table($tables, $main_table); |
335 | 335 |
if (my $q = $self->_quote) { |
... | ... |
@@ -1135,7 +1135,7 @@ sub _create_query { |
1135 | 1135 |
{ |
1136 | 1136 |
sql => $query->sql, |
1137 | 1137 |
columns => $query->columns, |
1138 |
- tables => $query->tables |
|
1138 |
+ tables => $query->{tables} || [] |
|
1139 | 1139 |
} |
1140 | 1140 |
) if $cache; |
1141 | 1141 |
} |
... | ... |
@@ -19,11 +19,21 @@ sub filters { |
19 | 19 |
} |
20 | 20 |
return $self->{filters}; |
21 | 21 |
} |
22 |
-has tables => sub { [] }; |
|
22 |
+ |
|
23 |
+# DEPRECATED! |
|
24 |
+sub tables { |
|
25 |
+ warn "DBIx::Custom::Query tables attribute method is DEPRECATED!"; |
|
26 |
+ my $self = shift; |
|
27 |
+ if (@_) { |
|
28 |
+ $self->{tables} = $_[0]; |
|
29 |
+ return $self; |
|
30 |
+ } |
|
31 |
+ return $self->{tables} ||= []; |
|
32 |
+} |
|
23 | 33 |
|
24 | 34 |
#DEPRECATED! |
25 | 35 |
sub filter { |
26 |
- warn "DBIx::Custom::Query filter method is DEPRECATED!"; |
|
36 |
+ #warn "DBIx::Custom::Query filter method is DEPRECATED!"; |
|
27 | 37 |
my $self = shift; |
28 | 38 |
if (@_) { |
29 | 39 |
my $filter = {}; |