Refactor: rename and move getJWTJSONData

lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Issuer/OpenIDConnect.pm

@@ -2,6 +2,7 @@ package Lemonldap::NG::Portal::Issuer::OpenIDConnect;
 
 use strict;
 use JSON qw(from_json to_json);
+use Lemonldap::NG::Common::JWT qw(getJWTPayload);
 use Mouse;
 use Lemonldap::NG::Common::FormEncode;
 use Lemonldap::NG::Portal::Main::Constants qw(
@@ -210,8 +211,7 @@ sub run {
             }
 
             if ( $oidc_request->{'request'} ) {
-                my $request =
-                  $self->getJWTJSONData( $oidc_request->{'request'} );
+                my $request = getJWTPayload( $oidc_request->{'request'} );
 
                 # Override OIDC parameters by request content
                 foreach ( keys %$request ) {
@@ -2243,7 +2243,7 @@ sub exportRequestParameters {
     }
 
     if ($request) {
-        my $request_data = $self->getJWTJSONData($request);
+        my $request_data = getJWTPayload($request);
         foreach ( keys %$request_data ) {
             $req->env->{ "llng_oidc_" . $_ } = $request_data->{$_};
         }

lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/OpenIDConnect.pm

@@ -1783,20 +1783,10 @@ sub getFlowType {
 # @return String sub
 sub getIDTokenSub {
     my ( $self, $id_token ) = @_;
-    my $payload = $self->getJWTJSONData($id_token);
+    my $payload = getJWTPayload($id_token);
     return $payload->{sub};
 }
 
-# Return payload of a JWT as Hash ref
-# @param jwt JWT
-# @return HashRef payload
-sub getJWTJSONData {
-    my ( $self, $jwt ) = @_;
-    my $jwt_parts = $self->extractJWT($jwt);
-    return from_json(
-        decode_base64url( $jwt_parts->[1], { allow_nonref => 1 } ) );
-}
-
 # Return JWKS representation of a key
 # @param key Raw key
 # @return HashRef JWKS key