javonet-ruby-sdk 2.6.10 → 2.6.12

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 Tue Dec 16 13:58:07 2025: C<Module> L<Want|Want>
 
 =over 4
 
@@ -12,7 +12,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.010>
+C<VERSION: 0.29>
 
 =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 Tue Dec 16 13:58:12 2025: C<Module> L<Safe::Isa|Safe::Isa>
 
 =over 4
 
@@ -34,7 +34,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.018>
+C<VERSION: 1.000010>
 
 =item *
 
@@ -42,7 +42,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Fri Nov 28 08:46:45 2025: C<Module> L<autobox|autobox>
+=head2 Tue Dec 16 13:58:19 2025: C<Module> L<YAML::PP|YAML::PP>
 
 =over 4
 
@@ -56,15 +56,15 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: v3.0.2>
+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:46:49 2025: C<Module> L<Scalar::Util::Numeric|Scalar::Util::Numeric>
+=head2 Tue Dec 16 13:58:22 2025: C<Module> L<PPI|PPI>
 
 =over 4
 
@@ -78,7 +78,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.40>
+C<VERSION: 1.284>
 
 =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 Tue Dec 16 13:58:26 2025: C<Module> L<PPI::XS|PPI::XS>
 
 =over 4
 
@@ -100,7 +100,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.07>
+C<VERSION: 0.910>
 
 =item *
 
@@ -108,7 +108,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Fri Nov 28 08:46:57 2025: C<Module> L<Want|Want>
+=head2 Tue Dec 16 13:58:27 2025: C<Module> L<Nice::Try|Nice::Try>
 
 =over 4
 
@@ -122,7 +122,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.29>
+C<VERSION: v1.3.17>
 
 =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 Tue Dec 16 13:58:30 2025: C<Module> L<Test::Fatal|Test::Fatal>
 
 =over 4
 
@@ -144,7 +144,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.000010>
+C<VERSION: 0.018>
 
 =item *
 
@@ -152,7 +152,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Fri Nov 28 08:47:08 2025: C<Module> L<YAML::PP|YAML::PP>
+=head2 Tue Dec 16 13:58:34 2025: C<Module> L<autobox|autobox>
 
 =over 4
 
@@ -166,15 +166,15 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: v0.39.0>
+C<VERSION: v3.0.2>
 
 =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 Tue Dec 16 13:58:38 2025: C<Module> L<Data::UUID|Data::UUID>
 
 =over 4
 
@@ -188,7 +188,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.284>
+C<VERSION: 1.227>
 
 =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 Tue Dec 16 13:58:42 2025: C<Module> L<Scalar::Util::Numeric|Scalar::Util::Numeric>
 
 =over 4
 
@@ -210,7 +210,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.910>
+C<VERSION: 0.40>
 
 =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 Tue Dec 16 13:58:45 2025: C<Module> L<Data::Cmp|Data::Cmp>
 
 =over 4
 
@@ -232,7 +232,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: v1.3.17>
+C<VERSION: 0.010>
 
 =item *
 
@@ -240,7 +240,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Fri Nov 28 08:47:21 2025: C<Module> L<Data::UUID|Data::UUID>
+=head2 Tue Dec 16 13:58:47 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/Exception/SdkExceptionHelper.pm

@@ -40,7 +40,7 @@ sub send_exception_to_app_insights {
         }
         catch ( $e ) {
             $javonet_version = "2.0.0";
-        }
+        };
 
         my $node_name = eval {hostname()} || "Unknown Host";
 
@@ -86,8 +86,8 @@ sub send_exception_to_app_insights {
         return $response_code;
     }
     catch ( $e ) {
-        return Exception->new($e);
+        return 500;
     }
 }
 
-1;
+1;

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)) {

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

@@ -9,13 +9,8 @@ use aliased 'Javonet::Core::Protocol::CommandDeserializer' => 'CommandDeserializ
 use Exporter qw(import);
 our @EXPORT = qw(execute_ process);
 
-my $handler = PerlHandler->new();
-
 sub execute_ {
-    my $self = shift;
-    my $command = shift;
-    my $connection_type = shift;
-    my $tcp_address = shift;
+    my ($class, $command, $connection_type, $tcp_address) = @_;
     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')) {
@@ -26,18 +21,15 @@ sub execute_ {
         $response_byte_array_ref = Javonet::Core::Transmitter::PerlTransmitter->t_send_command(\@serialized_command);
     }
 
-    my $commandDeserializer = CommandDeserializer->new($response_byte_array_ref);
-    return $commandDeserializer->decode();
+    return CommandDeserializer->deserialize($response_byte_array_ref);
 }
 
 sub process {
-    my ($self, $message_byte_array_ref) = @_;
+    my ($class, $message_byte_array_ref) = @_;
     my @message_byte_array = @$message_byte_array_ref;
-    my $commandDeserializer = CommandDeserializer->new(\@message_byte_array);
-    my $command = $commandDeserializer->decode();
-    my $response = $handler->handle_command($command);
-    my $commandSerializer = CommandSerializer->new();
-    my @response_byte_array = $commandSerializer->serialize($response, 0, 0, 0);
+    my $command = CommandDeserializer->deserialize(\@message_byte_array);
+    my $response = PerlHandler->handle_command($command);
+    my @response_byte_array = CommandSerializer->serialize($response, 0, 0, 0);
     return @response_byte_array;
 }
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/lib/Javonet/Core/Protocol/CommandDeserializer.pm

@@ -1,204 +1,266 @@
 package Javonet::Core::Protocol::CommandDeserializer;
 use strict;
 use warnings;
-use Moose;
 use lib 'lib';
 use aliased 'Javonet::Sdk::Core::PerlCommand' => 'PerlCommand';
 use aliased 'Javonet::Sdk::Core::Type' => 'Type', qw(get_type);
 use aliased 'Javonet::Core::Protocol::TypeDeserializer' => 'TypeDeserializer';
 
 use Exporter qw(import);
-our @EXPORT = qw(new isAtEnd decode readObject readCommand readCommandRecursively readString readInt readBool readFloat readByte readChar readLongLong readDouble readUnsignedLongLong readUnsignedInt readUndef);
-
-our $position = 0;
-our @buffer = [];
-our $command;
-
-sub new {
-    my ($self, $array_ref) = @_;
-    @buffer = @$array_ref;
-    $command = PerlCommand->new(runtime => $buffer[0],
-        command_type                    => $buffer[10], payload => []);
-    $position = 11;
-    return $self;
-}
-
-sub isAtEnd {
-    my $length = @buffer;
-    return $position == $length;
-}
+our @EXPORT = qw(deserialize);
 
-sub decode {
-    while (!isAtEnd()) {
-        $command = $command->addArgumentToPayload([ readObject($buffer[$position]) ]);
+# Static deserialize method
+sub deserialize {
+    my ($class, $byte_array_ref) = @_;
+    my @buffer = ref $byte_array_ref eq 'ARRAY' ? @$byte_array_ref : @$byte_array_ref;
+    my $position = 11;  # Start position after header
+    
+    my $command = PerlCommand->new(
+        runtime => $buffer[0],
+        command_type => $buffer[10],
+        payload => []
+    );
+    
+    # Use position reference to simulate ref parameter
+    my $position_ref = \$position;
+    
+    while ($position < @buffer) {
+        $command = $command->AddArgToPayload(ReadObject(\@buffer, $position_ref));
     }
+    
     return $command;
 }
 
-sub readObject {
-    my $type_num = $_[0];
-    if ($type_num == Type->get_type('Command')) {
-        return readCommand();
+# ReadObject
+sub ReadObject {
+    my ($buffer_ref, $position_ref) = @_;
+    my @buffer = @$buffer_ref;
+    my $position = $$position_ref;
+    
+    my $type = $buffer[$position];
+    
+    if ($type == Type->get_type('Command')) {
+        return ReadCommand($buffer_ref, $position_ref);
     }
-    elsif ($type_num == Type->get_type('JavonetString')) {
-        return readString();
+    elsif ($type == Type->get_type('JavonetString')) {
+        return ReadString($buffer_ref, $position_ref);
     }
-    elsif ($type_num == Type->get_type('JavonetInteger')) {
-        return readInt();
+    elsif ($type == Type->get_type('JavonetInteger')) {
+        return ReadInt($buffer_ref, $position_ref);
     }
-    elsif ($type_num == Type->get_type('JavonetBool')) {
-        return readBool();
+    elsif ($type == Type->get_type('JavonetBool')) {
+        return ReadBool($buffer_ref, $position_ref);
     }
-    elsif ($type_num == Type->get_type('JavonetFloat')) {
-        return readFloat();
+    elsif ($type == Type->get_type('JavonetFloat')) {
+        return ReadFloat($buffer_ref, $position_ref);
     }
-    elsif ($type_num == Type->get_type('JavonetByte')) {
-        return readByte();
+    elsif ($type == Type->get_type('JavonetByte')) {
+        return ReadByte($buffer_ref, $position_ref);
     }
-    elsif ($type_num == Type->get_type('JavonetChar')) {
-        return readChar();
+    elsif ($type == Type->get_type('JavonetChar')) {
+        return ReadChar($buffer_ref, $position_ref);
     }
-    elsif ($type_num == Type->get_type('JavonetLongLong')) {
-        return readLongLong();
+    elsif ($type == Type->get_type('JavonetLongLong')) {
+        return ReadLong($buffer_ref, $position_ref);
     }
-    elsif ($type_num == Type->get_type('JavonetDouble')) {
-        return readDouble();
+    elsif ($type == Type->get_type('JavonetDouble')) {
+        return ReadDouble($buffer_ref, $position_ref);
     }
-    elsif ($type_num == Type->get_type('JavonetUnsignedLongLong')) {
-        return readUnsignedLongLong();
+    elsif ($type == Type->get_type('JavonetUnsignedLongLong')) {
+        return ReadULong($buffer_ref, $position_ref);
     }
-    elsif ($type_num == Type->get_type('JavonetUnsignedInteger')) {
-        return readUnsignedInt();
+    elsif ($type == Type->get_type('JavonetUnsignedInteger')) {
+        return ReadUInt($buffer_ref, $position_ref);
     }
-    elsif ($type_num == Type->get_type('JavonetNull')) {
-        return readUndef();
+    elsif ($type == Type->get_type('JavonetNull')) {
+        return ReadNull($buffer_ref, $position_ref);
     }
     else {
-        die "Type is not supported: $type_num";
+        die "NotImplementedException: Type not supported: $type";
     }
 }
 
-sub readCommand {
-    my $p = $position;
+# ReadCommand
+sub ReadCommand {
+    my ($buffer_ref, $position_ref) = @_;
+    my @buffer = @$buffer_ref;
+    my $p = $$position_ref;
+    
+    # Read numberOfElements from bytes p+1 to p+4
     my @int_buffer = @buffer[$p + 1 .. $p + 4];
-    my $numberOfArgumentInPayload = TypeDeserializer->deserializeInt(\@int_buffer);
+    my $numberOfElements = TypeDeserializer->deserializeInt(\@int_buffer);
+    
     my $runtime = $buffer[$p + 5];
     my $commandType = $buffer[$p + 6];
-
-    $position += 7;
-    my $returnCommand = PerlCommand->new(runtime => $runtime, command_type => $commandType);
-    return readCommandRecursively($numberOfArgumentInPayload, $returnCommand);
-}
-
-sub readCommandRecursively {
-    my $numberOfArgumentInPayloadLeft = $_[0];
-    my $cmd = $_[1];
-
-    if ($numberOfArgumentInPayloadLeft == 0) {
-        return $cmd;
-    }
-    else {
-        my $p = $position;
-        my @int_buffer = @buffer[$p + 1 .. $p + 4];
-        my $argSize = TypeDeserializer->deserializeInt(\@int_buffer);
-        $cmd = $cmd->addArgumentToPayload([ readObject($buffer[$p]) ]);
-        return readCommandRecursively($numberOfArgumentInPayloadLeft - 1, $cmd);
+    
+    $$position_ref += 7;
+    
+    # Read all payload elements at once
+    my @payload = ();
+    for (my $i = 0; $i < $numberOfElements; $i++) {
+        push @payload, ReadObject($buffer_ref, $position_ref);
     }
+    
+    return PerlCommand->new(
+        runtime => $runtime,
+        command_type => $commandType,
+        payload => \@payload
+    );
 }
 
-sub readString {
-    my $p = $position;
-    my $string_encoding_mode = $buffer[$p + 1];
+# ReadString
+sub ReadString {
+    my ($buffer_ref, $position_ref) = @_;
+    my @buffer = @$buffer_ref;
+    my $p = $$position_ref;
+    
+    my $mode = $buffer[$p + 1];
     my @int_buffer = @buffer[$p + 2 .. $p + 5];
     my $size = TypeDeserializer->deserializeInt(\@int_buffer);
-    $position += 6;
-    $p = $position;
-    $position += $size;
+    
+    $$position_ref += 6;
+    $p = $$position_ref;
+    $$position_ref += $size;
+    
     my @string_buffer = @buffer[$p .. $p + $size - 1];
-    my $decodedString = TypeDeserializer->deserializeString($string_encoding_mode, \@string_buffer);
-
-    return $decodedString
+    return TypeDeserializer->deserializeString($mode, \@string_buffer);
 }
 
-sub readInt {
-    $position += 2;
-    my $p = $position;
-    $position += 4;
-    my @int_buffer = @buffer[$p .. $p + 3];
+# ReadInt
+sub ReadInt {
+    my ($buffer_ref, $position_ref) = @_;
+    my @buffer = @$buffer_ref;
+    my $size = 4;
+    
+    $$position_ref += 2;
+    my $p = $$position_ref;
+    $$position_ref += $size;
+    
+    my @int_buffer = @buffer[$p .. $p + $size - 1];
     return TypeDeserializer->deserializeInt(\@int_buffer);
 }
 
-sub readBool {
-    $position += 2;
-    my $p = $position;
-    $position += 1;
-    my $bool_buffer = $buffer[$p];
-    return TypeDeserializer->deserializeBool($bool_buffer);
+# ReadBool 
+sub ReadBool {
+    my ($buffer_ref, $position_ref) = @_;
+    my @buffer = @$buffer_ref;
+    my $size = 1;
+    
+    $$position_ref += 2;
+    my $p = $$position_ref;
+    $$position_ref += $size;
+    
+    return TypeDeserializer->deserializeBool($buffer[$p]);
 }
 
-sub readFloat {
-    $position += 2;
-    my $p = $position;
-    $position += 4;
-    my @float_buffer = @buffer[$p .. $p + 3];
+# ReadFloat 
+sub ReadFloat {
+    my ($buffer_ref, $position_ref) = @_;
+    my @buffer = @$buffer_ref;
+    my $size = 4;
+    
+    $$position_ref += 2;
+    my $p = $$position_ref;
+    $$position_ref += $size;
+    
+    my @float_buffer = @buffer[$p .. $p + $size - 1];
     return TypeDeserializer->deserializeFloat(\@float_buffer);
 }
 
-sub readByte {
-    $position += 2;
-    my $p = $position;
-    $position += 1;
-    my $byte_buffer = $buffer[$p];
-    return TypeDeserializer->deserializeByte($byte_buffer);
+# ReadByte 
+sub ReadByte {
+    my ($buffer_ref, $position_ref) = @_;
+    my @buffer = @$buffer_ref;
+    my $size = 1;
+    
+    $$position_ref += 2;
+    my $p = $$position_ref;
+    $$position_ref += $size;
+    
+    return TypeDeserializer->deserializeByte($buffer[$p]);
 }
 
-sub readChar {
-    $position += 2;
-    my $p = $position;
-    $position += 1;
-    my $char_buffer = $buffer[$p];
-    return TypeDeserializer->deserializeChar($char_buffer);
+# ReadChar
+sub ReadChar {
+    my ($buffer_ref, $position_ref) = @_;
+    my @buffer = @$buffer_ref;
+    my $size = 1;
+    
+    $$position_ref += 2;
+    my $p = $$position_ref;
+    $$position_ref += $size;
+    
+    return TypeDeserializer->deserializeChar($buffer[$p]);
 }
 
-sub readLongLong {
-    $position += 2;
-    my $p = $position;
-    $position += 8;
-    my @longlong_buffer = @buffer[$p .. $p + 7];
+# ReadLong 
+sub ReadLong {
+    my ($buffer_ref, $position_ref) = @_;
+    my @buffer = @$buffer_ref;
+    my $size = 8;
+    
+    $$position_ref += 2;
+    my $p = $$position_ref;
+    $$position_ref += $size;
+    
+    my @longlong_buffer = @buffer[$p .. $p + $size - 1];
     return TypeDeserializer->deserializeLongLong(\@longlong_buffer);
 }
 
-sub readDouble {
-    $position += 2;
-    my $p = $position;
-    $position += 8;
-    my @double_buffer = @buffer[$p .. $p + 7];
+# ReadDouble 
+sub ReadDouble {
+    my ($buffer_ref, $position_ref) = @_;
+    my @buffer = @$buffer_ref;
+    my $size = 8;
+    
+    $$position_ref += 2;
+    my $p = $$position_ref;
+    $$position_ref += $size;
+    
+    my @double_buffer = @buffer[$p .. $p + $size - 1];
     return TypeDeserializer->deserializeDouble(\@double_buffer);
 }
 
-sub readUnsignedLongLong {
-    $position += 2;
-    my $p = $position;
-    $position += 8;
-    my @ulonglong_buffer = @buffer[$p .. $p + 7];
+# ReadULong 
+sub ReadULong {
+    my ($buffer_ref, $position_ref) = @_;
+    my @buffer = @$buffer_ref;
+    my $size = 8;
+    
+    $$position_ref += 2;
+    my $p = $$position_ref;
+    $$position_ref += $size;
+    
+    my @ulonglong_buffer = @buffer[$p .. $p + $size - 1];
     return TypeDeserializer->deserializeULongLong(\@ulonglong_buffer);
 }
 
-sub readUnsignedInt {
-    $position += 2;
-    my $p = $position;
-    $position += 4;
-    my @uint_buffer = @buffer[$p .. $p + 3];
+# ReadUInt
+sub ReadUInt {
+    my ($buffer_ref, $position_ref) = @_;
+    my @buffer = @$buffer_ref;
+    my $size = 4;
+    
+    $$position_ref += 2;
+    my $p = $$position_ref;
+    $$position_ref += $size;
+    
+    my @uint_buffer = @buffer[$p .. $p + $size - 1];
     return TypeDeserializer->deserializeUInt(\@uint_buffer);
 }
 
-sub readUndef {
-    $position += 2;
-    my $p = $position;
-    $position += 1;
-    my $undef_buffer = $buffer[$p];
-    return TypeDeserializer->deserializeUndef($undef_buffer);
+# ReadNull 
+sub ReadNull {
+    my ($buffer_ref, $position_ref) = @_;
+    my @buffer = @$buffer_ref;
+    my $size = 1;
+    
+    $$position_ref += 2;
+    my $p = $$position_ref;
+    $$position_ref += $size;
+    
+    # Note: deserializeUndef doesn't use the buffer, but we match C# structure
+    return TypeDeserializer->deserializeUndef();
 }
 
-no Moose;
 1;