Yet Another CPAN Grep

Plack-Middleware-PrettyException ( D/DO/DOMM/Plack-Middleware-PrettyException-1.010.tar.gz, DOMM, 2022; MetaCPAN )

Plack-Middleware-PrettyException/lib/Plack/Middleware/PrettyException.pm ( view source; MetaCPAN )

 JSON

our $VERSION = '1.010'; # VERSION

use 5.010;
use strict;
use warnings;
use parent qw(Plack::Middleware);
use Plack::Util;
use Plack::Util::Accessor qw(force_json);
use HTTP::Headers;
use JSON:

:MaybeXS qw(encode_json);
use HTTP::Status qw(is_error);
use Scalar::Util 'blessed';
use Log::Any qw($log);

sub call {
    my $self = shift;
    my $env  = shift;

    my $r;
    my $error;
    my $e

ready is JSON, so return that
            if ( $orig_headers->content_type =~ m{application/json}i ) {
                return;
            }

            # force json, or client requested JSON, so ren