The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

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