view release on metacpan or  search on metacpan

lib/CGI/Carp/StackTrace.pm  view on Meta::CPAN

Add a modern error screen to your CGI application, like L<Plack::Middleware::StackTrace>.

Uses L<CGI::Carp> in conjunction with L<Devel::StackTrace::WithLexicals> and
L<Devel::StackTrace::AsHTML>.

=cut

BEGIN {
    CGI::Carp::set_message(sub {
        my $stack_trace = Devel::StackTrace::WithLexicals->new(
            message => munge_error(decode_entities(shift), [ caller(3) ]),
            ignore_package => [__PACKAGE__, 'CGI::Carp'],
        );
        print $stack_trace->as_html;
    });
}

# stolen from Plack::Middleware::StackTrace
sub munge_error {
    my($err, $caller) = @_;
    return $err if ref $err;