Yet Another CPAN Grep

Test2-MojoX ( E/EL/ELCAMLOST/Test2-MojoX-0.07.tar.gz, ELCAMLOST, 2021; MetaCPAN )

Test2-MojoX/lib/Test2/MojoX.pm ( view source; MetaCPAN )

lling you, dude.
##  Fry: Santa Claus is gunning you down!"
use Mojo::IOLoop;
use Mojo::JSON 'j';
use Mojo::JSON::Pointer;
use Mojo::Server;
use Mojo::UserAgent;
use Mojo::Util qw(decode encode monkey



sub json_has {
  my ($self, $p, $desc) = @_;
  my $ctx = context;
  $desc = _desc($desc, qq{has value for JSON Pointer "$p"});
  my $out
    = ok(!!Mojo::JSON::Pointer->new($self->tx->res->json)->co

sub json_hasnt {
  my ($self, $p, $desc) = @_;
  my $ctx = context;
  $desc = _desc($desc, qq{has no value for JSON Pointer "$p"});
  my $out
    = ok(!Mojo::JSON::Pointer->new($self->tx->res->json)->