javonet-ruby-sdk 2.4.7 → 2.4.9

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Sdk/Internal/RuntimeContext.pm

@@ -2,6 +2,7 @@ package Javonet::Sdk::Internal::RuntimeContext;
 use strict;
 use warnings FATAL => 'all';
 use Moose;
+
 use aliased 'Javonet::Sdk::Core::PerlCommand' => 'PerlCommand';
 use aliased 'Javonet::Sdk::Internal::InvocationContext' => 'InvocationContext';
 use aliased 'Javonet::Core::Handler::PerlHandler' => 'PerlHandler';
@@ -21,7 +22,7 @@ sub new {
     my $class = shift;
 
     my $self = {
-        runtime_lib     => shift,
+        runtime_name     => shift,
         connection_type => shift,
         tcp_address     => shift,
         response_command => 0,
@@ -31,54 +32,51 @@ sub new {
 }
 
 sub get_instance {
-    my $runtime_lib = shift;
+    my $runtime_name = shift;
     my $connection_type = shift;
     my $tcp_address = shift;
     my $path = shift;
 
     if($connection_type eq Javonet::Sdk::Internal::ConnectionType::get_connection_type("InMemory")) {
-        if(exists $memoryRuntimeContexts{$runtime_lib}) {
-            my $runtimeCtx = $memoryRuntimeContexts{$runtime_lib};
+        if(exists $memoryRuntimeContexts{$runtime_name}) {
+            my $runtimeCtx = $memoryRuntimeContexts{$runtime_name};
             $runtimeCtx->{current_command} = undef();
             return $runtimeCtx;
         }
         else {
-            my $runtimeCtx = Javonet::Sdk::Internal::RuntimeContext->new($runtime_lib, $connection_type, '');
-            $memoryRuntimeContexts{$runtime_lib} = $runtimeCtx;
+            my $runtimeCtx = Javonet::Sdk::Internal::RuntimeContext->new($runtime_name, $connection_type, '');
+            $memoryRuntimeContexts{$runtime_name} = $runtimeCtx;
             return($runtimeCtx);
         }
     }
 
     if($connection_type eq Javonet::Sdk::Internal::ConnectionType::get_connection_type("Tcp")) {
-        my $networkRuntimeContextsKey = $runtime_lib . $tcp_address;
+        my $networkRuntimeContextsKey = $runtime_name . $tcp_address;
         if(exists $networkRuntimeContexts{$networkRuntimeContextsKey}) {
             my $runtimeCtx = $networkRuntimeContexts{$networkRuntimeContextsKey};
             $runtimeCtx->{current_command} = undef();
             return $runtimeCtx;
         }
         else {
-            my $runtimeCtx = Javonet::Sdk::Internal::RuntimeContext->new($runtime_lib, $connection_type, $tcp_address);
+            my $runtimeCtx = Javonet::Sdk::Internal::RuntimeContext->new($runtime_name, $connection_type, $tcp_address);
             $networkRuntimeContexts{$networkRuntimeContextsKey} = $runtimeCtx;
             return($runtimeCtx);
         }
     }
 
     if($connection_type eq Javonet::Sdk::Internal::ConnectionType::get_connection_type("WithConfig")) {
-        my $configRuntimeContextsKey = $runtime_lib . $path;
+        my $configRuntimeContextsKey = $runtime_name . $path;
         if(exists $configRuntimeContexts{$configRuntimeContextsKey}) {
             my $runtimeCtx = $configRuntimeContexts{$configRuntimeContextsKey};
             $runtimeCtx->{current_command} = undef();
             return $runtimeCtx;
         }
         else {
-            my $runtimeCtx = Javonet::Sdk::Internal::RuntimeContext->new($runtime_lib, $connection_type, $tcp_address);
+            my $runtimeCtx = Javonet::Sdk::Internal::RuntimeContext->new($runtime_name, $connection_type, $tcp_address);
             $configRuntimeContexts{$configRuntimeContextsKey} = $runtimeCtx;
             return($runtimeCtx);
         }
     }
-
-    
-
 }
 
 
@@ -87,11 +85,7 @@ sub execute {
     my $command = shift;
     my $connection_type = shift;
     my $tcp_address = shift;
-    if($command->{runtime} eq Javonet::Sdk::Core::RuntimeLib::get_runtime('Perl')) {
-        $self->{response_command} = $perl_handler->handle_command($command);
-    } else {
-        $self->{response_command} = Interpreter->execute_($command, $connection_type, $tcp_address);
-    }
+    $self->{response_command} = Interpreter->execute_($command, $connection_type, $tcp_address);
     if ($self->{response_command}->{command_type} == Javonet::Sdk::Core::PerlCommandType::get_command_type('Exception')) {
         ExceptionThrower->throwException($self->{response_command})
     }
@@ -104,12 +98,12 @@ sub load_library {
     my @load_library_parameters = @_;
 
     my $command = PerlCommand->new(
-        runtime => $self->{runtime_lib},
+        runtime => $self->{runtime_name},
         command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('LoadLibrary'),
         payload => \@load_library_parameters
     );
 
-    execute($command, $self->{connection_type}, $self->{tcp_address});
+    execute($self->build_command($command), $self->{connection_type}, $self->{tcp_address});
     return $self;
 }
 
@@ -119,13 +113,13 @@ sub get_type {
     my @arguments = @_;
 
     my $command = PerlCommand->new(
-        runtime => $self->{runtime_lib},
+        runtime => $self->{runtime_name},
         command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('GetType'),
         payload => \@arguments
     );
 
     return Javonet::Sdk::Internal::InvocationContext->new(
-        $self->{runtime_lib},
+        $self->{runtime_name},
         $self->{connection_type},
         $self->{tcp_address},
         $self->build_command($command),
@@ -139,13 +133,13 @@ sub cast {
     my @arguments = @_;
 
     my $command = PerlCommand->new(
-        runtime => $self->{runtime_lib},
+        runtime => $self->{runtime_name},
         command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Cast'),
         payload => \@arguments
     );
 
     return Javonet::Sdk::Internal::InvocationContext->new(
-        $self->{runtime_lib},
+        $self->{runtime_name},
         $self->{connection_type},
         $self->{tcp_address},
         $self->build_command($command),
@@ -159,13 +153,13 @@ sub get_enum_item {
     my @arguments = @_;
 
     my $command = PerlCommand->new(
-        runtime => $self->{runtime_lib},
+        runtime => $self->{runtime_name},
         command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('GetEnumItem'),
         payload => \@arguments
     );
 
     return Javonet::Sdk::Internal::InvocationContext->new(
-        $self->{runtime_lib},
+        $self->{runtime_name},
         $self->{connection_type},
         $self->{tcp_address},
         $self->build_command($command),
@@ -178,13 +172,13 @@ sub as_out {
     my @arguments = @_;
 
     my $command = PerlCommand->new(
-        runtime => $self->{runtime_lib},
+        runtime => $self->{runtime_name},
         command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('AsOut'),
         payload => \@arguments
     );
 
     return Javonet::Sdk::Internal::InvocationContext->new(
-        $self->{runtime_lib},
+        $self->{runtime_name},
         $self->{connection_type},
         $self->{tcp_address},
         $self->build_command($command),
@@ -197,13 +191,13 @@ sub as_ref {
     my @arguments = @_;
 
     my $command = PerlCommand->new(
-        runtime => $self->{runtime_lib},
+        runtime => $self->{runtime_name},
         command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('AsRef'),
         payload => \@arguments
     );
 
     return Javonet::Sdk::Internal::InvocationContext->new(
-        $self->{runtime_lib},
+        $self->{runtime_name},
         $self->{connection_type},
         $self->{tcp_address},
         $self->build_command($command),
@@ -214,8 +208,8 @@ sub as_ref {
 #@override
 sub build_command {
     my ($self, $command) = @_;
-    my $command_payload_length = @{$command->{payload}};
-    for (my $i = 0; $i < $command_payload_length; $i++) {
+    my $payload_length = @{$command->{payload}};
+    for (my $i = 0; $i < $payload_length; $i++) {
         $command->{payload}[$i] = $self->encapsulate_payload_item($command->{payload}[$i]);
     }
     return $command->prepend_arg_to_payload($self->{current_command});
@@ -223,11 +217,55 @@ sub build_command {
 
 sub encapsulate_payload_item {
     my ($self, $payload_item) = @_;
-    if ($payload_item->isa('Javonet::Sdk::Internal::InvocationContext')) {
-        return $payload_item->get_current_command();
-    } else {
+
+    if(!defined $payload_item) {
+        return PerlCommand->new(
+            runtime => $self->{runtime_name},
+            command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Value'),
+            payload => []
+        );
+    }
+
+    if ($payload_item->isa('Command')) {
+        my $payload_length = @{$payload_item->{payload}};
+        for (my $i = 0; $i < $payload_length; $i++) {
+            $payload_item->{payload}[$i] = $self->encapsulate_payload_item($payload_item->{payload}[$i]);
+        }
         return $payload_item;
     }
+    elsif ($payload_item->isa('Javonet::Sdk::Internal::InvocationContext')) {
+        return $payload_item->get_current_command();
+    }
+    elsif (ref($payload_item) eq 'ARRAY') {
+        my $payload_length = @$payload_item;
+        for (my $i = 0; $i < $payload_length; $i++) {
+            $payload_item->[$i] = $self->encapsulate_payload_item($payload_item->[$i]);
+        }
+        return PerlCommand->new(
+            runtime => $self->{runtime_name},
+            command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Array'),
+            payload => $payload_item
+        );
+    }
+    else {
+        return PerlCommand->new(
+            runtime => $self->{runtime_name},
+            command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Value'),
+            payload => [$payload_item]
+        );
+    }
+}
+
+sub health_check {
+    my $self = shift;
+
+    my $command = PerlCommand->new(
+        runtime => $self->{runtime_name},
+        command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Value'),
+        payload => ['health_check']
+    );
+
+    execute($self->build_command($command), $self->{connection_type}, $self->{tcp_address});
 }
 
 no Moose;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/ExtUtils/Config/MakeMaker.pm

@@ -1,5 +1,5 @@
 package ExtUtils::Config::MakeMaker;
-$ExtUtils::Config::MakeMaker::VERSION = '0.009';
+$ExtUtils::Config::MakeMaker::VERSION = '0.010';
 use strict;
 use warnings;
 
@@ -73,7 +73,7 @@ ExtUtils::Config::MakeMaker - A ExtUtils::Config compatible wrapper for ExtUtils
 
 =head1 VERSION
 
-version 0.009
+version 0.010
 
 =head1 SYNOPSIS
 

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/ExtUtils/Config.pm

@@ -1,5 +1,5 @@
 package ExtUtils::Config;
-$ExtUtils::Config::VERSION = '0.009';
+$ExtUtils::Config::VERSION = '0.010';
 use strict;
 use warnings;
 use Config;
@@ -34,7 +34,7 @@ sub all_config {
 sub serialize {
 	my $self = shift;
 	require Data::Dumper;
-	return $self->{serialized} ||= Data::Dumper->new($self->{values})->Terse(1)->Sortkeys(1)->Dump;
+	return $self->{serialized} ||= Data::Dumper->new([ $self->{values} ])->Terse(1)->Sortkeys(1)->Dump;
 }
 
 sub but {
@@ -67,7 +67,7 @@ ExtUtils::Config - A wrapper for perl's configuration
 
 =head1 VERSION
 
-version 0.009
+version 0.010
 
 =head1 SYNOPSIS
 

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/ExtUtils/Helpers/Unix.pm

@@ -1,5 +1,5 @@
 package ExtUtils::Helpers::Unix;
-$ExtUtils::Helpers::Unix::VERSION = '0.027';
+$ExtUtils::Helpers::Unix::VERSION = '0.028';
 use strict;
 use warnings FATAL => 'all';
 
@@ -67,7 +67,7 @@ ExtUtils::Helpers::Unix - Unix specific helper bits
 
 =head1 VERSION
 
-version 0.027
+version 0.028
 
 =for Pod::Coverage make_executable
 split_like_shell

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/ExtUtils/Helpers/VMS.pm

@@ -1,5 +1,5 @@
 package ExtUtils::Helpers::VMS;
-$ExtUtils::Helpers::VMS::VERSION = '0.027';
+$ExtUtils::Helpers::VMS::VERSION = '0.028';
 use strict;
 use warnings FATAL => 'all';
 
@@ -89,7 +89,7 @@ ExtUtils::Helpers::VMS - VMS specific helper bits
 
 =head1 VERSION
 
-version 0.027
+version 0.028
 
 =for Pod::Coverage make_executable
 detildefy

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/ExtUtils/Helpers/Windows.pm

@@ -1,5 +1,5 @@
 package ExtUtils::Helpers::Windows;
-$ExtUtils::Helpers::Windows::VERSION = '0.027';
+$ExtUtils::Helpers::Windows::VERSION = '0.028';
 use strict;
 use warnings FATAL => 'all';
 
@@ -95,7 +95,7 @@ ExtUtils::Helpers::Windows - Windows specific helper bits
 
 =head1 VERSION
 
-version 0.027
+version 0.028
 
 =for Pod::Coverage make_executable
 split_like_shell

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/ExtUtils/Helpers.pm

@@ -1,5 +1,5 @@
 package ExtUtils::Helpers;
-$ExtUtils::Helpers::VERSION = '0.027';
+$ExtUtils::Helpers::VERSION = '0.028';
 use strict;
 use warnings FATAL => 'all';
 use Exporter 5.57 'import';
@@ -19,8 +19,9 @@ BEGIN {
 }
 
 sub man1_pagename {
-	my $filename = shift;
-	return basename($filename).".$Config{man1ext}";
+	my ($filename, $ext) = @_;
+	$ext ||= $Config{man1ext};
+	return basename($filename).".$ext";
 }
 
 my %separator = (
@@ -32,12 +33,13 @@ my %separator = (
 my $separator = $separator{$^O} || '::';
 
 sub man3_pagename {
-	my ($filename, $base) = @_;
+	my ($filename, $base, $ext) = @_;
 	$base ||= 'lib';
+	$ext  ||= $Config{man3ext};
 	my ($vols, $dirs, $file) = splitpath(canonpath(abs2rel($filename, $base)));
 	$file = basename($file, qw/.pm .pod/);
 	my @dirs = grep { length } splitdir($dirs);
-	return join $separator, @dirs, "$file.$Config{man3ext}";
+	return join $separator, @dirs, "$file.$ext";
 }
 
 1;
@@ -56,7 +58,7 @@ ExtUtils::Helpers - Various portability utilities for module builders
 
 =head1 VERSION
 
-version 0.027
+version 0.028
 
 =head1 SYNOPSIS
 
@@ -84,11 +86,11 @@ This function splits a string the same way as the local platform does.
 
 This function substitutes a tilde at the start of a path with the users homedir in an appropriate manner.
 
-=head2 man1_pagename($filename)
+=head2 man1_pagename($filename, $ext = $Config{man1ext})
 
 Returns the man page filename for a script.
 
-=head2 man3_pagename($filename, $basedir)
+=head2 man3_pagename($filename, $basedir = 'lib', $ext = $Config{man3ext})
 
 Returns the man page filename for a Perl library.
 

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/ExtUtils/InstallPaths.pm

@@ -1,12 +1,12 @@
 package ExtUtils::InstallPaths;
-$ExtUtils::InstallPaths::VERSION = '0.013';
-use 5.006;
+$ExtUtils::InstallPaths::VERSION = '0.014';
+use 5.008;
 use strict;
 use warnings;
 
 use File::Spec ();
 use Carp ();
-use ExtUtils::Config 0.002;
+use ExtUtils::Config 0.009;
 
 my %complex_accessors = map { $_ => 1 } qw/prefix_relpaths install_sets/;
 my %hash_accessors = map { $_ => 1 } qw/install_path install_base_relpaths original_prefix /;
@@ -69,6 +69,9 @@ my %filter = (
 sub new {
 	my ($class, %args) = @_;
 	my $config = $args{config} || ExtUtils::Config->new;
+	if ($config->get('installsitescript') eq '') {
+		$config = $config->but({ installsitescript => $config->get('installsitebin') });
+	}
 	my %self = (
 		config => $config,
 		map { $_ => exists $args{$_} ? $filter{$_} ? $filter{$_}->($args{$_}, $config) : $args{$_} : ref $defaults{$_} ? $defaults{$_}->($config) : $defaults{$_} } keys %defaults,
@@ -98,11 +101,10 @@ for my $attribute (keys %defaults) {
 	};
 }
 
-my $script = $] > 5.008000 ? 'script' : 'bin';
 my @install_sets_keys = qw/lib arch bin script bindoc libdoc binhtml libhtml/;
-my @install_sets_tail = ('bin', $script, qw/man1dir man3dir html1dir html3dir/);
+my @install_sets_tail = qw/bin script man1dir man3dir html1dir html3dir/;
 my %install_sets_values = (
-	core   => [ qw/privlib archlib /, @install_sets_tail ],
+	core   => [ qw/privlib archlib/, @install_sets_tail ],
 	site   => [ map { "site$_" } qw/lib arch/, @install_sets_tail ],
 	vendor => [ map { "vendor$_" } qw/lib arch/, @install_sets_tail ],
 );
@@ -404,7 +406,7 @@ ExtUtils::InstallPaths - Build.PL install path logic made easy
 
 =head1 VERSION
 
-version 0.013
+version 0.014
 
 =head1 SYNOPSIS
 

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/Module/Build/Tiny.pm

@@ -1,5 +1,5 @@
 package Module::Build::Tiny;
-$Module::Build::Tiny::VERSION = '0.048';
+$Module::Build::Tiny::VERSION = '0.051';
 use strict;
 use warnings;
 use Exporter 5.57 'import';
@@ -219,7 +219,7 @@ Module::Build::Tiny - A tiny replacement for Module::Build
 
 =head1 VERSION
 
-version 0.048
+version 0.051
 
 =head1 SYNOPSIS