Yet Another CPAN Grep

JSON-WebEncryption ( C/CH/CHGOVUK/JSON-WebEncryption-0.05.tar.gz, CHGOVUK, 2014; MetaCPAN )

JSON-WebEncryption/lib/JSON/WebEncryption.pm ( view source; MetaCPAN )

package JSON::WebEncryption;

use strict;

use parent 'Exporter';

our $VERSION = '0.05';

use Carp qw(croak);
use Crypt::CBC;
use Crypt::OpenSSL::RSA;
use JSON qw(decode_json encode_json);
use Digest

->encode(encode_json($hash));
}

# -----------------------------------------------------------------------------

sub decode_to_hash {
    my ($self, $jwe) = @_;

    return decode_json($self->decode(

nc,
        %$extra_headers,
    };

    my @segment;
    push @segment, encode_base64url( encode_json($header) );
    push @segment, encode_base64url( $encrypted_key );
    push @segment, encode_base