Jak wymusić śledzenie stosu dla wszystkich błędów krytycznych w Perlu?

Question

W języku Perl istnieje sposób na wymuszenie wszystkich błędów krytycznych, aby wyświetlić ślad stosu, taki jak Carp::confess?

Wiem, że możesz zrobić use warnings FATAL => 'all';, aby ostrzeżenia były śmiertelne w stosunku do aktualnego zakresu leksykalnego.

Co więcej, możliwe jest użycie $SIG{__WARN__} = sub { CORE::die(@_) };, aby wszystkie ostrzeżenia były śmiertelne wszędzie (nie zlokalizowały programu obsługi SIGWARN).

Czy jest to czysty sposób, czy muszę zmodyfikować SIGDIE? A jeśli piszę program obsługi SIGDIE, jaki jest najlepszy sposób na uzyskanie śladu?

Idealne rozwiązanie działa ze standardowymi bibliotekami testowymi, Test::More i znajomymi.

Aktualizacja: Mark Johnson sugeruje użycie programu obsługi SIGDIE do wywołania Carp::confess. Działa ładnie. Oto kod:

use Carp; 
$SIG{ __DIE__ } = sub { Carp::confess(@_) }; 

Answer 1

Zainstaluj program obsługi SIGDIE, który wywołuje Carp :: przyznać się? Lub po prostu ustawić Carp :: wyznać jako handler dla DIE?

Uwaga na standard gotchas związane z eval. Istnieje nawet weirder gotcha w odniesieniu do bloków BEGIN. Zwróć też uwagę na ominous warning in perlvar.

Aby uzyskać więcej informacji na temat generowania wykresów stosu, zobacz numer this question.

Answer 2

Zobacz także moduł "Carp::Always", który zamienia wszystkie matryce i ostrzega w kodzie do stacktraces.