$query => ''
$search => ''
$dated => ''
$zot
use PAPO::DataSource;
my $ds = PAPO::DataSource->new($zot);
$ds->search($_)
foreach split /,/, $search;
$ds->query($_)
foreach split /,/, $query;
$ds->dated(/^(.*)=(.*)$/)
foreach split /,/, $dated;
delete @ARGS{'query', 'search', 'dated', 'zot'};
$ds->attributes(%ARGS);
$ds->condition->raw($PARM);
$OUTPUT .= $ds->datasource;