... | ... |
@@ -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}) { |