CPAN::Groonga

	MIT License
 # @link		https://gluu.org/
 # @since		Version 3.1.0
 # @filesource
 #/


use JSON::PP;

package UpdateRegistration;	
    
    use vars qw($VERSION);
    $VERSION = '0.01'; 

ses/MIT	MIT License
# @link		https://gluu.org/
# @since	Version 3.1.0
# @filesource
#/

use JSON::PP;

package OxdRegister;	# This is the "Class"
    use vars qw($VERSION);
    $VE

use lib './modules';
	use Attribute::Handlers;
	#use strict;
	use warnings;
	use 5.010;
	use JSON::PP;
    use Data::Dumper qw(Dumper);
	use utf8;
	use Encode;
	use File::Basename;
	use warn

> shift,
			
			# @var string $base_url      Base url for log file directory and oxd-rp-setting.json file.
			_base_url => dirname(__FILE__)

	    };
		
		bless $self, $class;
		return $self;

my $json = JSON::PP->new;
	    my $jsonContent = $json->decode($data);
	    
	    my $accessToken = '';
	    if ($jsonContent->{protection_access_token}) {
		    $accessToken = "Bearer ".$jsonCon

package OxdConfig;
use vars qw($VERSION);
$VERSION = '0.01';
use strict;
use warnings;
use JSON::PP;

sub new{
    my $class = shift;
    
    my $self = {
		 
		# @static
		# @var stri

    our $oxdHostPort;
    $oxdHostPort = 'package'; 
    
    bless $self, $class;
    $self->json_read;
    return $self;
}

sub setOpHost {
    #my ( $self, $op_host,$oxd_host_port,$authori

}



sub json_read{
	
	my ($self) = @_;
	my $filename = 'oxd-settings.json';
	#my $baseUrl = $self->{_base_url};
	#print $baseUrl;
	my $configOBJECT;
	if (open (my $configJSON, $filename))

s available
	use lib './modules';
	use Attribute::Handlers;
	use strict;
	use warnings;
	use JSON::PP;
    use OxdPackages::OxdConfig;
	use Data::Dumper qw(Dumper);
	use utf8;
	use Encode;
	

m oxd-server
			_data => [],
			
			# @var string $response_json       Response data from oxd-server in format json
			_response_json=>shift,
			
			# @var object $response_object     Response d

ds the command to the oxd server.
    # Args:
    # command (dict) - Dict representation of the JSON command string
    # @return	void
    #
    
    sub request{
		my ($self) = @_;
		
		# @v

	MIT License
# @link         https://gluu.org/
# @since	Version 3.1.0
# @filesource
#/

use JSON::PP;

package OxdSetupClient;	# This is the "Class"
    use vars qw($VERSION);
    

ses/MIT	MIT License
# @link		https://gluu.org/
# @since	Version 3.1.0
# @filesource
#/

use JSON::PP;

package GetClientToken;	# This is the "Class"
    use vars qw($VERSION);
    

 @see	        OxdClient
# @see	        OxdConfig
#######################################

use JSON::PP;

package GetAuthorizationUrl;	
	use OxdPackages::OxdClient;
	use base qw(OxdClient Class