view release on metacpan or  search on metacpan

lib/Browser/OIDC.pm  view on Meta::CPAN

			my $received_state = $request->uri->query_param('state');
			if ($received_state ne $state) {
				$sock->send_error(400);
				close $sock;
				die "Invalid state";
			}

			my $message = $options{message} // 'Authorization token received, you can close this now';
			my $headers = HTTP::Headers->new;
			$headers->header('content-type', $options{message_type}) if $options{message_type};
			$sock->send_response(HTTP::Response->new(200, 'OK', $headers, $message));
			close $sock;

			my $code = $request->uri->query_param('code');
			my %arguments = (
				grant_type    => 'authorization_code',
				redirect_uri  => $redirect_uri,
				code          => $code,
				%token_args,
			);