my @handle_tests = (
{
+ where => 'foo',
+ order => [],
+ stmt => ' WHERE foo',
+ bind => [],
+ },
+ {
where => {
requestor => 'inna',
worker => ['nwiger', 'rcwe', 'sfz'],
stmt => " WHERE ( 0 ) ",
bind => [ ],
},
+ {
+ where => { artistid => {} },
+ stmt => '',
+ bind => [ ],
+ },
+ {
+ where => [ -and => [ {}, [] ], -or => [ {}, [] ] ],
+ stmt => '',
+ bind => [ ],
+ },
+ {
+ where => { '=' => \'bozz' },
+ stmt => 'WHERE = bozz',
+ bind => [ ],
+ },
);
for my $case (@handle_tests) {