So I've been experimenting with Exceptions, how to throw them, how to catch them, etc. While there is lots of info on this subject, there seems very little hard code you can use in actualy code. So I played some and here is what I came up with.

use strict;
use warnings;
use Data::Dumper;

use Error;

{
  package Error::MyError;
  @Error::MyError::ISA = qw(Error::Simple);

  sub catch {
      my $class = shift;
      return undef unless $@;
      return 1 if $@->isa($class);
      return 0;
  }
}

@Error::NextLevel::ISA = qw(Error::MyError);

eval {
  throw Error::NextLevel("TEST");
  0;
};
if (catch Error::NextLevel ) {
    print "Caught: " . $@->text;
};

[download]

I use Error but only for its error object. On that error object i then overrode the catch method to be a little less magic which seems to result in it working better. Makeing use of inderict object notation we get a fairly nice syntax with little/no magic.

Please let me know what you think and what i screwed up ;)


___________
Eric Hodges

In reply to Exception Catching by eric256

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.