javonet-ruby-sdk 2.6.11 → 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 Sat Dec  6 14:26:00 2025: C<Module> L<Test::Fatal|Test::Fatal>
+=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.018>
+C<VERSION: 0.29>
 
 =item *
 
@@ -20,7 +20,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Sat Dec  6 14:26:08 2025: C<Module> L<autobox|autobox>
+=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: v3.0.2>
+C<VERSION: 1.000010>
 
 =item *
 
@@ -42,7 +42,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Sat Dec  6 14:26:12 2025: C<Module> L<Scalar::Util::Numeric|Scalar::Util::Numeric>
+=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: 0.40>
+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 Sat Dec  6 14:26:17 2025: C<Module> L<Data::UUID|Data::UUID>
+=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: 1.227>
+C<VERSION: 1.284>
 
 =item *
 
@@ -86,7 +86,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Sat Dec  6 14:26:19 2025: C<Module> L<Data::Cmp|Data::Cmp>
+=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: 0.010>
+C<VERSION: 0.910>
 
 =item *
 
@@ -108,7 +108,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Sat Dec  6 14:26:23 2025: C<Module> L<Safe::Isa|Safe::Isa>
+=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: 1.000010>
+C<VERSION: v1.3.17>
 
 =item *
 
@@ -130,7 +130,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Sat Dec  6 14:26:31 2025: C<Module> L<YAML::PP|YAML::PP>
+=head2 Tue Dec 16 13:58:30 2025: C<Module> L<Test::Fatal|Test::Fatal>
 
 =over 4
 
@@ -144,15 +144,15 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: v0.39.0>
+C<VERSION: 0.018>
 
 =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 Sat Dec  6 14:26:34 2025: C<Module> L<PPI|PPI>
+=head2 Tue Dec 16 13:58:34 2025: C<Module> L<autobox|autobox>
 
 =over 4
 
@@ -166,7 +166,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.284>
+C<VERSION: v3.0.2>
 
 =item *
 
@@ -174,7 +174,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Sat Dec  6 14:26:38 2025: C<Module> L<PPI::XS|PPI::XS>
+=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: 0.910>
+C<VERSION: 1.227>
 
 =item *
 
@@ -196,7 +196,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Sat Dec  6 14:26:42 2025: C<Module> L<Want|Want>
+=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.29>
+C<VERSION: 0.40>
 
 =item *
 
@@ -218,7 +218,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Sat Dec  6 14:26:44 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 Sat Dec  6 14:26:46 2025: C<Module> L<Attribute::Util|Attribute::Util>
+=head2 Tue Dec 16 13:58:47 2025: C<Module> L<Attribute::Util|Attribute::Util>
 
 =over 4
 

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/Protocol/CommandDeserializer.pm

@@ -9,202 +9,258 @@ use aliased 'Javonet::Core::Protocol::TypeDeserializer' => 'TypeDeserializer';
 use Exporter qw(import);
 our @EXPORT = qw(deserialize);
 
-# Static deserialize method - takes byte array and returns Command
+# 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 => []
     );
     
-    # Helper function to check if at end
-    my $isAtEnd = sub {
-        my $length = @buffer;
-        return $position == $length;
-    };
-    
-    # Define read functions first (they will be referenced by readObject and readCommand)
-    my $readString = sub {
-        my $p = $position;
-        my $string_encoding_mode = $buffer[$p + 1];
-        my @int_buffer = @buffer[$p + 2 .. $p + 5];
-        my $size = TypeDeserializer->deserializeInt(\@int_buffer);
-        $position += 6;
-        $p = $position;
-        $position += $size;
-        my @string_buffer = @buffer[$p .. $p + $size - 1];
-        my $decodedString = TypeDeserializer->deserializeString($string_encoding_mode, \@string_buffer);
-        return $decodedString;
-    };
-    
-    my $readInt = sub {
-        $position += 2;
-        my $p = $position;
-        $position += 4;
-        my @int_buffer = @buffer[$p .. $p + 3];
-        return TypeDeserializer->deserializeInt(\@int_buffer);
-    };
-    
-    my $readBool = sub {
-        $position += 2;
-        my $p = $position;
-        $position += 1;
-        my $bool_buffer = $buffer[$p];
-        return TypeDeserializer->deserializeBool($bool_buffer);
-    };
-    
-    my $readFloat = sub {
-        $position += 2;
-        my $p = $position;
-        $position += 4;
-        my @float_buffer = @buffer[$p .. $p + 3];
-        return TypeDeserializer->deserializeFloat(\@float_buffer);
-    };
-    
-    my $readByte = sub {
-        $position += 2;
-        my $p = $position;
-        $position += 1;
-        my $byte_buffer = $buffer[$p];
-        return TypeDeserializer->deserializeByte($byte_buffer);
-    };
-    
-    my $readChar = sub {
-        $position += 2;
-        my $p = $position;
-        $position += 1;
-        my $char_buffer = $buffer[$p];
-        return TypeDeserializer->deserializeChar($char_buffer);
-    };
-    
-    my $readLongLong = sub {
-        $position += 2;
-        my $p = $position;
-        $position += 8;
-        my @longlong_buffer = @buffer[$p .. $p + 7];
-        return TypeDeserializer->deserializeLongLong(\@longlong_buffer);
-    };
-    
-    my $readDouble = sub {
-        $position += 2;
-        my $p = $position;
-        $position += 8;
-        my @double_buffer = @buffer[$p .. $p + 7];
-        return TypeDeserializer->deserializeDouble(\@double_buffer);
-    };
-    
-    my $readUnsignedLongLong = sub {
-        $position += 2;
-        my $p = $position;
-        $position += 8;
-        my @ulonglong_buffer = @buffer[$p .. $p + 7];
-        return TypeDeserializer->deserializeULongLong(\@ulonglong_buffer);
-    };
-    
-    my $readUnsignedInt = sub {
-        $position += 2;
-        my $p = $position;
-        $position += 4;
-        my @uint_buffer = @buffer[$p .. $p + 3];
-        return TypeDeserializer->deserializeUInt(\@uint_buffer);
-    };
-    
-    my $readUndef = sub {
-        $position += 2;
-        my $p = $position;
-        $position += 1;
-        my $undef_buffer = $buffer[$p];
-        return TypeDeserializer->deserializeUndef($undef_buffer);
-    };
-    
-    # Declare readObject first for mutual recursion
-    my $readObject;
-    
-    # Helper function to read command recursively (needs readObject)
-    my $readCommandRecursively;
-    $readCommandRecursively = sub {
-        my ($numberOfArgumentInPayloadLeft, $cmd) = @_;
-        
-        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->AddArgToPayload($readObject->($buffer[$p]));
-            return $readCommandRecursively->($numberOfArgumentInPayloadLeft - 1, $cmd);
-        }
-    };
-    
-    # Helper function to read command (needs readCommandRecursively and readObject)
-    my $readCommand = sub {
-        my $p = $position;
-        my @int_buffer = @buffer[$p + 1 .. $p + 4];
-        my $numberOfArgumentInPayload = 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);
-    };
-    
-    # Helper function to read object (references all read functions)
-    $readObject = sub {
-        my ($type_num) = @_;
-        if ($type_num == Type->get_type('Command')) {
-            return $readCommand->();
-        }
-        elsif ($type_num == Type->get_type('JavonetString')) {
-            return $readString->();
-        }
-        elsif ($type_num == Type->get_type('JavonetInteger')) {
-            return $readInt->();
-        }
-        elsif ($type_num == Type->get_type('JavonetBool')) {
-            return $readBool->();
-        }
-        elsif ($type_num == Type->get_type('JavonetFloat')) {
-            return $readFloat->();
-        }
-        elsif ($type_num == Type->get_type('JavonetByte')) {
-            return $readByte->();
-        }
-        elsif ($type_num == Type->get_type('JavonetChar')) {
-            return $readChar->();
-        }
-        elsif ($type_num == Type->get_type('JavonetLongLong')) {
-            return $readLongLong->();
-        }
-        elsif ($type_num == Type->get_type('JavonetDouble')) {
-            return $readDouble->();
-        }
-        elsif ($type_num == Type->get_type('JavonetUnsignedLongLong')) {
-            return $readUnsignedLongLong->();
-        }
-        elsif ($type_num == Type->get_type('JavonetUnsignedInteger')) {
-            return $readUnsignedInt->();
-        }
-        elsif ($type_num == Type->get_type('JavonetNull')) {
-            return $readUndef->();
-        }
-        else {
-            die "Type is not supported: $type_num";
-        }
-    };
-    
-    
-    # Decode the command
-    while (!$isAtEnd->()) {
-        $command = $command->AddArgToPayload($readObject->($buffer[$position]));
-        # Note: position is managed inside readObject and helper functions
+    # Use position reference to simulate ref parameter
+    my $position_ref = \$position;
+    
+    while ($position < @buffer) {
+        $command = $command->AddArgToPayload(ReadObject(\@buffer, $position_ref));
     }
     
     return $command;
 }
 
+# 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 == Type->get_type('JavonetString')) {
+        return ReadString($buffer_ref, $position_ref);
+    }
+    elsif ($type == Type->get_type('JavonetInteger')) {
+        return ReadInt($buffer_ref, $position_ref);
+    }
+    elsif ($type == Type->get_type('JavonetBool')) {
+        return ReadBool($buffer_ref, $position_ref);
+    }
+    elsif ($type == Type->get_type('JavonetFloat')) {
+        return ReadFloat($buffer_ref, $position_ref);
+    }
+    elsif ($type == Type->get_type('JavonetByte')) {
+        return ReadByte($buffer_ref, $position_ref);
+    }
+    elsif ($type == Type->get_type('JavonetChar')) {
+        return ReadChar($buffer_ref, $position_ref);
+    }
+    elsif ($type == Type->get_type('JavonetLongLong')) {
+        return ReadLong($buffer_ref, $position_ref);
+    }
+    elsif ($type == Type->get_type('JavonetDouble')) {
+        return ReadDouble($buffer_ref, $position_ref);
+    }
+    elsif ($type == Type->get_type('JavonetUnsignedLongLong')) {
+        return ReadULong($buffer_ref, $position_ref);
+    }
+    elsif ($type == Type->get_type('JavonetUnsignedInteger')) {
+        return ReadUInt($buffer_ref, $position_ref);
+    }
+    elsif ($type == Type->get_type('JavonetNull')) {
+        return ReadNull($buffer_ref, $position_ref);
+    }
+    else {
+        die "NotImplementedException: Type not supported: $type";
+    }
+}
+
+# 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 $numberOfElements = TypeDeserializer->deserializeInt(\@int_buffer);
+    
+    my $runtime = $buffer[$p + 5];
+    my $commandType = $buffer[$p + 6];
+    
+    $$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
+    );
+}
+
+# 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_ref += 6;
+    $p = $$position_ref;
+    $$position_ref += $size;
+    
+    my @string_buffer = @buffer[$p .. $p + $size - 1];
+    return TypeDeserializer->deserializeString($mode, \@string_buffer);
+}
+
+# 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);
+}
+
+# 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]);
+}
+
+# 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);
+}
+
+# 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]);
+}
+
+# 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]);
+}
+
+# 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);
+}
+
+# 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);
+}
+
+# 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);
+}
+
+# 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);
+}
+
+# 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();
+}
+
 1;