Не в курсе, я ci настроил чтобы через нее ходил, а дальше там уже безопасники смотрели

А результат смотрения есть? А аудит результатов?

А то я то же настроил посылку логов себе на почту

и сразу сделал фильтр помечания прочтенным?

Нет, просто процмайл сразу отдельно все складывает

Зачем засорять основной мэйлбокс?

ты не поверишь, сколько же их на самом деле можно прочитать. я только иксесы пропускал, поскольку не разбираюсь с ними регулярно. а остальной перловый текст практически большинства используемых модулей вычитывал...

Да? А ты попробуй!

кто не в анси квотесах пускает сервер, тот похапешник

Значит, ваятели дистропакетов - пэхапэшники !

Вполне возможно

ну так кто ж не будет поддерживать анси? тока похапешник

Народ, есть логическая загвоздка, что-то я впал в ступор.
Существует функция run_queries, на вход ей приходит список "триад" в таком виде:
[SQL0, SUBST0, BINDS0], [SQL1, SUBST1, BINDS1], ...
SQL0 представляет собой либо набор запросов, для которых SUBST и BINDS одинаковы, либо один запрос.
Соотв.-но
SQL = [QUERY0, QUERY1, ...]
либо
SQL = QUERY
Теперь. Хочу я сделать так, чтобы и QUERY тоже мог собираться частями и JOIN'иться, т.е. QUERY = [PART0, PART1, ...]
Вот в чём загвоздка: в этом случае пользователю нужно либо передавать даже в простейшем случае с разбитым на части запросом вот такое:
SQL = [[PART0, PART1, ..]]
либо...
непонятно в общем.
Сборка PART'ами нужна чтобы можно собирать запрос, частью скомпиленный SQL::Abstract::More

Пока что QUERY ещё сам по себе может быть и HASHREF'ом вида {sql => STRING, res_type => {} | []}

Сделай чтобы пользователь тебе закидывал имя таблицы и хеш параметров, а ты все это дело вставлял, но сесурити будет страдать

sub insert_row {
   my ($table_name, $fields) = @_;
   my $sql = "INSERT INTO $table_name (".join(",", sort keys %{$fields}).") VALUES (".join(",", map{ exists($fields->{$_}) ? "?" : "null" } sort keys %{$fields}).")";
   eval { $dbh->do($sql, undef, map { exists($fields->{$_}) ? $fields->{$_} : () } sort keys %{$fields}); };
   if ($@) {
       print "\033[0;31mHAVE ERROR:\n";
       print $@."\n\n";
   }
}

ну как-то так примерно

Не очень понял.
Сейчаc выглядит обычно, в 80% случаев, так:

$self->run_queries([
   'SELECT FROM {{table_name}} WHERE col {{=macro}} and other_col=?',
  {table_name => 'people', macro => 'some value'},
  [9000]
])

Можно же сделать то же самое для селекта, принимать хеш и его подставлять