Working against a MSSQL backend this code generates the following SQL:
my $cols;
$$cols{id} = 65;
$$cols{url} = 'test';
BirdWeb::Admin::Model::Production->resultset('Urls')->update_or_create(
$cols );
SQL:
SELECT me.id, me.url, me.last_checked, me.last_status FROM urls X me WHERE (
( id = ? ) ) AND
(
SELECT COUNT(*) FROM urls WHERE me > X.me
)
< 1
ORDER BY me DESC
The same code running against a MySQL backend works fine.
- Alan
_______________________________________________
List: http://lists.rawmode.org/cgi-bin/mailman/listinfo/dbix-class
Wiki: http://dbix-class.shadowcatsystems.co.uk/
IRC: irc.perl.org#dbix-class
SVN: http://dev.catalyst.perl.org/repos/bast/trunk/DBIx-Class/
