perl - 在 Dancer 中使用 Hooks 修改异常处理

Question

我试图设置一个钩子(Hook)来捕获从我的 Dancer 应用程序(一个 API)抛出的所有异常和错误，并将它们传递给一个函数，该函数设置 HTTP 状态代码并返回哈希值(序列化为 JSON)。

当我使用 try/catch 时一切正常，但是当我将它移动到钩子(Hook)时它运行代码但响应是使用默认错误机制而不是我的函数形成的。

这是我正在使用的钩子(Hook):

# Handle errors
hook on_handler_exception => sub {
    my $e = shift;
    debug "ON HANDLER EXCEPTION";
    return API::Exception->handle($e); # sets status code and returns hash depending on the exception
};

我还尝试使用 halt 而不是 return 来停止对异常的任何进一步处理，但它没有改变任何东西。

我如何使用 Dancer 完成此操作？谢谢。

Answer 1

改用“on_route_exception”钩子(Hook)......

hook on_route_exception => sub
{
    my ( $exception ) = @_;
    error( $exception );
    status( 'error' );
    halt( { errors => [ { message => 'An unhandled exception occurred', code => 0 } ] } );
};