Yet Another CPAN Grep

Protocol-ACME ( S/SL/SLUDIN/Protocol-ACME-1.02.tar.gz, SLUDIN, 2019; MetaCPAN )

Protocol-ACME/lib/Protocol/ACME.pm ( view source; MetaCPAN )

:Base64 qw( encode_base64url decode_base64url decode_base64 encode_base64 );

use HTTP::Tiny;
use JSON;
use Digest::SHA qw( sha256 );
use Carp;


my $USERAGENT = "Protocol::ACME v$VERSION";
my $NONCE_

 => "Failed to fetch the directory for $self->{host}", resp => $resp );
  }

  my $data = _decode_json( $resp->{content} );

  if ( ! $self->{version} )
  {
    if ( exists $data->{'new-reg'} )
    {

encode_json( $obj );

  my $json = $self->_create_jws( $msg );

  $self->{log}->debug( "Sending registration message" );

  my $resp = $self->_request_post( $self->{links}->{'newAccount'}, $json );