Yet Another CPAN Grep

WWW-REST-Apid ( T/TL/TLINDEN/WWW-REST-Apid-0.07.tar.gz, TLINDEN, 2017; MetaCPAN )

WWW-REST-Apid/lib/WWW/REST/Apid.pm ( view source; MetaCPAN )

 HTTP::Request::Params;
use URI::Escape;
use Data::Dumper;
use CGI::Cookie;
use MIME::Base64;
use JSON;
use Digest::SHA qw(sha256_base64);
use Crypt::OpenSSL::Random;
use Data::Validate::Struct;
use D

elf->{authbasic});
  $res->code(HTTP_UNAUTHORIZED);
  $res->header('Content-type' => 'application/json; charset=UTF-8');
  $res->add_content("{ \"error\": \"please authenticate\" }");
  return 0;
}

s

  my $data;

  if ($req->content) {
    if ($req->content =~ /^\{/) {
      eval { $data = decode_json($req->content); };
    }
    else {
      # try decoding as query
      my $query = HTTP::Request