... | ... |
@@ -238,14 +238,17 @@ sub create_model { |
238 | 238 |
$model->name($model_name) unless $model->name; |
239 | 239 |
$model->table($model_table) unless $model->table; |
240 | 240 |
|
241 |
- # Apply filter |
|
242 |
- my $filter = ref $model->filter eq 'HASH' |
|
243 |
- ? [%{$model->filter}] |
|
244 |
- : $model->filter; |
|
245 |
- warn "DBIx::Custom::Model filter method is DEPRECATED!" |
|
246 |
- if @$filter; |
|
247 |
- $self->_apply_filter($model->table, @$filter); |
|
248 |
- |
|
241 |
+ # Apply filter(DEPRECATED logic) |
|
242 |
+ if ($model->{filter}) { |
|
243 |
+ my $filter = ref $model->filter eq 'HASH' |
|
244 |
+ ? [%{$model->filter}] |
|
245 |
+ : $model->filter; |
|
246 |
+ $filter ||= []; |
|
247 |
+ warn "DBIx::Custom::Model filter method is DEPRECATED!" |
|
248 |
+ if @$filter; |
|
249 |
+ $self->_apply_filter($model->table, @$filter); |
|
250 |
+ } |
|
251 |
+ |
|
249 | 252 |
# Set model |
250 | 253 |
$self->model($model->name, $model); |
251 | 254 |
|
... | ... |
@@ -99,7 +99,7 @@ sub new { |
99 | 99 |
} |
100 | 100 |
|
101 | 101 |
# DEPRECATED! |
102 |
-has filter => sub { [] }; |
|
102 |
+has 'filter'; |
|
103 | 103 |
has 'name'; |
104 | 104 |
has type => sub { [] }; |
105 | 105 |
|