s_json
traverse_depth_first as_tree init_with_tree new_from_tree
init_with_deflated_tree new_from_deflated_tree
as_yaml new_from_yaml init_with_yaml
as_json new_from_json i
nit_with_json
init_with_column_value_pairs
has_loaded_related strip forget_related
dirty_columns)
],
# This exists for the benefit of the test suite
all_noprereq =>
[
[
'_json_object'
],
);
#
# Class methods
#
sub json_encoder
{
my($class) = shift;
my $json = $class->_json_object;
unless(defined $json)
{
$json = $class->init_json_encoder;
se
{
$new = CORE::bless( $hash => $class );
}
CORE::return( $new );
}
sub TO_JSON { return( shift->as_string ); }
{
# NOTE: DateTime::Format::Intl::NullObject class
packa
teTimeFormat>
L<CLDR repository for dates and time|https://github.com/unicode-org/cldr-json/tree/main/cldr-json/cldr-dates-full/main>
L<ICU documentation|https://unicode-org.github.io/icu/userguide/
nd call L<perlfunc/"die"> with it.
=head2 TO_JSON
Special method called by L<JSON> to transform this object into a string suitable to be added in a json data.
=head2 type
Set or get the error type
STORABLE_freeze
=for Pod::Coverage STORABLE_thaw
=for Pod::Coverage THAW
=for Pod::Coverage TO_JSON
Serialisation by L<CBOR|CBOR::XS>, L<Sereal> and L<Storable::Improved> (or the legacy L<Storable
=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::
=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::
=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::
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
=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::
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,
{
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
=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::
=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::
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
=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::
=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::
=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::
=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::
=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::
=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::
=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::