¿Cuál es la mejor manera de manejar excepciones en Perl?

El consenso de la comunidad Perl parece ser que Try::Tiny es la forma preferida de hacer el manejo de excepciones. La" política indulgente " a la que se refiere probablemente se deba a una combinación de:

• Perl no es un lenguaje completamente orientado a objetos. (por ejemplo, en contraste con Java donde no puedes evitar lidiar con excepciones.)
• Los antecedentes de muchos desarrolladores de Perl. (Idiomas como C¹ y shell no tiene mecanismos de excepción.)
• El tipo de tareas la gente tiende a usar Perl para. (Pequeños scripts para munging de texto y generación de informes donde no se necesita el manejo de excepciones.)
• Perl no tiene un mecanismo de excepción incorporado (bueno).

Tenga en cuenta que el último elemento significa que verá una gran cantidad de código como este:

eval { something() };
if ($@) {
    warn "Oh no! [$@]\n";
}

Eso es manejo de excepciones a pesar de que no usa la sintaxis try/catch. Sin embargo, es frágil y se romperá en una serie de casos sutiles en los que la mayoría de la gente no piensa. Try:: Tiny y el otro los módulos de manejo de excepciones en CPAN se escribieron para que fuera más fácil hacerlo bien.

_{1. C tiene setjmp() y longjmp(), que se pueden usar para una forma muy cruda de manejo de excepciones.}