Yet Another CPAN Grep

Dancer2-Plugin-RPC-RESTISH ( A/AB/ABELTJE/Dancer2-Plugin-RPC-RESTISH-2.02.tar.gz, ABELTJE, 2022; MetaCPAN )

Dancer2-Plugin-RPC-RESTISH/lib/Dancer2/Plugin/RPC/RESTISH.pm ( view source; MetaCPAN )

=> $self->error_message,
            error_data    => $self->error_data,
        };
    }
);

use JSON;
use Scalar::Util 'blessed';
use Time::HiRes 'time';

# A char between the HTTP-Method and the RE

wed_origins = split(" ", $allow_origin);

        # we'll only handle requests that have either a JSON body or no body
        my $http_request = $dsl->app->request;
        my ($ct) = split(/;\s*/, $

tent_type // "", 2);
        $ct //= "";

        if ($http_request->body && ($ct ne 'application/json')) {
            $dsl->pass();
        }

        my $http_method  = uc($http_request->method);