Yet Another CPAN Grep

Web-Solid-Auth ( H/HO/HOCHSTEN/Web-Solid-Auth-0.91.tar.gz, HOCHSTEN, 2021; MetaCPAN )

Web-Solid-Auth/bin/solid_auth.pl ( view source; MetaCPAN )

:Solid::Auth::Util;
use HTTP::Date;
use File::LibMagic;
use File::Basename;
use MIME::Base64;
use JSON;
use Path::Tiny;
use String::Escape;
use Log::Any::Adapter;

Log::Any::Adapter->set('Log4perl');

t a jwt token\n";
    }

    my $json = JSON->new->pretty;

    $header  = JSON::decode_json(MIME::Base64::decode_base64url($header));
    $payload = JSON::decode_json(MIME::Base64::decode_base64url($

payload));

    printf "Header: %s\n" , $json->encode($header);
    printf "Payload: %s\n" , $json->encode($payload);
    printf "Signature: (binary data)\n", MIME::Base64::decode_base64url($signature

Web-Solid-Auth ( H/HO/HOCHSTEN/Web-Solid-Auth-0.91.tar.gz, HOCHSTEN, 2021; MetaCPAN )

Web-Solid-Auth/lib/Web/Solid/Auth.pm ( view source; MetaCPAN )

e HTTP::Link;
use HTTP::Request;
use HTTP::Server::PSGI;
use Log::Any ();
use LWP::UserAgent;
use JSON;
use MIME::Base64;
use Path::Tiny;
use URI::Escape;
use Plack::Request;
use Plack::Response;
use

shift;
    my $cache_dir = $self->get_cache_dir;
    my $access = path($cache_dir)->child("access.json");
    $access->exists;
}

sub make_clean {
    my $self = shift;
    my $cache_dir = $self->get_

json");
    $openid->remove if $openid->exists;

    my $client = path($cache_dir)->child("client.json");
    $client->remove if $client->exists;

    my $access = path($cache_dir)->child("access.json