File Coverage

lib/Crypt/Perl/KeyBase.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	3	4	75.0
condition	2	3	66.6
subroutine	4	4	100.0
pod	0	1	0.0
total	29	32	90.6

package Crypt::Perl::KeyBase;

use strict;
use warnings;

use Crypt::Perl::X ();

sub get_jwk_thumbprint {
    my ($self, $hash_alg) = @_;

    die Crypt::Perl::X::create('Generic', 'Need a hashing algorithm!') if !length $hash_alg;

    require Digest::SHA;
    my $hash_cr = ($hash_alg =~ m<\Asha[0-9]+\z>) && Digest::SHA->can($hash_alg) or do {
        die Crypt::Perl::X::create('UnknownHash', $hash_alg);
    };

    my $jwk = $self->get_struct_for_public_jwk();

    my $json = sprintf(
        '{' . join(',', map { qq{"$_":"%s"} } $self->_JWK_THUMBPRINT_JSON_ORDER()) . '}',
        @{$jwk}{ $self->_JWK_THUMBPRINT_JSON_ORDER() },
    );

    require MIME::Base64;

    return MIME::Base64::encode_base64url( $hash_cr->($json) );
}

1;