javonet-ruby-sdk 2.4.7 → 2.4.9

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/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/Windows/X64/deps/lib/perl5/MSWin32-x64-multi-thread/autobox.pm

@@ -13,7 +13,7 @@ use Storable;
 
 # XXX this declaration must be on a single line
 # https://metacpan.org/pod/version#How-to-declare()-a-dotted-decimal-version
-use version 0.77; our $VERSION = version->declare('v3.0.1');
+use version 0.77; our $VERSION = version->declare('v3.0.2');
 
 XSLoader::load 'autobox', $VERSION;
 
@@ -98,7 +98,7 @@ sub _generate_class($) {
     };
 }
 
-# expose the autobox class (for can, isa &c.)
+# expose the autobox class (for can, isa etc.)
 # https://rt.cpan.org/Ticket/Display.html?id=55565
 sub _make_class_accessor ($) {
     my $class = shift;

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/MSWin32-x64-multi-thread/autobox.pod

@@ -40,8 +40,8 @@ autobox - call methods on native types
 
     # can, isa, VERSION, import and unimport can be accessed via autobox_class
 
-        42->autobox_class->isa('MyNumber')
-        say []->autobox_class->VERSION
+        42->autobox_class->isa('MyNumber');
+        say []->autobox_class->VERSION;
 
 =head1 DESCRIPTION
 
@@ -78,7 +78,8 @@ resolves to:
 
     ARRAY::for_each([ 1 .. 10 ], sub { ... })
 
-Values beginning with the array C<@> and hash C<%> sigils are passed by reference, i.e. under the default bindings:
+Values beginning with the array C<@> and hash C<%> sigils are passed by
+reference, i.e. under the default bindings:
 
     @array->join(', ')
     @{ ... }->length()
@@ -152,7 +153,7 @@ Autoboxing can be turned off entirely by using the C<no> syntax:
 
     "Hello, world!"->bar(); # runtime error
 
-Autoboxing is not performed for barewords i.e.
+Autoboxing is not performed for barewords, i.e.
 
     my $foo = Foo->new();
 
@@ -245,7 +246,7 @@ three different types of value:
 
 =item *
 
-A class name e.g.
+A class name, e.g.
 
     use autobox INTEGER => 'MyInt';
 
@@ -256,7 +257,7 @@ the corresponding C<value>.
 =item *
 
 A namespace: this is a class prefix (up to and including the final '::')
-to which the specified type name (INTEGER, FLOAT, STRING &c.) will be appended:
+to which the specified type name (INTEGER, FLOAT, STRING etc.) will be appended:
 
 Thus:
 
@@ -309,7 +310,7 @@ Which in turn is equivalent to:
     }
 
 Namespaces in DEFAULT values have the default type name appended, which, in the case of defaulted SCALAR types,
-is SCALAR rather than INTEGER, FLOAT &c.
+is SCALAR rather than INTEGER, FLOAT etc.
 
 Thus:
 
@@ -327,7 +328,7 @@ is equivalent to:
         FLOAT   => 'MyNamespace::SCALAR',
         STRING  => 'MyNamespace::SCALAR',
         ARRAY   => 'MyArray',
-        HASH    => 'MyArray',
+        HASH    => 'MyHash',
         CODE    => 'MyCode',
     }
 
@@ -351,7 +352,7 @@ This doesn't work:
 
     use autobox;
 
-    undef->foo() # runtime error
+    undef->foo(); # runtime error
 
 This works:
 
@@ -412,7 +413,7 @@ is equivalent to:
     }
 
 Virtual types can also be passed to C<unimport> via the C<no autobox> syntax. This disables autoboxing
-for the corresponding subtypes e.g.
+for the corresponding subtypes, e.g.
 
     no autobox qw(NUMBER);
 
@@ -435,7 +436,7 @@ would result in the following bindings:
     3.1415927->bar       -> [ MyNumber, MyScalar ]
     "Hello, world!"->baz -> [ MyScalar ]
 
-Note that DEFAULT bindings take precedence over virtual type bindings i.e.
+Note that DEFAULT bindings take precedence over virtual type bindings, i.e.
 
     use autobox {
         UNIVERSAL => 'MyUniversal',
@@ -446,7 +447,7 @@ is equivalent to:
 
   use autobox {
       INTEGER => [ 'MyDefault', 'MyUniversal' ],
-      FLOAT   => [ 'MyDefault', 'MyUniversal' ], # ... &c.
+      FLOAT   => [ 'MyDefault', 'MyUniversal' ], # ... etc.
   }
 
 =head2 DEBUG
@@ -485,11 +486,11 @@ or
 =head2 import
 
 This method sets up autobox bindings for the current lexical scope. It can be used to implement
-autobox extensions i.e. lexically-scoped modules that provide autobox bindings for one or more
+autobox extensions, i.e. lexically-scoped modules that provide autobox bindings for one or more
 native types without requiring calling code to C<use autobox>.
 
 This is done by subclassing autobox and overriding C<import>. This allows extensions to effectively
-translate C<use MyModule> into a bespoke C<use autobox> call e.g.:
+translate C<use MyModule> into a bespoke C<use autobox> call, e.g.:
 
     package String::Trim;
 
@@ -518,7 +519,7 @@ Note that C<trim> is defined in an auxiliary class rather than in String::Trim i
 String::Trim's own methods (i.e. the methods it inherits from autobox) being exposed to C<STRING> types.
 
 This module can now be used without a C<use autobox> statement to enable the C<trim> method in the current
-lexical scope e.g.:
+lexical scope, e.g.:
 
     #!/usr/bin/env perl
 
@@ -531,7 +532,7 @@ lexical scope e.g.:
 =head2 autobox_class
 
 autobox adds a single method to all autoboxed types: C<autobox_class>. This can be used to
-call L<UNIVERSAL|UNIVERSAL> methods i.e. C<can>, C<DOES>, C<import>, C<isa>, C<unimport> and C<VERSION> e.g.
+call L<UNIVERSAL|UNIVERSAL> methods, i.e. C<can>, C<DOES>, C<import>, C<isa>, C<unimport> and C<VERSION>, e.g.
 
     if (sub { ... }->autobox_class->can('curry')) ...
     if (42->autobox_class->isa('SCALAR')) ...
@@ -540,7 +541,7 @@ Note: C<autobox_class> must B<always> be used when calling these methods. Callin
 directly on native types produces the same results as calling them with autobox disabled
 e.g.:
 
-    42->isa('NUMBER') # "" (interpeted as "42"->isa("NUMBER"))
+    42->isa('NUMBER') # "" (interpreted as "42"->isa("NUMBER"))
     []->can('push')   # Error: Can't call method "can" on unblessed reference
 
 =head1 EXPORTS
@@ -550,7 +551,7 @@ e.g.:
 autobox includes an additional module, autobox::universal, which exports a single subroutine, C<type>.
 
 This sub returns the type of its argument within autobox (which is essentially longhand for the type names
-used within perl). This value is used by autobox to associate a method invocant with its designated classes e.g.
+used within perl). This value is used by autobox to associate a method invocant with its designated classes, e.g.
 
     use autobox::universal qw(type);
 
@@ -560,7 +561,7 @@ used within perl). This value is used by autobox to associate a method invocant
     type(undef) # UNDEF
 
 autobox::universal is loaded automatically by autobox, and, as its name suggests, can be used to install
-a universal C<type> method for autoboxed values e.g.
+a universal C<type> method for autoboxed values, e.g.
 
     use autobox UNIVERSAL => 'autobox::universal';
 
@@ -624,7 +625,7 @@ Perl's special-casing for the C<print BLOCK ...> syntax (see L<perlsub>) means t
     print { 'foo', 'bar', @_ }->foo();
 
     # but this doesn't
-    print { @_ }->foo() ? 1 : 0
+    print { @_ }->foo() ? 1 : 0;
 
 In the latter case, the solution is to supply something
 other than a HASH ref literal as the first argument
@@ -649,14 +650,14 @@ to C<print()>:
 =head3 eval EXPR
 
 Like most pragmas, autobox performs operations at compile time, and,
-as a result, runtime string C<eval>s are not executed within its scope i.e. this
-doesn't work:
+as a result, runtime string C<eval>s are not executed within its scope, i.e.
+this doesn't work:
 
     use autobox;
 
     eval "42->foo";
 
-The workaround is to use autobox within the C<eval> e.g.
+The workaround is to use autobox within the C<eval>, e.g.
 
     eval <<'EOS';
         use autobox;
@@ -678,7 +679,7 @@ which depends on values being blessed - doesn't apply.
 
 =head1 VERSION
 
-3.0.1
+3.0.2
 
 =head1 SEE ALSO
 
@@ -700,9 +701,9 @@ chocolateboy <chocolate@cpan.org>
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2003-2018 by chocolateboy.
+Copyright (c) 2003-2024 by chocolateboy.
 
 This library is free software; you can redistribute it and/or modify it under the
-terms of the L<Artistic License 2.0|http://www.opensource.org/licenses/artistic-license-2.0.php>.
+terms of the L<Artistic License 2.0|https://www.opensource.org/licenses/artistic-license-2.0.php>.
 
 =cut

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/MSWin32-x64-multi-thread/perllocal.pod

@@ -1,4 +1,4 @@
-=head2 Thu Aug  1 13:30:03 2024: C<Module> L<Data::UUID|Data::UUID>
+=head2 Wed Sep 11 07:15:18 2024: C<Module> L<Want|Want>
 
 =over 4
 
@@ -12,7 +12,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.227>
+C<VERSION: 0.29>
 
 =item *
 
@@ -20,7 +20,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Thu Aug  1 13:30:08 2024: C<Module> L<Attribute::Util|Attribute::Util>
+=head2 Wed Sep 11 07:15:25 2024: C<Module> L<PPI|PPI>
 
 =over 4
 
@@ -34,7 +34,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.07>
+C<VERSION: 1.279>
 
 =item *
 
@@ -42,7 +42,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Thu Aug  1 13:30:15 2024: C<Module> L<autobox|autobox>
+=head2 Wed Sep 11 07:15:30 2024: C<Module> L<PPI::XS|PPI::XS>
 
 =over 4
 
@@ -56,7 +56,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: v3.0.1>
+C<VERSION: 0.910>
 
 =item *
 
@@ -64,7 +64,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Thu Aug  1 13:30:23 2024: C<Module> L<Scalar::Util::Numeric|Scalar::Util::Numeric>
+=head2 Wed Sep 11 07:15:33 2024: C<Module> L<Nice::Try|Nice::Try>
 
 =over 4
 
@@ -78,7 +78,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.40>
+C<VERSION: v1.3.13>
 
 =item *
 
@@ -86,7 +86,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Thu Aug  1 13:30:34 2024: C<Module> L<PPI|PPI>
+=head2 Wed Sep 11 07:15:37 2024: C<Module> L<Test::Fatal|Test::Fatal>
 
 =over 4
 
@@ -100,7 +100,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.278>
+C<VERSION: 0.017>
 
 =item *
 
@@ -108,7 +108,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Thu Aug  1 13:30:40 2024: C<Module> L<Want|Want>
+=head2 Wed Sep 11 07:15:42 2024: C<Module> L<autobox|autobox>
 
 =over 4
 
@@ -122,7 +122,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.29>
+C<VERSION: v3.0.2>
 
 =item *
 
@@ -130,7 +130,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Thu Aug  1 13:30:47 2024: C<Module> L<PPI::XS|PPI::XS>
+=head2 Wed Sep 11 07:15:45 2024: C<Module> L<Attribute::Util|Attribute::Util>
 
 =over 4
 
@@ -144,7 +144,29 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.910>
+C<VERSION: 1.07>
+
+=item *
+
+C<EXE_FILES: >
+
+=back
+
+=head2 Wed Sep 11 07:15:51 2024: C<Module> L<Data::UUID|Data::UUID>
+
+=over 4
+
+=item *
+
+C<installed into: D:\a\1\s\src\perl\deps\lib\perl5>
+
+=item *
+
+C<LINKTYPE: dynamic>
+
+=item *
+
+C<VERSION: 1.227>
 
 =item *
 
@@ -152,7 +174,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Thu Aug  1 13:30:50 2024: C<Module> L<Nice::Try|Nice::Try>
+=head2 Wed Sep 11 07:15:56 2024: C<Module> L<Scalar::Util::Numeric|Scalar::Util::Numeric>
 
 =over 4
 
@@ -166,7 +188,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: v1.3.10>
+C<VERSION: 0.40>
 
 =item *
 
@@ -174,7 +196,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Thu Aug  1 13:30:55 2024: C<Module> L<Data::Cmp|Data::Cmp>
+=head2 Wed Sep 11 07:15:59 2024: C<Module> L<Data::Cmp|Data::Cmp>
 
 =over 4