https://github.com/KES777/Devel-DebugHooks
https://metacpan.org/release/Devel-DebugHooks

или стандартный дебаггер перла:
perl -d script.pl

13.07.2016, 18:25, "Александр Фролов" <alexan...@frolov.pp.ru>:
> Здравствуйте!
> Отправляю почту с помощью Net::SMTP в несколько потоков через AnyEvent из 
> крона:
>
>      $smtp= Net::SMTP->new(
>        Hello => $host->get_hello(), Host => $host->get_host_name(), Timeout 
> => 10,
>        Debug => $this->{ 1 },
>
> Флаг Debug отправляет отладочную информацию на консоль.
> Хочется из программы как-то перехватить диагностическую выдачу, 
> проанализировать и записать ошибки в журнал.
> Подскажите, пожалуйста, как это можно сделать?
> Спасибо!
>
> С уважением,
> Александр Фролов
> ---------------------------------------------------
> Пожалуйста, при ответе сохраняйте историю переписки.
>
> ,--
> Moscow.pm mailing list
> moscow-pm@pm.org | http://moscow.pm.org
-- 
Moscow.pm mailing list
moscow-pm@pm.org | http://moscow.pm.org

Ответить