File Coverage

lib/Crypt/Perl/JWK.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 18 19 94.7


line stmt bran cond sub pod time code
1             package Crypt::Perl::JWK;
2              
3 3     3   16 use strict;
  3         4  
  3         78  
4 3     3   13 use warnings;
  3         8  
  3         66  
5              
6 3     3   406 use MIME::Base64 ();
  3         551  
  3         42  
7              
8 3     3   12 use Crypt::Perl::BigInt ();
  3         4  
  3         158  
9              
10             sub jwk_num_to_bigint {
11 22     22 0 60 return Crypt::Perl::BigInt->from_bytes( MIME::Base64::decode_base64url($_[0]));
12             }
13              
14             1;