$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;