13 521
правка
Изменения
Funq
,→Пример 5: Вложенный подзапрос
<source lang="perl">
$dbhfunq->query(entity => "t0")
->where("t0.?t0where and ?subq in ?tagcount")
->select("t0.*, ?subq as t0.tag_count")
->curry(subq => $dbhfunq
->query(tag2entity => "t1")
->where("t1.pid=t0.pid and t1.eid=t0.eid")
->where("t1.config in ?list")
->curry(list => $dbhfunq->query("configs"))
->count->value
)