javonet-ruby-sdk 2.5.14 → 2.5.15

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

@@ -1,4 +1,4 @@
-=head2 Mon Mar 24 05:37:41 2025: C<Module> L<Attribute::Util|Attribute::Util>
+=head2 Wed Apr 23 18:49:34 2025: C<Module> L<YAML::PP|YAML::PP>
 
 =over 4
 
@@ -12,15 +12,15 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.07>
+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 Mon Mar 24 05:37:45 2025: C<Module> L<Test::Fatal|Test::Fatal>
+=head2 Wed Apr 23 18:49:37 2025: C<Module> L<Safe::Isa|Safe::Isa>
 
 =over 4
 
@@ -34,7 +34,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.017>
+C<VERSION: 1.000010>
 
 =item *
 
@@ -42,7 +42,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Mon Mar 24 05:38:11 2025: C<Module> L<autobox|autobox>
+=head2 Wed Apr 23 18:49:42 2025: C<Module> L<PPI|PPI>
 
 =over 4
 
@@ -56,7 +56,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: v3.0.2>
+C<VERSION: 1.281>
 
 =item *
 
@@ -64,7 +64,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Mon Mar 24 05:38:14 2025: C<Module> L<Data::Cmp|Data::Cmp>
+=head2 Wed Apr 23 18:50:52 2025: C<Module> L<PPI::XS|PPI::XS>
 
 =over 4
 
@@ -78,7 +78,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.010>
+C<VERSION: 0.910>
 
 =item *
 
@@ -86,7 +86,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Mon Mar 24 05:38:21 2025: C<Module> L<Data::UUID|Data::UUID>
+=head2 Wed Apr 23 18:51:00 2025: C<Module> L<Want|Want>
 
 =over 4
 
@@ -100,7 +100,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.227>
+C<VERSION: 0.29>
 
 =item *
 
@@ -108,7 +108,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Mon Mar 24 05:38:27 2025: C<Module> L<Want|Want>
+=head2 Wed Apr 23 18:51:02 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.15>
 
 =item *
 
@@ -130,7 +130,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Mon Mar 24 05:38:33 2025: C<Module> L<Safe::Isa|Safe::Isa>
+=head2 Wed Apr 23 18:51:06 2025: C<Module> L<Data::Cmp|Data::Cmp>
 
 =over 4
 
@@ -144,7 +144,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.000010>
+C<VERSION: 0.010>
 
 =item *
 
@@ -152,7 +152,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Mon Mar 24 05:38:42 2025: C<Module> L<YAML::PP|YAML::PP>
+=head2 Wed Apr 23 18:51:15 2025: C<Module> L<Data::UUID|Data::UUID>
 
 =over 4
 
@@ -166,15 +166,15 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: v0.39.0>
+C<VERSION: 1.227>
 
 =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 Mon Mar 24 05:38:46 2025: C<Module> L<PPI|PPI>
+=head2 Wed Apr 23 18:51:41 2025: C<Module> L<Attribute::Util|Attribute::Util>
 
 =over 4
 
@@ -188,7 +188,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.281>
+C<VERSION: 1.07>
 
 =item *
 
@@ -196,7 +196,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Mon Mar 24 05:38:50 2025: C<Module> L<PPI::XS|PPI::XS>
+=head2 Wed Apr 23 18:51:47 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 Mon Mar 24 05:38:53 2025: C<Module> L<Nice::Try|Nice::Try>
+=head2 Wed Apr 23 18:51:55 2025: C<Module> L<Test::Fatal|Test::Fatal>
 
 =over 4
 
@@ -232,7 +232,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: v1.3.15>
+C<VERSION: 0.017>
 
 =item *
 
@@ -240,7 +240,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Mon Mar 24 05:38:58 2025: C<Module> L<Scalar::Util::Numeric|Scalar::Util::Numeric>
+=head2 Wed Apr 23 18:52:02 2025: C<Module> L<autobox|autobox>
 
 =over 4
 
@@ -254,7 +254,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.40>
+C<VERSION: v3.0.2>
 
 =item *
 

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

@@ -5,7 +5,7 @@ use lib 'lib';
 use Moose;
 use Nice::Try;
 use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
-use aliased 'Javonet::Core::Handler::ReferencesCache' => 'ReferencesCache', qw(get_instance resolve_reference);
+use aliased 'Javonet::Core::Handler::ReferencesCache' => 'ReferencesCache';
 extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 
 

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

@@ -3,6 +3,8 @@ use strict;
 use warnings FATAL => 'all';
 use lib 'lib';
 use Moose;
+use Exporter qw(import);
+our @EXPORT = qw(add_handler_to_dict get_handler);
 
 our %handler_dict;
 

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

@@ -6,6 +6,8 @@ use Exporter;
 use Moose;
 use Data::UUID;
 use feature 'state';
+use Exporter qw(import);
+our @EXPORT = qw(cache_reference resolve_reference delete_reference);
 
 our %reference_cache;
 my $ug    = Data::UUID->new;

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

@@ -3,8 +3,11 @@ use strict;
 use warnings;
 use lib 'lib';
 use aliased 'Javonet::Core::Handler::PerlHandler' => 'PerlHandler';
-use aliased 'Javonet::Core::Protocol::CommandSerializer' => 'CommandSerializer', qw(encode);
-use aliased 'Javonet::Core::Protocol::CommandDeserializer' => 'CommandDeserializer', qw(decode);
+use aliased 'Javonet::Core::Protocol::CommandSerializer' => 'CommandSerializer';
+use aliased 'Javonet::Core::Protocol::CommandDeserializer' => 'CommandDeserializer';
+
+use Exporter qw(import);
+our @EXPORT = qw(execute_ process);
 
 my $handler = PerlHandler->new();
 
@@ -13,16 +16,14 @@ sub execute_ {
     my $command = shift;
     my $connection_type = shift;
     my $tcp_address = shift;
-
-    my $commandSerializer = Javonet::Core::Protocol::CommandSerializer->new();
-    my @serialized_command = $commandSerializer->encode($command, $connection_type, $tcp_address, 0);
+    my @serialized_command = Javonet::Core::Protocol::CommandSerializer->encode($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;
         $response_byte_array_ref = Javonet::Core::Receiver::Receiver->send_command(\@serialized_command);
     } else {
         require Javonet::Core::Transmitter::PerlTransmitter;
-        $response_byte_array_ref = Javonet::Core::Transmitter::PerlTransmitter->send_command(\@serialized_command);
+        $response_byte_array_ref = Javonet::Core::Transmitter::PerlTransmitter->t_send_command(\@serialized_command);
     }
 
     my $commandDeserializer = CommandDeserializer->new($response_byte_array_ref);

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

@@ -5,8 +5,10 @@ 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', qw(deserializeInt deserializeString deserializeDouble deserializeFloat);
+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 = [];
@@ -15,8 +17,8 @@ our $command;
 sub new {
     my ($self, $array_ref) = @_;
     @buffer = @$array_ref;
-    $command = PerlCommand->new(runtime =>$buffer[0],
-        command_type => $buffer[10], payload=>[]);
+    $command = PerlCommand->new(runtime => $buffer[0],
+        command_type                    => $buffer[10], payload => []);
     $position = 11;
     return $self;
 }
@@ -28,55 +30,55 @@ sub isAtEnd {
 
 sub decode {
     while (!isAtEnd()) {
-        $command = $command->addArgumentToPayload([readObject($buffer[$position])]);
+        $command = $command->addArgumentToPayload([ readObject($buffer[$position]) ]);
     }
     return $command;
 }
 
 sub readObject {
     my $type_num = $_[0];
-    if($type_num == Type->get_type('Command')){
+    if ($type_num == Type->get_type('Command')) {
         return readCommand();
     }
-    elsif($type_num == Type->get_type('JavonetString')){
+    elsif ($type_num == Type->get_type('JavonetString')) {
         return readString();
     }
-    elsif($type_num == Type->get_type('JavonetInteger')){
+    elsif ($type_num == Type->get_type('JavonetInteger')) {
         return readInt();
     }
-    elsif($type_num == Type->get_type('JavonetBool')){
+    elsif ($type_num == Type->get_type('JavonetBool')) {
         return readBool();
     }
-    elsif($type_num == Type->get_type('JavonetFloat')){
+    elsif ($type_num == Type->get_type('JavonetFloat')) {
         return readFloat();
     }
-    elsif($type_num == Type->get_type('JavonetByte')){
+    elsif ($type_num == Type->get_type('JavonetByte')) {
         return readByte();
     }
-    elsif($type_num == Type->get_type('JavonetChar')){
+    elsif ($type_num == Type->get_type('JavonetChar')) {
         return readChar();
     }
-    elsif($type_num == Type->get_type('JavonetLongLong')){
+    elsif ($type_num == Type->get_type('JavonetLongLong')) {
         return readLongLong();
     }
-    elsif($type_num == Type->get_type('JavonetDouble')){
+    elsif ($type_num == Type->get_type('JavonetDouble')) {
         return readDouble();
     }
-    elsif($type_num == Type->get_type('JavonetUnsignedLongLong')){
+    elsif ($type_num == Type->get_type('JavonetUnsignedLongLong')) {
         return readUnsignedLongLong();
     }
-    elsif($type_num == Type->get_type('JavonetUnsignedInteger')){
+    elsif ($type_num == Type->get_type('JavonetUnsignedInteger')) {
         return readUnsignedInt();
     }
-    elsif($type_num == Type->get_type('JavonetNull')){
+    elsif ($type_num == Type->get_type('JavonetNull')) {
         return readUndef();
     }
-    else{
+    else {
         die "Type is not supported: $type_num";
     }
 }
 
-sub readCommand{
+sub readCommand {
     my $p = $position;
     my @int_buffer = @buffer[$p + 1 .. $p + 4];
     my $numberOfArgumentInPayload = TypeDeserializer->deserializeInt(\@int_buffer);
@@ -99,12 +101,12 @@ sub readCommandRecursively {
         my $p = $position;
         my @int_buffer = @buffer[$p + 1 .. $p + 4];
         my $argSize = TypeDeserializer->deserializeInt(\@int_buffer);
-        $cmd = $cmd->addArgumentToPayload([readObject($buffer[$p])]);
+        $cmd = $cmd->addArgumentToPayload([ readObject($buffer[$p]) ]);
         return readCommandRecursively($numberOfArgumentInPayloadLeft - 1, $cmd);
     }
 }
 
-sub readString{
+sub readString {
     my $p = $position;
     my $string_encoding_mode = $buffer[$p + 1];
     my @int_buffer = @buffer[$p + 2 .. $p + 5];
@@ -118,7 +120,7 @@ sub readString{
     return $decodedString
 }
 
-sub readInt{
+sub readInt {
     $position += 2;
     my $p = $position;
     $position += 4;
@@ -126,7 +128,7 @@ sub readInt{
     return TypeDeserializer->deserializeInt(\@int_buffer);
 }
 
-sub readBool{
+sub readBool {
     $position += 2;
     my $p = $position;
     $position += 1;
@@ -134,7 +136,7 @@ sub readBool{
     return TypeDeserializer->deserializeBool($bool_buffer);
 }
 
-sub readFloat{
+sub readFloat {
     $position += 2;
     my $p = $position;
     $position += 4;
@@ -166,7 +168,7 @@ sub readLongLong {
     return TypeDeserializer->deserializeLongLong(\@longlong_buffer);
 }
 
-sub readDouble{
+sub readDouble {
     $position += 2;
     my $p = $position;
     $position += 8;
@@ -198,6 +200,5 @@ sub readUndef {
     return TypeDeserializer->deserializeUndef($undef_buffer);
 }
 
-
 no Moose;
 1;

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

@@ -7,11 +7,13 @@ use lib 'lib';
 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', qw(serializePrimitive serializeCommand);
+use aliased 'Javonet::Core::Protocol::TypeSerializer' => 'TypeSerializer';
 use Javonet::Sdk::Internal::ConnectionType;
-
 use Thread::Queue;
 
+use Exporter qw(import);
+our @EXPORT = qw(encode serialize_tcp_address serialize_recursively insert_into_buffer);
+
 my @byte_buffer = ();
 my $queue = Thread::Queue->new();
 
@@ -56,7 +58,7 @@ sub serialize_recursively{
     my $payload_len = @cur_payload;
     if ($payload_len > 0){
         if (!defined $cur_payload[0]){
-            insert_into_buffer(TypeSerializer->serialize_primitive(undef));
+            insert_into_buffer(TypeSerializer->serializePrimitive(undef));
         }
         else {
             if ($cur_payload[0]->isa("Javonet::Sdk::Core::PerlCommand")) {
@@ -65,7 +67,7 @@ sub serialize_recursively{
                 $queue->insert(0, $inner_command);
             }
             else {
-                my @result = TypeSerializer->serialize_primitive($cur_payload[0]);
+                my @result = TypeSerializer->serializePrimitive($cur_payload[0]);
                 insert_into_buffer(@result);
             }
         }

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

@@ -5,6 +5,21 @@ use Moose;
 use Encode;
 use lib 'lib';
 
+use Exporter qw(import);
+our @EXPORT = qw(
+    deserializeString
+    deserializeInt
+    deserializeBool
+    deserializeFloat
+    deserializeByte
+    deserializeChar
+    deserializeLongLong
+    deserializeDouble
+    deserializeULongLong
+    deserializeUInt
+    deserializeUndef
+);
+
 sub deserializeString {
     my ($self, $string_encoding_mode, $acc_ref) = @_;
     my @string_array = @$acc_ref;

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

@@ -7,10 +7,13 @@ use lib 'lib';
 
 use Scalar::Util::Numeric qw(isint);
 use autobox::universal qw(type);
-use aliased 'Javonet::Sdk::Core::Type' => 'Type', qw(get_type);
-use aliased 'Javonet::Sdk::Core::StringEncodingMode' => 'StringEncodingMode', qw(get_string_encoding_mode);
+use aliased 'Javonet::Sdk::Core::Type' => 'Type';
+use aliased 'Javonet::Sdk::Core::StringEncodingMode' => 'StringEncodingMode';
 
-sub serialize_primitive {
+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];
     if(!defined $payload_item) {

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

@@ -4,6 +4,9 @@ use warnings;
 use Config;
 use File::Basename;
 
+use Exporter qw(import);
+our @EXPORT = qw(heart_beat send_command get_runtime_info);
+
 my $perlLibDirJavonet;
 my $perlLibDirDeps;
 
@@ -15,9 +18,9 @@ BEGIN {
 
 use lib "$perlLibDirJavonet";
 use lib "$perlLibDirDeps";
-use aliased 'Javonet::Core::Interpreter::Interpreter' => 'Interpreter', qw(process);
-use aliased 'Javonet::Sdk::Core::RuntimeLogger' => 'RuntimeLogger', qw(get_runtime_info);
-
+use aliased 'Javonet::Core::Interpreter::Interpreter' => 'Interpreter';
+use aliased 'Javonet::Sdk::Core::RuntimeLogger' => 'RuntimeLogger';
+#
 sub heart_beat {
     my ($self, $message_byte_array_ref) = @_;
     my @response_byte_array = (49, 48);
@@ -32,7 +35,7 @@ sub send_command {
 }
 
 sub get_runtime_info {
-    return RuntimeLogger->get_runtime_info();
+    return RuntimeLogger->rl_get_runtime_info();
 }
 
 1;

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

@@ -2,27 +2,28 @@ package Javonet::Core::Transmitter::PerlTransmitter;
 use strict;
 use warnings;
 use Cwd;
-use aliased 'Javonet::Core::Transmitter::PerlTransmitterWrapper' => 'PerlTransmitterWrapper' , qw(send_command activate set_config_source set_javonet_working_directory);
+use aliased 'Javonet::Core::Transmitter::PerlTransmitterWrapper' => 'PerlTransmitterWrapper';
+use Exporter qw(import);
+our @EXPORT = qw(t_send_command t_activate t_set_config_source t_set_javonet_working_directory);
 
-sub send_command {
+sub t_send_command {
     my ($self, $message_byte_array_ref) = @_;
-    my $response_byte_array_ref = PerlTransmitterWrapper->send_command($message_byte_array_ref);
-    return $response_byte_array_ref;
+    return PerlTransmitterWrapper->tw_send_command($message_byte_array_ref);
 }
 
-sub activate {
+sub t_activate {
     my ($self, $licenseKey) = @_;
-    return PerlTransmitterWrapper->activate($licenseKey);
+    return PerlTransmitterWrapper->tw_activate($licenseKey);
 }
 
-sub set_config_source {
+sub t_set_config_source {
     my ($self, $config_path) = @_;
-    PerlTransmitterWrapper->set_config_source($config_path);
+    PerlTransmitterWrapper->tw_set_config_source($config_path);
 }
 
-sub set_javonet_working_directory {
+sub t_set_javonet_working_directory {
     my ($self, $working_directory) = @_;
-    PerlTransmitterWrapper->set_javonet_working_directory($working_directory);
+    PerlTransmitterWrapper->tw_set_javonet_working_directory($working_directory);
 }
 
 1;

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

@@ -8,6 +8,8 @@ use File::Spec;
 use Config;
 use Cwd;
 use POSIX qw(uname);
+use Exporter qw(import);
+our @EXPORT = qw(tw_initialize tw_send_command tw_activate tw_set_config_source tw_set_javonet_working_directory);
 
 my $ffi;
 
@@ -18,7 +20,8 @@ my $get_native_error_native;
 my $set_config_source_native;
 my $set_working_directory_native;
 
-sub initialize {
+
+sub tw_initialize {
     my $osname = $^O;
     {
         $ffi = FFI::Platypus->new(api => 1);
@@ -66,7 +69,7 @@ sub initialize {
     }
 }
 
-sub send_command {
+sub tw_send_command {
     my ($self, $message_ref) = @_;
     my @message_array = @$message_ref;
     my $response_array_len = $send_command_native->(\@message_array, scalar @message_array);
@@ -86,9 +89,9 @@ sub send_command {
     }
 }
 
-sub activate {
+sub tw_activate {
     my ($self, $licenseKey) = @_;
-    initialize();
+    tw_initialize();
     my $activation_result = $activate_native->($licenseKey);
     if ($activation_result < 0) {
         my $error_message = $get_native_error_native->();
@@ -99,9 +102,9 @@ sub activate {
     }
 }
 
-sub set_config_source {
+sub tw_set_config_source {
     my ($self, $config_path) = @_;
-    initialize();
+    tw_initialize();
     my $set_config_result = $set_config_source_native->($config_path);
     if ($set_config_result < 0) {
         my $error_message = $get_native_error_native->();
@@ -112,9 +115,9 @@ sub set_config_source {
     }
 }
 
-sub set_javonet_working_directory {
+sub tw_set_javonet_working_directory {
     my ($self, $working_directory) = @_;
-    initialize();
+    tw_initialize();
     my $set_working_directory_result = $set_working_directory_native->($working_directory);
     if ($set_working_directory_result < 0) {
         my $error_message = $get_native_error_native->();