Yet Another CPAN Grep

Mojolicious-Plugin-GraphQL ( E/ET/ETJ/Mojolicious-Plugin-GraphQL-0.19.tar.gz, ETJ, 2021; MetaCPAN )

Mojolicious-Plugin-GraphQL/lib/Mojolicious/Plugin/GraphQL.pm ( view source; MetaCPAN )

ute handlers
use strict;
use warnings;
use Mojo::Base 'Mojolicious::Plugin';
use Mojo::JSON qw(decode_json to_json);
use GraphQL::Execution qw(execute);
use GraphQL::Type::Library -all;
use GraphQL::D


sub _safe_serialize {
  my $data = shift // return 'undefined';
  my $json = to_json($data);
  $json =~ s#/#\\/#g;
  return $json;
}

sub _graphiql_wrap {
  my ($wrappee, $use_subscription) = @_;
  s

variablesString  => _safe_serialize( $p->param('variables') ),
        subscriptionEndpoint => to_json(
          # if serialises to true (which empty-string will), turns on subs code
          $use_s