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