The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Servlet::ServletException - general servlet exception

SYNOPSIS

  package My::Servlet;

  use base qw(Servlet::GenericServlet);
  use Servlet::ServletException ();

  sub service {

      # ...

      eval {
          # ...
      };

      if ($@) {
          Servlet::ServletException->throw('something broke',
                                           root => $@);
      };

      # ...

  }

DESCRIPTION

Defines a general exception a servlet can throw when it encounters difficulty.

METHODS

new($msg, $root)

Constructs a new servlet exception. Optional arguments include an error message and the "root cause" exception that was encountered by the servlet.

Parameters:

$msg

the error message

$root

the exception that is the root cause of this exception

getRootCause()

Returns the exception that caused this servlet exception.

SEE ALSO

Servlet::Util::Exception

AUTHOR

Brian Moseley, bcm@maz.org