Yet Another CPAN Grep

Security-JWE ( C/CH/CHGOVUK/Security-JWE-0.04.tar.gz, CHGOVUK, 2014; MetaCPAN )

Security-JWE/lib/Security/JWE.pm ( view source; MetaCPAN )

mac_sha256 hmac_sha512);
use MIME::Base64 qw(encode_base64url decode_base64url);
use JSON qw(decode_json encode_json);
use Try::Tiny;

# Constructor attributes
has enc    => ( is => 'rw');
has alg

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

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

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

    return decode_json($self->decode(

y = ''; # Empty for 'dir' algorithm

    my @segment;
    push @segment, encode_base64url( encode_json($header) );
    push @segment, encode_base64url( $jwe_encryptedKey );
    push @segment, encode_b