La excepción:: Base es un módulo Perl con excepciones ligeras.

SINOPSIS

# Use el módulo y cree excepciones necesarias
use la Excepción:: Base (
Excepción:: IO,
Excepción:: FileNotFound => {mensaje => Archivo no encontrado,
isa => Excepción:: IO},
);

# intente / cogida
intente la Excepción eval {
do_something () o Excepción de tiro:: FileNotFound
mensaje => Algo incorrecto,
etiquete => algo;
};
# Agarre la Excepción:: Base, otro tiro de excepciones inmediatamente
si (agarran la Excepción:: Base mi $e) {
# El $e no es un objeto de excepción seguro, ninguna necesidad de comprobar si es bendito
si ($e-> isa (Excepción:: IO)) {advierten "el problema de IO";}
los elsif ($e-> isa (Excepción los:: Mueren)) {advierten "eval murió";}
los elsif ($e-> isa (Excepción los:: Advierten)) {advierten que "unos advierten fue agarrado";}
los elsif ($e-> (con etiqueta => algo)) {advierten que "algo pasó";}
el elsif ($e-> (con qr / ^ Error/)) {advierten "algún error basado en regex";}
más {$e-> tiro;} # lanzan de nuevo la excepción
}

# la excepción puede ser lanzada más tarde
$e = nueva Excepción:: Base;
$e-> tiro;

# intente con el contexto de matriz
@v = intentan la Excepción:: Base [eval {do_something_returning_array ();}];

# use el azúcar sintáctico
use la Excepción:: Base qw, Excepción:: IO;
intente eval {
lance la Excepción:: IO;
}; # los dont olvidan del punto y coma
agarre mi $e, [Excepción:: IO]; # la Excepción:: Base es en ausencia

Esta clase pone en práctica un totalmente mecanismo de excepción de OO similar a la Excepción:: Clase o Clase:: Throwable. Esto no depende de otros módulos como la Excepción:: la Clase y es más potente que la Clase:: Throwable. También esto no usa cierres como el Error y no hace polute namespace como la Excepción:: Clase:: TryCatch. También es mucho más rápido que la Excepción:: la Clase.

Aquí están algunos aspectos claves "de la Base de Excepción":

· realización rápida de un objeto de excepción
· totalmente OO sin cierres y filtración de código fuente
El · no ensucia con el $SIG {__ MUEREN __} y $SIG {__ ADVIERTEN __}
· ningunas dependencias de módulos externas, requiere módulos de Perl principales sólo
· pilas de error de instrumentos, los bloques de intento/cogida pueden ser anidados
El · muestra que las pilas backtrace llenas en mueren en ausencia
· el comportamiento por defecto de la clase de excepción puede ser cambiado globalmente o sólo para la excepción lanzada
· la excepción puede ser creado con propiedades de encargo definidas
· emparejando la excepción por clase, mensaje o propiedades de encargo
· emparejando con cuerda, regex o función de cierre
· creando automáticamente las clases de excepción sacadas ("usan" la interface)
· easly prescindible, ver la Excepción:: clase de Sistema por ejemplo