Yet Another CPAN Grep

Test-Mojo-Session ( A/AV/AVKHOZOV/Test-Mojo-Session-1.07.tar.gz, AVKHOZOV, 2022; MetaCPAN )

Test-Mojo-Session/lib/Test/Mojo/Session.pm ( view source; MetaCPAN )

ssion;

use Mojo::Base 'Test::Mojo';
use Mojo::Util qw(b64_decode hmac_sha1_sum);
use Mojo::JSON 'decode_json';

our $VERSION = '1.07';

sub new {
  my $self = shift->SUPER::new(@_);
  return $self;
}

$desc) = @_;
  $desc //= qq{session has value for JSON Pointer "$p"};
  my $session = $self->_extract_session;
  return $self->test('ok', !!Mojo::JSON::Pointer->new($session)->contains($p), $desc);
}

esc) = @_;
  $desc //= qq{session has no value for JSON Pointer "$p"};
  my $session = $self->_extract_session;
  return $self->test('ok', !Mojo::JSON::Pointer->new($session)->contains($p), $desc);
}