What’s broken about exceptions in Perl?

by

The typical method most people have learned to handle exceptions is vulnerable to missing trapped exceptions:

eval { some code here };
if( $@ ) {  handle exception here };

You can do:

eval { some code here; 1 } or do { handle exception here };

This protects from missing the exception due to $@ being clobbered, but it is still vulnerable to losing the value of $@.

To be sure you don’t clobber an exception, when you do your eval, you have to localize $@;

eval { local $@; some code here; 1 } or do { handle exception here };

This is all subtle breakage, and prevention requires a lot of esoteric boilerplate.

In most cases this isn’t a problem. But I have been burned by exception eating object destructors in real code. Debugging the issue was awful.

The situation is clearly bad. Look at all the modules on CPAN built provide decent exception handling.

Overwhelming responses in favor of Try::Tiny combined with the fact that Try::Tiny is not “too clever by half”, have convinced me to try it out. Things like TryCatch and Exception::Class::TryCatch, Error, and on and on are too complex for me to trust. Try::Tiny is a step in the right direction, but I still don’t have a lightweight exception class to use.

More Related Contents:

  1. Do you use an exception class in your Perl programs? Why or why not?
  2. In Perl, what is the difference between accessing an array element using @a[$i] as opposed to using $a[$i]?
  3. Is object oriented exception handling in Perl worth it?
  4. How can i do this in perl, shortcut truthtable [closed]
  5. Perl: Meaning of double squared brackets after a string?
  6. What does this HTML::Parser() code do in Perl? [closed]
  7. Why use strict and warnings?
  8. Is it a good practice to use try-except-else in Python?
  9. Why is three-argument open calls with autovivified filehandles a Perl best practice?
  10. What’s the difference between Perl’s backticks, system, and exec?
  11. Begin, Rescue and Ensure in Ruby?
  12. How can I parse dates and convert time zones in Perl?
  13. Python “raise from” usage
  14. How do I tell if a variable has a numeric value in Perl?
  15. Perl memory usage profiling and leak detection?
  16. How should I use the “my” keyword in Perl?
  17. Global symbol requires explicit package name
  18. How do I include functions from another file in my Perl script?
  19. Why am I getting “must be caught or declared to be thrown” on my program?
  20. Using Encode::encode with “utf8”
  21. How can I start an interactive console for Perl?
  22. What does =~ do in Perl? [closed]
  23. How to convert letters with accents, umlauts, etc to their ASCII counterparts in Perl?
  24. How do I tell what type of value is in a Perl variable?
  25. How can I find memory leaks in long-running Perl program?
  26. Why do Perl variables need to start with $, %,@ (sigils)?
  27. Print lines from one file that are not contained in another file
  28. Perl DBD::Oracle Module installation
  29. Explain the deviousness of the Perl “preamble”
  30. Why doesn’t Perl’s each() iterate through the entire hash the second time?

Leave a Comment