package Acme::JWT;
use strict;
use warnings;
our $VERSION = '0.04';
use JSON qw/decode_json encode_json/;
use MIME::Base64 qw/encode_base64url decode_base64url/;
use Try::Tiny;
use Digest::SHA qw/hma
=> $algorithm,
};
push(@$segments, encode_base64url(encode_json($header)));
push(@$segments, encode_base64url(encode_json($payload)));
my $signing_input = join('.', @$segments);
un
$payload;
my $signature;
try {
$header = decode_json(decode_base64url($header_segment));
$payload = decode_json(decode_base64url($payload_segment));
$signature = decod