javonet-ruby-sdk 2.5.17 → 2.5.18

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Core/Handler/PerlHandler.pm

@@ -29,8 +29,9 @@ use aliased 'Javonet::Sdk::Core::PerlCommandType' => 'PerlCommandType', qw(get_c
 use aliased 'Javonet::Sdk::Core::PerlCommand' => 'PerlCommand';
 use aliased 'Javonet::Core::Handler::ReferencesCache' => 'ReferencesCache';
 use aliased 'Javonet::Core::Handler::AbstractHandler' => 'AbstractHandler';
-use aliased 'Javonet::Sdk::Core::RuntimeLib' => 'RuntimeLib', qw(get_runtime);
-use aliased 'Javonet::Core::Handler::HandlerDictionary' => 'HandlerDictionary', qw(get_handler);
+use aliased 'Javonet::Sdk::Core::RuntimeLib' => 'RuntimeLib';
+use aliased 'Javonet::Core::Handler::HandlerDictionary' => 'HandlerDictionary';
+use aliased 'Javonet::Sdk::Core::TypesHandler' => 'TypesHandler';
 
 my $value_handler = ValueHandler->new();
 my $load_library_handler = LoadLibraryHandler->new();
@@ -130,21 +131,14 @@ sub handle_command {
     my ($self, $command) = @_;
     my $response = Javonet::Core::Handler::HandlerDictionary::get_handler($command->{command_type})->handle_command($command);
 
-    if (!defined $response) {
+    if (TypesHandler->is_primitive_or_none($response)) {
         return PerlCommand->new(
             runtime      => Javonet::Sdk::Core::RuntimeLib::get_runtime('Perl'),
             command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Value'),
             payload      => [ $response ]
-        )
+        );
     }
 
-    if (ref $response eq '') {
-        return PerlCommand->new(
-            runtime      => Javonet::Sdk::Core::RuntimeLib::get_runtime('Perl'),
-            command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Value'),
-            payload      => [ $response ]
-        )
-    }
     # elsif (ref $response eq 'ARRAY') {
     #     {
     #         my $reference_cache = ReferencesCache->new();

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Core/Interpreter/Interpreter.pm

@@ -16,7 +16,7 @@ sub execute_ {
     my $command = shift;
     my $connection_type = shift;
     my $tcp_address = shift;
-    my @serialized_command = Javonet::Core::Protocol::CommandSerializer->encode($command, $connection_type, $tcp_address, 0);
+    my @serialized_command = Javonet::Core::Protocol::CommandSerializer->serialize($command, $connection_type, $tcp_address, 0);
     my $response_byte_array_ref;
     if ($command->{runtime} eq Javonet::Sdk::Core::RuntimeLib::get_runtime('Perl')) {
         require Javonet::Core::Receiver::Receiver;
@@ -37,7 +37,7 @@ sub process {
     my $command = $commandDeserializer->decode();
     my $response = $handler->handle_command($command);
     my $commandSerializer = CommandSerializer->new();
-    my @response_byte_array = $commandSerializer->encode($response, 0, 0, 0);
+    my @response_byte_array = $commandSerializer->serialize($response, 0, 0, 0);
     return @response_byte_array;
 }
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Core/Protocol/CommandSerializer.pm

@@ -8,16 +8,17 @@ use aliased 'Javonet::Sdk::Core::PerlCommand' => 'PerlCommand';
 use aliased 'Javonet::Sdk::Core::RuntimeLib' => 'RuntimeLib', qw(get_runtime);
 use aliased 'Javonet::Sdk::Core::Type' => 'Type', qw(get_type);
 use aliased 'Javonet::Core::Protocol::TypeSerializer' => 'TypeSerializer';
+use aliased 'Javonet::Sdk::Core::TypesHandler' => 'TypesHandler';
 use Javonet::Sdk::Internal::ConnectionType;
 use Thread::Queue;
 
 use Exporter qw(import);
-our @EXPORT = qw(encode serialize_tcp_address serialize_recursively insert_into_buffer);
+our @EXPORT = qw(serialize serialize_tcp_address serialize_recursively insert_into_buffer);
 
 my @byte_buffer = ();
 my $queue = Thread::Queue->new();
 
-sub encode {
+sub serialize {
     my ($self, $root_command, $connection_type, $tcp_address, $runtimeVersion) = @_;
     @byte_buffer = ();
     $queue = Thread::Queue->new();
@@ -32,10 +33,10 @@ sub encode {
 sub serialize_tcp_address {
     my ($connection_type, $tcp_address) = @_;
     my @tcp_byte_array;
-    if ( Javonet::Sdk::Internal::ConnectionType::get_connection_type('Tcp') eq $connection_type) {
+    if (Javonet::Sdk::Internal::ConnectionType::get_connection_type('Tcp') eq $connection_type) {
         my @tcp_array = split(':', $tcp_address);
         my @tcp_ip = split('\\.', $tcp_array[0]);
-        my @bytes_port =  unpack "C*", pack "v",  $tcp_array[1];
+        my @bytes_port = unpack "C*", pack "v", $tcp_array[1];
         @tcp_byte_array = (Javonet::Sdk::Internal::ConnectionType::get_connection_type('Tcp'), @tcp_ip, @bytes_port);
         return @tcp_byte_array;
     }
@@ -45,10 +46,9 @@ sub serialize_tcp_address {
     }
 }
 
-
-sub serialize_recursively{
+sub serialize_recursively {
     my $left = $queue->pending();
-    if ($left == 0){
+    if ($left == 0) {
         return @byte_buffer;
     }
     my $command = $queue->dequeue();
@@ -56,24 +56,25 @@ sub serialize_recursively{
     my $current_payload_ref = $command->{payload};
     my @cur_payload = @$current_payload_ref;
     my $payload_len = @cur_payload;
-    if ($payload_len > 0){
-        if (!defined $cur_payload[0]){
+    if ($payload_len > 0) {
+        if (!defined $cur_payload[0]) {
             insert_into_buffer(TypeSerializer->serializePrimitive(undef));
         }
+        elsif ($cur_payload[0]->isa("Javonet::Sdk::Core::PerlCommand")) {
+            my $inner_command = $cur_payload[0];
+            insert_into_buffer(TypeSerializer->serializeCommand($inner_command));
+            $queue->insert(0, $inner_command);
+        }
+        elsif (TypesHandler->is_primitive_or_none($cur_payload[0])) {
+            my @result = TypeSerializer->serializePrimitive($cur_payload[0]);
+            insert_into_buffer(@result);
+        }
         else {
-            if ($cur_payload[0]->isa("Javonet::Sdk::Core::PerlCommand")) {
-                my $inner_command = $cur_payload[0];
-                insert_into_buffer(TypeSerializer->serializeCommand($inner_command));
-                $queue->insert(0, $inner_command);
-            }
-            else {
-                my @result = TypeSerializer->serializePrimitive($cur_payload[0]);
-                insert_into_buffer(@result);
-            }
+            die "Unsupported payload item type: " . ref($cur_payload[0]) . " for payload item: $cur_payload[0].";
         }
         return serialize_recursively();
     }
-    else{
+    else {
         $queue->dequeue();
     }
     return serialize_recursively();
@@ -85,4 +86,4 @@ sub insert_into_buffer {
 }
 
 no Moose;
-1;
+1;

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Sdk/Core/Type.pm

@@ -18,6 +18,7 @@ my %my_type = (
     'JavonetUnsignedLongLong' => 9,
     'JavonetUnsignedInteger' => 10,
     'JavonetNull' => 11,
+    'JavonetVoid' => 12,
 );
 
 sub get_type {
@@ -27,4 +28,4 @@ sub get_type {
 
 no Moose;
 
-1;
+1;

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Sdk/Core/TypesHandler.pm

@@ -0,0 +1,13 @@
+package Javonet::Sdk::Core::TypesHandler;
+use strict;
+use warnings FATAL => 'all';
+use Exporter qw(import);
+our @EXPORT = qw(is_primitive_or_none);
+
+sub is_primitive_or_none {
+    my ($self, $item) = @_;
+    return (!defined $item || $item =~ /^(?:-?\d+(?:\.\d+)?|true|false)$/ || !ref $item);
+}
+
+
+1;

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

@@ -7,6 +7,7 @@ use aliased 'Javonet::Sdk::Core::PerlCommand' => 'PerlCommand';
 use aliased 'Javonet::Core::Handler::PerlHandler' => 'PerlHandler';
 use aliased 'Javonet::Core::Interpreter::Interpreter' => 'Interpreter', qw(execute_);
 use aliased 'Javonet::Core::Exception::ExceptionThrower' => 'ExceptionThrower';
+use aliased 'Javonet::Sdk::Core::TypesHandler' => 'TypesHandler';
 
 extends 'Javonet::Sdk::Internal::Abstract::AbstractInstanceContext',
     'Javonet::Sdk::Internal::Abstract::AbstractMethodInvocationContext',
@@ -437,14 +438,17 @@ sub encapsulate_payload_item {
     elsif ($payload_item->isa('Javonet::Sdk::Internal::InvocationContext')) {
         return $payload_item->get_current_command();
     }
-    else {
+    elsif (TypesHandler->is_primitive_or_none($payload_item)) {
         return PerlCommand->new(
             runtime      => $self->{runtime_name},
             command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Value'),
             payload      => [ $payload_item ]
         );
     }
+    else {
+        die "Unsupported payload item type: " . ref($payload_item) . " for payload item: $payload_item.";
+    }
 }
 
 no Moose;
-1;
+1;

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

@@ -8,6 +8,7 @@ use aliased 'Javonet::Sdk::Internal::InvocationContext' => 'InvocationContext';
 use aliased 'Javonet::Core::Handler::PerlHandler' => 'PerlHandler';
 use aliased 'Javonet::Core::Interpreter::Interpreter' => 'Interpreter', qw(execute_);
 use aliased 'Javonet::Core::Exception::ExceptionThrower' => 'ExceptionThrower';
+use aliased 'Javonet::Sdk::Core::TypesHandler' => 'TypesHandler';
 
 extends 'Javonet::Sdk::Internal::Abstract::AbstractRuntimeContext',
     'Javonet::Sdk::Internal::Abstract::AbstractTypeContext';
@@ -267,13 +268,16 @@ sub encapsulate_payload_item {
     elsif ($payload_item->isa('Javonet::Sdk::Internal::InvocationContext')) {
         return $payload_item->get_current_command();
     }
-    else {
+    elsif (TypesHandler->is_primitive_or_none($payload_item)) {
         return PerlCommand->new(
             runtime      => $self->{runtime_name},
             command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Value'),
             payload      => [ $payload_item ]
         );
     }
+    else {
+        die "Unsupported payload item type: " . ref($payload_item) . " for payload item: $payload_item.";
+    }
 }
 
 sub health_check {
@@ -289,4 +293,4 @@ sub health_check {
 }
 
 no Moose;
-1;
+1;

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

@@ -1,4 +1,4 @@
-=head2 Mon May  5 13:24:39 2025: C<Module> L<Data::UUID|Data::UUID>
+=head2 Thu May 22 12:46:42 2025: C<Module> L<Safe::Isa|Safe::Isa>
 
 =over 4
 
@@ -12,7 +12,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.227>
+C<VERSION: 1.000010>
 
 =item *
 
@@ -20,7 +20,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Mon May  5 13:24:53 2025: C<Module> L<YAML::PP|YAML::PP>
+=head2 Thu May 22 12:46:54 2025: C<Module> L<YAML::PP|YAML::PP>
 
 =over 4
 
@@ -42,29 +42,7 @@ C<EXE_FILES: bin/yamlpp-events bin/yamlpp-highlight bin/yamlpp-load bin/yamlpp-l
 
 =back
 
-=head2 Mon May  5 13:24:56 2025: C<Module> L<Safe::Isa|Safe::Isa>
-
-=over 4
-
-=item *
-
-C<installed into: D:\a\1\s\src\perl\deps\lib\perl5>
-
-=item *
-
-C<LINKTYPE: dynamic>
-
-=item *
-
-C<VERSION: 1.000010>
-
-=item *
-
-C<EXE_FILES: >
-
-=back
-
-=head2 Mon May  5 13:25:00 2025: C<Module> L<PPI|PPI>
+=head2 Thu May 22 12:47:00 2025: C<Module> L<PPI|PPI>
 
 =over 4
 
@@ -86,7 +64,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Mon May  5 13:25:05 2025: C<Module> L<PPI::XS|PPI::XS>
+=head2 Thu May 22 12:47:19 2025: C<Module> L<PPI::XS|PPI::XS>
 
 =over 4
 
@@ -108,7 +86,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Mon May  5 13:25:10 2025: C<Module> L<Want|Want>
+=head2 Thu May 22 12:47:29 2025: C<Module> L<Want|Want>
 
 =over 4
 
@@ -130,7 +108,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Mon May  5 13:25:13 2025: C<Module> L<Nice::Try|Nice::Try>
+=head2 Thu May 22 12:47:34 2025: C<Module> L<Nice::Try|Nice::Try>
 
 =over 4
 
@@ -152,7 +130,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Mon May  5 13:25:16 2025: C<Module> L<Attribute::Util|Attribute::Util>
+=head2 Thu May 22 12:47:40 2025: C<Module> L<Data::Cmp|Data::Cmp>
 
 =over 4
 
@@ -166,7 +144,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.07>
+C<VERSION: 0.010>
 
 =item *
 
@@ -174,7 +152,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Mon May  5 13:25:21 2025: C<Module> L<Test::Fatal|Test::Fatal>
+=head2 Thu May 22 12:47:51 2025: C<Module> L<autobox|autobox>
 
 =over 4
 
@@ -188,7 +166,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.017>
+C<VERSION: v3.0.2>
 
 =item *
 
@@ -196,7 +174,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Mon May  5 13:25:26 2025: C<Module> L<autobox|autobox>
+=head2 Thu May 22 12:48:01 2025: C<Module> L<Data::UUID|Data::UUID>
 
 =over 4
 
@@ -210,7 +188,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: v3.0.2>
+C<VERSION: 1.227>
 
 =item *
 
@@ -218,7 +196,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Mon May  5 13:25:29 2025: C<Module> L<Data::Cmp|Data::Cmp>
+=head2 Thu May 22 12:48:07 2025: C<Module> L<Attribute::Util|Attribute::Util>
 
 =over 4
 
@@ -232,7 +210,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.010>
+C<VERSION: 1.07>
 
 =item *
 
@@ -240,7 +218,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Mon May  5 13:25:35 2025: C<Module> L<Scalar::Util::Numeric|Scalar::Util::Numeric>
+=head2 Thu May 22 12:48:16 2025: C<Module> L<Scalar::Util::Numeric|Scalar::Util::Numeric>
 
 =over 4