Servlet::ServletException - general servlet exception
package My::Servlet;
use base qw(Servlet::GenericServlet);
use Servlet::ServletException ();
sub service {
# ...
eval {
# ...
};
if ($@) {
Servlet::ServletException->throw('something broke',
root => $@);
};
# ...
}
Defines a general exception a servlet can throw when it encounters difficulty.
- 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.
Brian Moseley, bcm@maz.org