javonet-ruby-sdk 2.6.10 → 2.6.11

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

@@ -1,7 +1,6 @@
 package Javonet::Core::Protocol::TypeSerializer;
 use strict;
 use warnings;
-use Moose;
 use Encode;
 use lib 'lib';
 
@@ -14,26 +13,24 @@ use Exporter qw(import);
 our @EXPORT = qw(serializeCommand serializePrimitive serializeString serializeInt serializeBool serializeFloat serializeByte serializeChar serializeLongLong serializeDouble serializeUllong serializeUint serializeUndef);
 
 sub serializePrimitive {
-    my $self = $_[0];
-    my $payload_item = $_[1];
+    my ($class, $payload_item) = @_;
     if(!defined $payload_item) {
-        return serializeUndef($self);
+        return serializeUndef($class);
     }
 
     if(isint($payload_item)){
-        return serializeInt($self, $payload_item);
+        return serializeInt($class, $payload_item);
     }
     if(type($payload_item) eq "FLOAT"){
-        return serializeDouble($self, $payload_item);
+        return serializeDouble($class, $payload_item);
     }
     else{
-        return serializeString($self, $payload_item);
+        return serializeString($class, $payload_item);
     }
 }
 
 sub serializeCommand {
-    my $self = $_[0];
-    my $command = $_[1];
+    my ($class, $command) = @_;
     my $length = @{$command->{payload}};
     my @length =  unpack "C*", pack "V",  $length;
     my @initial_array =(Type->get_type('Command'), @length, $command->{runtime},$command->{command_type});
@@ -42,8 +39,7 @@ sub serializeCommand {
 }
 
 sub serializeString {
-    my $self = $_[0];
-    my $string = $_[1];
+    my ($class, $string) = @_;
     my @serialized_string = unpack("C*", Encode::encode("utf8", $string));
     my $length = @serialized_string;
 
@@ -56,7 +52,7 @@ sub serializeString {
 }
 
 sub serializeInt {
-    my ($self, $int_value) = @_;
+    my ($class, $int_value) = @_;
     my $length = 4;
     my @initial_array = (Type->get_type('JavonetInteger'), $length);
     my @bytes =  unpack "C*", pack "i",  $int_value;
@@ -64,7 +60,7 @@ sub serializeInt {
 }
 
 sub serializeBool {
-    my ($self, $bool_value) = @_;
+    my ($class, $bool_value) = @_;
     my $length = 1;
     my @initial_array = (Type->get_type('JavonetBool'), $length);
     my @bytes;
@@ -79,7 +75,7 @@ sub serializeBool {
 }
 
 sub serializeFloat {
-    my ($self, $float_value) = @_;
+    my ($class, $float_value) = @_;
     my $length = 4;
     my @initial_array = (Type->get_type('JavonetFloat'), $length);
     my @bytes = unpack "C*", pack "f",  $float_value;
@@ -87,7 +83,7 @@ sub serializeFloat {
 }
 
 sub serializeByte {
-    my ($self, $byte_value) = @_;
+    my ($class, $byte_value) = @_;
     my $length = 1;
     my @initial_array = (Type->get_type('JavonetByte'), $length);
     my @bytes =  ($byte_value);
@@ -95,7 +91,7 @@ sub serializeByte {
 }
 
 sub serializeChar {
-    my ($self, $char_value) = @_;
+    my ($class, $char_value) = @_;
     my $length = 1;
     my @initial_array = (Type->get_type('JavonetChar'), $length);
     my @bytes =  ($char_value);
@@ -103,7 +99,7 @@ sub serializeChar {
 }
 
 sub serializeLongLong {
-    my ($self, $longlong_value) = @_;
+    my ($class, $longlong_value) = @_;
     my $length = 8;
     my @initial_array = (Type->get_type('JavonetLongLong'), $length);
     my @bytes =  unpack "C*", pack "q",  $longlong_value;
@@ -111,7 +107,7 @@ sub serializeLongLong {
 }
 
 sub serializeDouble {
-    my ($self, $double_value) = @_;
+    my ($class, $double_value) = @_;
     my $length = 8;
     my @initial_array = (Type->get_type('JavonetDouble'), $length);
     my @bytes =  unpack "C*", pack "d",  $double_value;
@@ -119,7 +115,7 @@ sub serializeDouble {
 }
 
 sub serializeUllong {
-    my ($self, $ullong_value) = @_;
+    my ($class, $ullong_value) = @_;
     my $length = 8;
     my @initial_array = (Type->get_type('JavonetUnsignedLongLong'), $length);
     my @bytes =  unpack "C*", pack "Q",  $ullong_value;
@@ -127,7 +123,7 @@ sub serializeUllong {
 }
 
 sub serializeUint {
-    my ($self, $uint_value) = @_;
+    my ($class, $uint_value) = @_;
     my $length = 4;
     my @initial_array = (Type->get_type('JavonetUnsignedInteger'), $length);
     my @bytes =  unpack "C*", pack "V",  $uint_value;
@@ -135,6 +131,7 @@ sub serializeUint {
 }
 
 sub serializeUndef {
+    my ($class) = @_;
     my $length = 1;
     my @initial_array = (Type->get_type('JavonetNull'), $length);
     my @bytes =  (0);

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

@@ -30,13 +30,13 @@ use aliased 'Javonet::Core::Protocol::CommandSerializer' => 'CommandSerializer';
 
 
 sub heart_beat {
-    my ($self, $message_byte_array_ref) = @_;
+    my ($class, $message_byte_array_ref) = @_;
     my @response_byte_array = (49, 48);
     return \@response_byte_array;
 }
 
 sub send_command {
-    my ($self, $message_byte_array_ref) = @_;
+    my ($class, $message_byte_array_ref) = @_;
     my @message_byte_array = @$message_byte_array_ref;
     my @response_byte_array;
 #    try {
@@ -45,7 +45,7 @@ sub send_command {
 #    catch ( $e ) {
 #        my $exception = Exception->new($e);
 #        my $exception_command = Javonet::Core::Exception::ExceptionSerializer->serialize($exception);
-#        @response_byte_array = CommandSerializer->serialize($exception_command, 0);
+#        @response_byte_array = CommandSerializer->serialize($exception_command, 0, 0, 0);
 #    };
 
     return \@response_byte_array;
@@ -54,6 +54,7 @@ sub send_command {
 }
 
 sub get_runtime_info {
+    my ($class) = @_;
     return RuntimeLogger->rl_get_runtime_info();
 }
 

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

@@ -5,95 +5,207 @@ use lib 'lib';
 use Moose;
 use Scalar::Util;
 
+use aliased 'Javonet::Sdk::Core::PerlCommandType' => 'PerlCommandType';
+
 has 'runtime' => (
-    is => 'rw',
+    is => 'ro',
     isa => 'Int',
     required => 1,
     reader => '_get_runtime'
 );
 
 has 'command_type' => (
-    is       => 'rw',
+    is       => 'ro',
     isa      => 'Int',
     required => 1,
     reader   => '_get_command_type'
 );
 
 has 'payload' => (
-    is      => 'rw',
+    is      => 'ro',
     isa     => 'ArrayRef',
     default => sub {[]},
-    writer  => '_set_payload',
     reader  => '_get_payload'
 );
 
-sub addArgumentToPayload{
-    my ($self, $payload_ref) = @_;
-    my @payload_array = @$payload_ref;
-    my $firstVar = $self->{payload}[0];
-    my @merged_payload;
-    if (!defined $firstVar){
-        @merged_payload = @payload_array;
+# Constructor with params object[] (list of objects)
+sub new {
+    my ($class, %args) = @_;
+    my $runtime = $args{runtime};
+    my $command_type = $args{command_type};
+    my $payload = $args{payload};
+    
+    # If payload is not provided or is undef, use empty array
+    if (!defined $payload) {
+        $payload = [];
+    }
+    # If payload is already an array reference, use it directly
+    elsif (ref $payload eq 'ARRAY') {
+        # Reuse array reference directly - no conversion overhead
+        $payload = $payload;
     }
-    else{
-        my $current_payload_ref = $self->{payload};
-        my @cur_payload = @$current_payload_ref;
-        @merged_payload = (@cur_payload, @payload_array);
+    # If payload is a list (not a reference), convert to array reference
+    else {
+        # This handles the case where payload might be passed as a list
+        # Convert to array reference
+        my @payload_array = ref $payload ? @$payload : ($payload);
+        $payload = \@payload_array;
     }
-    return Javonet::Sdk::Core::PerlCommand->new(runtime => $self->{runtime}, command_type => $self->{command_type}, payload => \@merged_payload);
+    
+    my $self = {
+        runtime => $runtime,
+        command_type => $command_type,
+        payload => $payload
+    };
+    
+    bless $self, $class;
+    return $self;
 }
 
-# sub size{
-#     my ($self) = @_;
-#     my $command_size = 0;
-#     my $current_payload_ref = $self->{payload};
-#     my @cur_payload = @$current_payload_ref;
-#     for (my $i = 0; $i < @cur_payload; $i++) {
-#         if ($cur_payload[$i]->isa("Javonet::Sdk::Core::PerlCommand")) {
-#             $command_size += $cur_payload[$i]->size();
-#         }
-#         if (Scalar::Util::looks_like_number($cur_payload[$i])){
-#             $command_size += 4
-#         }
-#         if ( ! defined $cur_payload[$i]){
-#             # undefined
-#             $command_size += 0;
-#         }
-#         elsif ( ref $cur_payload[$i] ) {
-#             # reference (return of ref will give the type)
-#             $command_size += 0;
-#         }
-#         else{
-#             $command_size += length($cur_payload[$i]);
-#         }
-#     }
-#     return $command_size;
-# }
+# Static factory method: CreateResponse
+sub CreateResponse {
+    my ($class, $response, $runtime_name) = @_;
+    return $class->new(
+        runtime => $runtime_name,
+        command_type => PerlCommandType->get_command_type('Value'),
+        payload => [$response]
+    );
+}
 
-sub drop_first_payload_argument {
+# Static factory method: CreateReference
+sub CreateReference {
+    my ($class, $guid, $runtime_name) = @_;
+    return $class->new(
+        runtime => $runtime_name,
+        command_type => PerlCommandType->get_command_type('Reference'),
+        payload => [$guid]
+    );
+}
+
+# Static factory method: CreateArrayResponse
+sub CreateArrayResponse {
+    my ($class, $array, $runtime_name) = @_;
+    # Convert array to array reference if needed
+    my $payload = ref $array eq 'ARRAY' ? $array : [$array];
+    return $class->new(
+        runtime => $runtime_name,
+        command_type => PerlCommandType->get_command_type('Array'),
+        payload => $payload
+    );
+}
+
+# DropFirstPayloadArg - matches C# DropFirstPayloadArg
+sub DropFirstPayloadArg {
     my ($self) = @_;
+    my $class = ref($self) || $self;
     my $current_payload_ref = $self->{payload};
     my @cur_payload = @$current_payload_ref;
     my $payload_length = @cur_payload;
-    if ($payload_length != 0){
-        shift(@cur_payload);
+    
+    if ($payload_length <= 1) {
+        return $class->new(
+            runtime => $self->{runtime},
+            command_type => $self->{command_type},
+            payload => []
+        );
     }
-    return Javonet::Sdk::Core::PerlCommand->new(runtime => $self->{runtime}, command_type => $self->{command_type}, payload => \@cur_payload);
+    
+    my $new_length = $payload_length - 1;
+    my @new_payload = @cur_payload[1 .. $#cur_payload];
+    
+    return $class->new(
+        runtime => $self->{runtime},
+        command_type => $self->{command_type},
+        payload => \@new_payload
+    );
+}
 
+# AddArgToPayload - matches C# AddArgToPayload
+sub AddArgToPayload {
+    my ($self, $arg) = @_;
+    my $class = ref($self) || $self;
+    my $current_payload_ref = $self->{payload};
+    my @cur_payload = @$current_payload_ref;
+    my $old_length = @cur_payload;
+    my @new_payload = (@cur_payload, $arg);
+    
+    return $class->new(
+        runtime => $self->{runtime},
+        command_type => $self->{command_type},
+        payload => \@new_payload
+    );
 }
 
-sub prepend_arg_to_payload{
-    my ($self, $current_command) = @_;
+# PrependArgToPayload - matches C# PrependArgToPayload
+sub PrependArgToPayload {
+    my ($self, $arg_command) = @_;
+    
+    if (!defined $arg_command) {
+        return $self;
+    }
+    
+    my $class = ref($self) || $self;
     my $current_payload_ref = $self->{payload};
     my @cur_payload = @$current_payload_ref;
-    my @merged_payload;
-    if(defined $current_command) {
-        @merged_payload = ($current_command, @cur_payload);
-    } else {
-        @merged_payload = @cur_payload;
+    my $old_length = @cur_payload;
+    my @new_payload = ($arg_command, @cur_payload);
+    
+    return $class->new(
+        runtime => $self->{runtime},
+        command_type => $self->{command_type},
+        payload => \@new_payload
+    );
+}
+
+# Legacy method name for backward compatibility
+sub addArgumentToPayload {
+    my ($self, $payload_ref) = @_;
+    my @payload_array = ref $payload_ref eq 'ARRAY' ? @$payload_ref : ($payload_ref);
+    return $self->AddArgToPayload($payload_array[0]) if @payload_array == 1;
+    # For multiple items, add them one by one
+    my $result = $self;
+    for my $item (@payload_array) {
+        $result = $result->AddArgToPayload($item);
     }
+    return $result;
+}
+
+# Legacy method name for backward compatibility
+sub drop_first_payload_argument {
+    return $_[0]->DropFirstPayloadArg();
+}
+
+# Legacy method name for backward compatibility
+sub prepend_arg_to_payload {
+    return $_[0]->PrependArgToPayload($_[1]);
+}
 
-    return Javonet::Sdk::Core::PerlCommand->new(runtime => $self->{runtime}, command_type => $self->{command_type}, payload => \@merged_payload);
+# ToString method - matches C# ToString
+sub ToString {
+    my ($self) = @_;
+    eval {
+        my $result = "RuntimeName " . $self->{runtime} . " ";
+        $result .= "CommandType " . $self->{command_type} . " ";
+        $result .= "Payload ";
+        
+        my $payload_ref = $self->{payload};
+        my @payload = @$payload_ref;
+        my $len = @payload;
+        
+        for (my $i = 0; $i < $len; $i++) {
+            my $item = $payload[$i];
+            $result .= defined $item ? $item : "null";
+            
+            if ($i < $len - 1) {
+                $result .= " ";
+            }
+        }
+        
+        return $result;
+    };
+    if ($@) {
+        return "Error while converting command to string: " . $@;
+    }
 }
 
 no Moose;

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

@@ -13,8 +13,6 @@ extends 'Javonet::Sdk::Internal::Abstract::AbstractInstanceContext',
     'Javonet::Sdk::Internal::Abstract::AbstractMethodInvocationContext',
     'Javonet::Sdk::Internal::Abstract::AbstractInvocationContext';
 
-my $perl_handler = Javonet::Core::Handler::PerlHandler->new();
-
 sub new {
     my $class = shift;
 

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

@@ -13,7 +13,6 @@ use aliased 'Javonet::Sdk::Core::TypesHandler' => 'TypesHandler';
 extends 'Javonet::Sdk::Internal::Abstract::AbstractRuntimeContext',
     'Javonet::Sdk::Internal::Abstract::AbstractTypeContext';
 
-my $perl_handler = Javonet::Core::Handler::PerlHandler->new();
 our %memoryRuntimeContexts;
 our %networkRuntimeContexts;
 our %configRuntimeContexts;

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

@@ -1,4 +1,4 @@
-=head2 Fri Nov 28 08:46:34 2025: C<Module> L<Data::Cmp|Data::Cmp>
+=head2 Sat Dec  6 14:26:00 2025: C<Module> L<Test::Fatal|Test::Fatal>
 
 =over 4
 
@@ -12,7 +12,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.010>
+C<VERSION: 0.018>
 
 =item *
 
@@ -20,7 +20,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Fri Nov 28 08:46:37 2025: C<Module> L<Test::Fatal|Test::Fatal>
+=head2 Sat Dec  6 14:26:08 2025: C<Module> L<autobox|autobox>
 
 =over 4
 
@@ -34,7 +34,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.018>
+C<VERSION: v3.0.2>
 
 =item *
 
@@ -42,7 +42,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Fri Nov 28 08:46:45 2025: C<Module> L<autobox|autobox>
+=head2 Sat Dec  6 14:26:12 2025: C<Module> L<Scalar::Util::Numeric|Scalar::Util::Numeric>
 
 =over 4
 
@@ -56,7 +56,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: v3.0.2>
+C<VERSION: 0.40>
 
 =item *
 
@@ -64,7 +64,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Fri Nov 28 08:46:49 2025: C<Module> L<Scalar::Util::Numeric|Scalar::Util::Numeric>
+=head2 Sat Dec  6 14:26:17 2025: C<Module> L<Data::UUID|Data::UUID>
 
 =over 4
 
@@ -78,7 +78,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.40>
+C<VERSION: 1.227>
 
 =item *
 
@@ -86,7 +86,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Fri Nov 28 08:46:52 2025: C<Module> L<Attribute::Util|Attribute::Util>
+=head2 Sat Dec  6 14:26:19 2025: C<Module> L<Data::Cmp|Data::Cmp>
 
 =over 4
 
@@ -100,7 +100,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.07>
+C<VERSION: 0.010>
 
 =item *
 
@@ -108,7 +108,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Fri Nov 28 08:46:57 2025: C<Module> L<Want|Want>
+=head2 Sat Dec  6 14:26:23 2025: C<Module> L<Safe::Isa|Safe::Isa>
 
 =over 4
 
@@ -122,7 +122,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.29>
+C<VERSION: 1.000010>
 
 =item *
 
@@ -130,7 +130,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Fri Nov 28 08:47:01 2025: C<Module> L<Safe::Isa|Safe::Isa>
+=head2 Sat Dec  6 14:26:31 2025: C<Module> L<YAML::PP|YAML::PP>
 
 =over 4
 
@@ -144,15 +144,15 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.000010>
+C<VERSION: v0.39.0>
 
 =item *
 
-C<EXE_FILES: >
+C<EXE_FILES: bin/yamlpp-events bin/yamlpp-highlight bin/yamlpp-load bin/yamlpp-load-dump bin/yamlpp-parse-emit>
 
 =back
 
-=head2 Fri Nov 28 08:47:08 2025: C<Module> L<YAML::PP|YAML::PP>
+=head2 Sat Dec  6 14:26:34 2025: C<Module> L<PPI|PPI>
 
 =over 4
 
@@ -166,15 +166,15 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: v0.39.0>
+C<VERSION: 1.284>
 
 =item *
 
-C<EXE_FILES: bin/yamlpp-events bin/yamlpp-highlight bin/yamlpp-load bin/yamlpp-load-dump bin/yamlpp-parse-emit>
+C<EXE_FILES: >
 
 =back
 
-=head2 Fri Nov 28 08:47:11 2025: C<Module> L<PPI|PPI>
+=head2 Sat Dec  6 14:26:38 2025: C<Module> L<PPI::XS|PPI::XS>
 
 =over 4
 
@@ -188,7 +188,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.284>
+C<VERSION: 0.910>
 
 =item *
 
@@ -196,7 +196,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Fri Nov 28 08:47:15 2025: C<Module> L<PPI::XS|PPI::XS>
+=head2 Sat Dec  6 14:26:42 2025: C<Module> L<Want|Want>
 
 =over 4
 
@@ -210,7 +210,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.910>
+C<VERSION: 0.29>
 
 =item *
 
@@ -218,7 +218,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Fri Nov 28 08:47:16 2025: C<Module> L<Nice::Try|Nice::Try>
+=head2 Sat Dec  6 14:26:44 2025: C<Module> L<Nice::Try|Nice::Try>
 
 =over 4
 
@@ -240,7 +240,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Fri Nov 28 08:47:21 2025: C<Module> L<Data::UUID|Data::UUID>
+=head2 Sat Dec  6 14:26:46 2025: C<Module> L<Attribute::Util|Attribute::Util>
 
 =over 4
 
@@ -254,7 +254,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.227>
+C<VERSION: 1.07>
 
 =item *
 

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

@@ -135,7 +135,7 @@ Javonet::Core::Handler::HandlerDictionary::add_handler_to_dict(
 );
 
 sub handle_command {
-    my ($self, $command) = @_;
+    my ($class, $command) = @_;
     my $response = Javonet::Core::Handler::HandlerDictionary::get_handler($command->{command_type})->handle_command($command);
 
     if (TypesHandler->is_primitive_or_none($response)) {