CPAN::Groonga

rnings FATAL => 'all';

use Time::HiRes qw(gettimeofday);
use Math::Random::Secure qw(irand);
use JSON;
use MIME::Base64 qw(decode_base64 decode_base64url encode_base64url);
use Crypt::Mac::HMAC qw( h

2::Test - map = \n";
    p $map;


    my $json = encode_json $map;
    print "Net::PT2::Test - json = \n";
    p $json;

    my $b64 = encode_base64url $json;
    print "Net::PT2::Test - base64 url =

st - hmac = \n";
    p $hmac;

    my $json2 = decode_base64url $b64;
    print "Net:PT2::Test - json2 = \n";
    p $json2;
    
    my $map2 = decode_json $json2;
    print "Net:PT2::Test - map2 = \n