home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacPerl 4.1.3 / lib / exceptions.pl < prev    next >
Encoding:
Text File  |  1993-10-23  |  1.5 KB  |  46 lines  |  [TEXT/MPS ]
  1. or to die otherwise.
  2. # 
  3. # I use oddly named variables in order to make darn sure I don't conflict 
  4. # with my caller.  I also hide in my own package, and eval the code in his.
  5. # 
  6. # The EXCEPTION: prefix is so you can tell whether it's a user-raised
  7. # exception or a perl-raised one (eval error).
  8. # 
  9. # --tom
  10. #
  11. # examples:
  12. #    if (&catch('/$user_input/', 'regexp', 'syntax error') {
  13. #        warn "oops try again";
  14. #        redo;
  15. #    }
  16. #
  17. #    if ($error = &catch('&subroutine()')) { # catches anything
  18. #
  19. #    &throw('bad input') if /^$/;
  20.  
  21. sub catch {
  22.     package exception;
  23.     local($__code__, @__exceptions__) = @_;
  24.     local($__package__) = caller;
  25.     local($__exception__);
  26.  
  27.     eval "package $__package__; $__code__";
  28.     if ($__exception__ = &'thrown) {
  29.     for (@__exceptions__) {
  30.         return $__exception__ if /$__exception__/;
  31.     } 
  32.     &'throw($__exception__);
  33.     } 
  34. } 
  35.  
  36. sub throw {
  37.     local($exception) = @_;
  38.     die "EXCEPTION: $exception\n";
  39. } 
  40.  
  41. sub thrown {
  42.     $@ =~ /^(EXCEPTION: )+(.+)/ && $2;
  43. } 
  44.  
  45. 1;
  46.