| ... | ... | @@ -844,6 +844,8 @@ sub select { | 
| 844 | 844 | : []; | 
| 845 | 845 |      $opt{table} = $tables; | 
| 846 | 846 |      my $where_param = $opt{where_param} || delete $opt{param} || {}; | 
| 847 | + warn "select method where_param option is DEPRECATED!" | |
| 848 | +      if $opt{where_param}; | |
| 847 | 849 |  | 
| 848 | 850 | # Add relation tables(DEPRECATED!); | 
| 849 | 851 |      if ($opt{relation}) { |