Yet Another CPAN Grep

WebService-Hydra ( D/DE/DERIV/WebService-Hydra-0.005.tar.gz, DERIV, 2024; MetaCPAN )

WebService-Hydra/lib/WebService/Hydra/Exception.pod ( view source; MetaCPAN )

nc/die>).

=head2 as_string

Returns a string representation of the exception.

=head2 as_json

Returns a JSON string representation of the exception.

=head2 log

Logs the exception using Log::Any an

WebService-Hydra ( D/DE/DERIV/WebService-Hydra-0.005.tar.gz, DERIV, 2024; MetaCPAN )

WebService-Hydra/lib/WebService/Hydra/Exception/TokenExchangeFailed.pod ( view source; MetaCPAN )


=head1 INHERITED METHODS

=over 4

=item L<WebService::Hydra::Exception>

L<as_json|WebService::Hydra::Exception/as_json>, L<as_string|WebService::Hydra::Exception/as_string>, L<category|WebService::

WebService-Hydra ( D/DE/DERIV/WebService-Hydra-0.005.tar.gz, DERIV, 2024; MetaCPAN )

WebService-Hydra/lib/WebService/Hydra/Exception/InvalidLogoutChallenge.pod ( view source; MetaCPAN )


=head1 INHERITED METHODS

=over 4

=item L<WebService::Hydra::Exception>

L<as_json|WebService::Hydra::Exception/as_json>, L<as_string|WebService::Hydra::Exception/as_string>, L<category|WebService::

WebService-Hydra ( D/DE/DERIV/WebService-Hydra-0.005.tar.gz, DERIV, 2024; MetaCPAN )

WebService-Hydra/lib/WebService/Hydra/Exception/InvalidToken.pod ( view source; MetaCPAN )


=head1 INHERITED METHODS

=over 4

=item L<WebService::Hydra::Exception>

L<as_json|WebService::Hydra::Exception/as_json>, L<as_string|WebService::Hydra::Exception/as_string>, L<category|WebService::

WebService-Hydra ( D/DE/DERIV/WebService-Hydra-0.005.tar.gz, DERIV, 2024; MetaCPAN )

WebService-Hydra/lib/WebService/Hydra/Exception/InvalidIdToken.pod ( view source; MetaCPAN )


=head1 INHERITED METHODS

=over 4

=item L<WebService::Hydra::Exception>

L<as_json|WebService::Hydra::Exception/as_json>, L<as_string|WebService::Hydra::Exception/as_string>, L<category|WebService::

WebService-Hydra ( D/DE/DERIV/WebService-Hydra-0.005.tar.gz, DERIV, 2024; MetaCPAN )

WebService-Hydra/lib/WebService/Hydra/Exception.pm ( view source; MetaCPAN )

nings;

use Object::Pad;

class WebService::Hydra::Exception;

use Module::Load;
use JSON::MaybeUTF8 qw(encode_json_text);
use Log::Any        qw($log);

our $VERSION = '0.005'; ## VERSION

=head1 NAM

s, "Details=" . encode_json_text($details) if @$details;
    $string .= "(" . join(", ", @substrings) . ")" if @substrings;
    return $string;
}

=head2 as_json

Returns a JSON string representation

of the exception.

=cut

method as_json {
    my $data = {
        Exception => blessed($self),
        Category  => $self->category,
        Message   => $self->message,
        Details   => $self->d

WebService-Hydra ( D/DE/DERIV/WebService-Hydra-0.005.tar.gz, DERIV, 2024; MetaCPAN )

WebService-Hydra/lib/WebService/Hydra/Exception/HydraRequestError.pod ( view source; MetaCPAN )


=head1 INHERITED METHODS

=over 4

=item L<WebService::Hydra::Exception>

L<as_json|WebService::Hydra::Exception/as_json>, L<as_string|WebService::Hydra::Exception/as_string>, L<category|WebService::

WebService-Hydra ( D/DE/DERIV/WebService-Hydra-0.005.tar.gz, DERIV, 2024; MetaCPAN )

WebService-Hydra/lib/WebService/Hydra/Client.pod ( view source; MetaCPAN )

 and the payload. It sends the request to the Hydra service, parses the response and returns:

1. JSON object of code and data returned from the service.
2. Error string in case an exception is thrown

e authorization code with Hydra service for access and ID tokens.

=head2 fetch_jwks

Fetches the JSON Web Key Set published by Hydra which is used to validate signatures.

=head2 fetch_openid_configu

WebService-Hydra ( D/DE/DERIV/WebService-Hydra-0.005.tar.gz, DERIV, 2024; MetaCPAN )

WebService-Hydra/lib/WebService/Hydra/Exception/InvalidClaims.pod ( view source; MetaCPAN )


=head1 INHERITED METHODS

=over 4

=item L<WebService::Hydra::Exception>

L<as_json|WebService::Hydra::Exception/as_json>, L<as_string|WebService::Hydra::Exception/as_string>, L<category|WebService::

WebService-Hydra ( D/DE/DERIV/WebService-Hydra-0.005.tar.gz, DERIV, 2024; MetaCPAN )

WebService-Hydra/lib/WebService/Hydra/Exception/InvalidLoginChallenge.pod ( view source; MetaCPAN )


=head1 INHERITED METHODS

=over 4

=item L<WebService::Hydra::Exception>

L<as_json|WebService::Hydra::Exception/as_json>, L<as_string|WebService::Hydra::Exception/as_string>, L<category|WebService::

WebService-Hydra ( D/DE/DERIV/WebService-Hydra-0.005.tar.gz, DERIV, 2024; MetaCPAN )

WebService-Hydra/lib/WebService/Hydra/Exception/InvalidLoginRequest.pod ( view source; MetaCPAN )


=head1 INHERITED METHODS

=over 4

=item L<WebService::Hydra::Exception>

L<as_json|WebService::Hydra::Exception/as_json>, L<as_string|WebService::Hydra::Exception/as_string>, L<category|WebService::

WebService-Hydra ( D/DE/DERIV/WebService-Hydra-0.005.tar.gz, DERIV, 2024; MetaCPAN )

WebService-Hydra/lib/WebService/Hydra/Exception/HydraServiceUnreachable.pod ( view source; MetaCPAN )


=head1 INHERITED METHODS

=over 4

=item L<WebService::Hydra::Exception>

L<as_json|WebService::Hydra::Exception/as_json>, L<as_string|WebService::Hydra::Exception/as_string>, L<category|WebService::

WebService-Hydra ( D/DE/DERIV/WebService-Hydra-0.005.tar.gz, DERIV, 2024; MetaCPAN )

WebService-Hydra/lib/WebService/Hydra/Exception/InvalidConsentChallenge.pod ( view source; MetaCPAN )


=head1 INHERITED METHODS

=over 4

=item L<WebService::Hydra::Exception>

L<as_json|WebService::Hydra::Exception/as_json>, L<as_string|WebService::Hydra::Exception/as_string>, L<category|WebService::

WebService-Hydra ( D/DE/DERIV/WebService-Hydra-0.005.tar.gz, DERIV, 2024; MetaCPAN )

WebService-Hydra/lib/WebService/Hydra/Exception/InternalServerError.pod ( view source; MetaCPAN )


=head1 INHERITED METHODS

=over 4

=item L<WebService::Hydra::Exception>

L<as_json|WebService::Hydra::Exception/as_json>, L<as_string|WebService::Hydra::Exception/as_string>, L<category|WebService::

WebService-Hydra ( D/DE/DERIV/WebService-Hydra-0.005.tar.gz, DERIV, 2024; MetaCPAN )

WebService-Hydra/lib/WebService/Hydra/Exception/FeatureUnavailable.pod ( view source; MetaCPAN )


=head1 INHERITED METHODS

=over 4

=item L<WebService::Hydra::Exception>

L<as_json|WebService::Hydra::Exception/as_json>, L<as_string|WebService::Hydra::Exception/as_string>, L<category|WebService::

WebService-Hydra ( D/DE/DERIV/WebService-Hydra-0.005.tar.gz, DERIV, 2024; MetaCPAN )

WebService-Hydra/lib/WebService/Hydra/Exception/RevokeLoginSessionsFailed.pod ( view source; MetaCPAN )


=head1 INHERITED METHODS

=over 4

=item L<WebService::Hydra::Exception>

L<as_json|WebService::Hydra::Exception/as_json>, L<as_string|WebService::Hydra::Exception/as_string>, L<category|WebService::

WebService-Hydra ( D/DE/DERIV/WebService-Hydra-0.005.tar.gz, DERIV, 2024; MetaCPAN )

WebService-Hydra/lib/WebService/Hydra/Client.pm ( view source; MetaCPAN )

ce::Hydra::Client;

use HTTP::Tiny;
use Log::Any   qw( $log );
use Crypt::JWT qw(decode_jwt);
use JSON::MaybeUTF8;
use WebService::Hydra::Exception;
use Syntax::Keyword::Try;

use constant OK_STATUS_C

s:

1. JSON object of code and data returned from the service.
2. Error string in case an exception is thrown.

=cut

method api_call ($method, $endpoint, $payload = undef, $content_type = 'json') {

-Type' => 'application/x-www-form-urlencoded',
                    'Accept'       => 'application/json'
                };
                push(
                    @args,
                    {