javonet-ruby-sdk 2.5.10 → 2.5.12

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Grammar.pm

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Grammar;
 
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.39.0'; # VERSION
 
 use base 'Exporter';
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Highlight.pm

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Highlight;
 
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.39.0'; # VERSION
 
 our @EXPORT_OK = qw/ Dump /;
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Lexer.pm

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Lexer;
 
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.39.0'; # VERSION
 
 use constant TRACE => $ENV{YAML_PP_TRACE} ? 1 : 0;
 use constant DEBUG => ($ENV{YAML_PP_DEBUG} || $ENV{YAML_PP_TRACE}) ? 1 : 0;

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Loader.pm

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 package YAML::PP::Loader;
 
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.39.0'; # VERSION
 
 use YAML::PP::Parser;
 use YAML::PP::Constructor;
@@ -16,6 +16,7 @@ sub new {
     my $default_yaml_version = delete $args{default_yaml_version} || '1.2';
     my $preserve = delete $args{preserve};
     my $duplicate_keys = delete $args{duplicate_keys};
+    my $require_footer = delete $args{require_footer};
     my $schemas = delete $args{schemas};
     $schemas ||= {
         '1.2' => YAML::PP->default_schema(
@@ -29,6 +30,7 @@ sub new {
         default_yaml_version => $default_yaml_version,
         preserve => $preserve,
         duplicate_keys => $duplicate_keys,
+        require_footer => $require_footer,
     );
     my $parser = delete $args{parser};
     unless ($parser) {

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Parser.pm

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 package YAML::PP::Parser;
 
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.39.0'; # VERSION
 
 use constant TRACE => $ENV{YAML_PP_TRACE} ? 1 : 0;
 use constant DEBUG => ($ENV{YAML_PP_DEBUG} || $ENV{YAML_PP_TRACE}) ? 1 : 0;

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Perl.pm

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Perl;
 
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.39.0'; # VERSION
 
 use base 'Exporter';
 use base 'YAML::PP';

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Reader.pm

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 package YAML::PP::Reader;
 
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.39.0'; # VERSION
 
 sub input { return $_[0]->{input} }
 sub set_input { $_[0]->{input} = $_[1] }

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Render.pm

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 package YAML::PP::Render;
 
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.39.0'; # VERSION
 
 use constant TRACE => $ENV{YAML_PP_TRACE} ? 1 : 0;
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Representer.pm

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Representer;
 
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.39.0'; # VERSION
 
 use Scalar::Util qw/ reftype blessed refaddr /;
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Schema/Binary.pm

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Schema::Binary;
 
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.39.0'; # VERSION
 
 use MIME::Base64 qw/ decode_base64 encode_base64 /;
 use YAML::PP::Common qw/ YAML_ANY_SCALAR_STYLE /;

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Schema/Catchall.pm

@@ -0,0 +1,76 @@
+use strict;
+use warnings;
+package YAML::PP::Schema::Catchall;
+
+our $VERSION = 'v0.39.0'; # VERSION
+
+use Carp qw/ croak /;
+
+use YAML::PP::Common qw/ YAML_PLAIN_SCALAR_STYLE YAML_SINGLE_QUOTED_SCALAR_STYLE /;
+
+sub register {
+    my ($self, %args) = @_;
+    my $schema = $args{schema};
+    my $options = $args{options};
+    my $empty_null = 0;
+    for my $opt (@$options) {
+        if ($opt eq 'empty=str') {
+        }
+        elsif ($opt eq 'empty=null') {
+            $empty_null = 1;
+        }
+        else {
+            croak "Invalid option for JSON Schema: '$opt'";
+        }
+    }
+
+    $schema->add_resolver(
+        tag => qr{^(?:!|tag:)},
+        match => [ all => sub {
+            my ($constructor, $event) = @_;
+            my $value = $event->{value};
+            return $value;
+        }],
+        implicit => 0,
+    );
+    $schema->add_sequence_resolver(
+        tag => qr{^(?:!|tag:)},
+        on_data => sub {
+            my ($constructor, $ref, $list) = @_;
+            push @$$ref, @$list;
+        },
+    );
+    $schema->add_mapping_resolver(
+        tag => qr{^(?:!|tag:)},
+        on_data => sub {
+            my ($constructor, $ref, $list) = @_;
+            for (my $i = 0; $i < @$list; $i += 2) {
+                $$ref->{ $list->[ $i ] } = $list->[ $i + 1 ];
+            }
+        },
+    );
+
+    return;
+}
+
+1;
+
+__END__
+
+=pod
+
+=encoding utf-8
+
+=head1 NAME
+
+YAML::PP::Schema::JSON - YAML 1.2 JSON Schema
+
+=head1 SYNOPSIS
+
+    my $yp = YAML::PP->new( schema => ['JSON'] );
+    my $yp = YAML::PP->new( schema => [qw/ JSON empty=str /] );
+    my $yp = YAML::PP->new( schema => [qw/ JSON empty=null /] );
+
+=head1 DESCRIPTION
+
+=cut

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Schema/Core.pm

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Schema::Core;
 
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.39.0'; # VERSION
 
 use YAML::PP::Schema::JSON qw/
     represent_int represent_float represent_literal represent_bool

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Schema/Failsafe.pm

@@ -2,10 +2,32 @@ use strict;
 use warnings;
 package YAML::PP::Schema::Failsafe;
 
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.39.0'; # VERSION
 
 sub register {
     my ($self, %args) = @_;
+    my $schema = $args{schema};
+
+    $schema->add_resolver(
+        tag => 'tag:yaml.org,2002:str',
+        match => [ all => sub { $_[1]->{value} } ],
+    );
+    $schema->add_sequence_resolver(
+        tag => 'tag:yaml.org,2002:seq',
+        on_data => sub {
+            my ($constructor, $ref, $list) = @_;
+            push @$$ref, @$list;
+        },
+    );
+    $schema->add_mapping_resolver(
+        tag => 'tag:yaml.org,2002:map',
+        on_data => sub {
+            my ($constructor, $ref, $list) = @_;
+            for (my $i = 0; $i < @$list; $i += 2) {
+                $$ref->{ $list->[ $i ] } = $list->[ $i + 1 ];
+            }
+        },
+    );
 
     return;
 }

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Schema/Include.pm

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Schema::Include;
 
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.39.0'; # VERSION
 
 use Carp qw/ croak /;
 use Scalar::Util qw/ weaken /;

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Schema/JSON.pm

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Schema::JSON;
 
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.39.0'; # VERSION
 
 use base 'Exporter';
 our @EXPORT_OK = qw/

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Schema/Merge.pm

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Schema::Merge;
 
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.39.0'; # VERSION
 
 use YAML::PP::Type::MergeKey;
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Schema/Perl.pm

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Schema::Perl;
 
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.39.0'; # VERSION
 
 use Scalar::Util qw/ blessed reftype /;
 
@@ -157,7 +157,7 @@ sub register {
             tag => qr{^$perl_regex/code:.+},
             match => [ all => $loadcode_dummy ],
             implicit => 0,
-        ) if $no_objects;
+        );
     }
 
     # Glob
@@ -207,6 +207,10 @@ sub register {
         my ($constructor, $event) = @_;
         return $self->construct_regex($event->{value});
     };
+    my $load_regex_dummy = sub {
+        my ($constructor, $event) = @_;
+        return $event->{value};
+    };
     my $load_regex_blessed = sub {
         my ($constructor, $event) = @_;
         my $class = $event->{tag};
@@ -225,10 +229,10 @@ sub register {
         implicit => 0,
     );
     $schema->add_resolver(
-        tag => qr{^$perl_regex/regexp:$class_regex$},
-        match => [ all => $load_regex ],
+        tag => qr{^$perl_regex/regexp:.*$},
+        match => [ all => $load_regex_dummy ],
         implicit => 0,
-    ) if $no_objects;
+    );
 
     my $load_sequence = sub { return [] };
     my $load_sequence_blessed = sub {
@@ -248,7 +252,7 @@ sub register {
     $schema->add_sequence_resolver(
         tag => qr{^$perl_regex/array:.+$},
         on_create => $load_sequence,
-    ) if $no_objects;
+    );# if $no_objects;
 
     my $load_mapping = sub { return {} };
     my $load_mapping_blessed = sub {
@@ -268,7 +272,7 @@ sub register {
     $schema->add_mapping_resolver(
         tag => qr{^$perl_regex/hash:.+$},
         on_create => $load_mapping,
-    ) if $no_objects;
+    ); # if $no_objects;
 
     # Ref
     my $load_ref = sub {
@@ -305,7 +309,7 @@ sub register {
             my ($constructor, $ref, $list) = @_;
             $$$ref = $self->construct_ref($list);
         },
-    ) if $no_objects;
+    ); # if $no_objects;
 
     # Scalar ref
     my $load_scalar_ref = sub {
@@ -342,7 +346,7 @@ sub register {
             my ($constructor, $ref, $list) = @_;
             $$$ref = $self->construct_scalar($list);
         },
-    ) if $no_objects;
+    ); # if $no_objects;
 
     $schema->add_representer(
         scalarref => 1,

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Schema/Tie/IxHash.pm

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Schema::Tie::IxHash;
 
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.39.0'; # VERSION
 
 use base 'YAML::PP::Schema';
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Schema/YAML1_1.pm

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Schema::YAML1_1;
 
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.39.0'; # VERSION
 
 use YAML::PP::Schema::JSON qw/
     represent_int represent_float represent_literal represent_bool

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Schema.pm

@@ -4,10 +4,11 @@ package YAML::PP::Schema;
 use B;
 use Module::Load qw//;
 
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.39.0'; # VERSION
 
 use YAML::PP::Common qw/ YAML_PLAIN_SCALAR_STYLE /;
 
+use Carp qw/ croak /;
 use Scalar::Util qw/ blessed /;
 
 sub new {
@@ -306,6 +307,9 @@ sub load_scalar {
     my $resolvers = $self->resolvers;
     my $res;
     if ($tag) {
+        if ($tag eq '!') {
+            return $value;
+        }
         $res = $resolvers->{tag}->{ $tag };
         if (not $res and my $matches = $resolvers->{tags}) {
             for my $match (@$matches) {
@@ -316,6 +320,9 @@ sub load_scalar {
                 }
             }
         }
+        #unless ($res) {
+        #    croak "Unknown tag '$tag'. Use schema 'Catchall' to ignore unknown tags";
+        #}
     }
     else {
         $res = $resolvers->{value};
@@ -376,6 +383,7 @@ sub create_sequence {
                 }
             }
         }
+        #croak "Unknown tag '$tag'. Use schema 'Catchall' to ignore unknown tags";
     }
 
     return ($data, $on_data);
@@ -406,6 +414,7 @@ sub create_mapping {
                 }
             }
         }
+        #croak "Unknown tag '$tag'. Use schema 'Catchall' to ignore unknown tags";
     }
 
     return ($data, $on_data);

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Type/MergeKey.pm

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Type::MergeKey;
 
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.39.0'; # VERSION
 
 sub new {
     my ($class) = @_;

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Writer/File.pm

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package YAML::PP::Writer::File;
 
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.39.0'; # VERSION
 
 use Scalar::Util qw/ openhandle /;
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP/Writer.pm

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 package YAML::PP::Writer;
 
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.39.0'; # VERSION
 
 sub output { return $_[0]->{output} }
 sub set_output { $_[0]->{output} = $_[1] }

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/YAML/PP.pm

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 package YAML::PP;
 
-our $VERSION = 'v0.38.0'; # VERSION
+our $VERSION = 'v0.39.0'; # VERSION
 
 use YAML::PP::Schema;
 use YAML::PP::Schema::JSON;
@@ -30,6 +30,7 @@ sub new {
     my $writer = delete $args{writer};
     my $header = delete $args{header};
     my $footer = delete $args{footer};
+    my $require_footer = delete $args{require_footer};
     my $duplicate_keys = delete $args{duplicate_keys};
     my $yaml_version = $class->_arg_yaml_version(delete $args{yaml_version});
     my $default_yaml_version = $yaml_version->[0];
@@ -69,6 +70,7 @@ sub new {
         default_yaml_version => $default_yaml_version,
         preserve => $preserve,
         duplicate_keys => $duplicate_keys,
+        require_footer => $require_footer,
     );
     my $dumper = YAML::PP::Dumper->new(
         schema => $default_schema,
@@ -667,6 +669,29 @@ This option is for dumping.
 
 Print document footer C<...>
 
+=item require_footer
+
+Default: 0
+
+Will require a C<...> at the end of each document.
+This can be useful in a context where you want to make sure you received
+the complete content, for example over network.
+
+    # Good
+    ---
+    a: 1
+    ...
+    ---
+    a: 2
+    ...
+
+    # Bad
+    ---
+    a: 1
+    ---
+    a: 2
+
+
 =item yaml_version
 
 Since version 0.020
@@ -1029,18 +1054,27 @@ Serializing Perl objects and types
 
 Serializing binary data
 
-=item L<YAML::PP::Schema::Tie::IxHash>
-
-Deprecated. See option C<preserve>
-
 =item L<YAML::PP::Schema::Merge>
 
 YAML 1.1 merge keys for mappings
 
+=item L<YAML::PP::Schema::Catchall>
+
+Experimental.
+
+It was accidentally added in 0.38.1, and unknown tags forbidden.
+This was reverted in 0.39.0
+
+By default they will result in an error.
+
 =item L<YAML::PP::Schema::Include>
 
 Include other YAML files via C<!include> tags
 
+=item L<YAML::PP::Schema::Tie::IxHash>
+
+Deprecated. See option C<preserve>
+
 =back
 
 To make the parsing process faster, you can plugin the libyaml parser

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

@@ -0,0 +1,63 @@
+package Javonet::Core::Handler::CommandHandler::InvokeGlobalFunctionHandler;
+use strict;
+use warnings FATAL => 'all';
+use lib 'lib';
+use Moose;
+use Nice::Try;
+use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
+extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
+
+sub new {
+    my $class = shift;
+    my $self = {
+        required_parameters_count => 1
+    };
+    return bless $self, $class;
+}
+
+sub process {
+    my ($self, $command) = @_;
+    try {
+        # Get the payload array reference and convert to array
+        my $payload_ref = $command->{payload};
+        my @payload = @$payload_ref;
+        my $parameters_length = scalar @payload;
+
+        # Verify at least one parameter is provided
+        if ($parameters_length < $self->{required_parameters_count}) {
+            die Exception->new("InvokeGlobalFunctionHandler parameters mismatch: requires at least one parameter (fully qualified method name)");
+        }
+
+        # The first parameter should be the fully qualified method name
+        my $fully_qualified_method = $payload[0];
+
+        # Extract the package name and method name using a regex
+        unless ($fully_qualified_method =~ /^(.*)::([^:]+)$/) {
+            die Exception->new("Invalid fully qualified method name: $fully_qualified_method");
+        }
+        my ($package, $function_name) = $fully_qualified_method =~ /^(.*)::([^:]+)$/;
+
+        # Attempt to load the package (if not already loaded)
+        eval "require $package";
+        if ($@) {
+            die Exception->new("Failed to load package '$package': $@");
+        }
+        #
+        # Check if the package can perform the method
+        my $code_ref = $package->can($function_name);
+        unless ($code_ref) {
+            die Exception->new("Method '$function_name' not found in package '$package'");
+        }
+
+        # Any additional payload elements are passed as arguments to the method
+        my @args = @payload[1 .. $#payload];
+
+        # Invoke the method with the arguments and return the result
+        return $code_ref->(@args);
+    }
+    catch ($e) {
+        return Exception->new($e);
+    }
+}
+
+1;

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

@@ -22,6 +22,7 @@ use aliased 'Javonet::Core::Handler::CommandHandler::ArrayGetItemHandler' => 'Ar
 use aliased 'Javonet::Core::Handler::CommandHandler::ArrayGetSizeHandler' => 'ArrayGetSizeHandler';
 use aliased 'Javonet::Core::Handler::CommandHandler::ArrayGetRankHandler' => 'ArrayGetRankHandler';
 use aliased 'Javonet::Core::Handler::CommandHandler::ArraySetItemHandler' => 'ArraySetItemHandler';
+use aliased 'Javonet::Core::Handler::CommandHandler::InvokeGlobalFunctionHandler' => 'InvokeGlobalFunctionHandler';
 
 
 use aliased 'Javonet::Sdk::Core::PerlCommandType' => 'PerlCommandType', qw(get_command_type);
@@ -48,6 +49,7 @@ my $array_get_item_handler = ArrayGetItemHandler->new();
 my $array_get_size_handler = ArrayGetSizeHandler->new();
 my $array_get_rank_handler = ArrayGetRankHandler->new();
 my $array_set_item_handler = ArraySetItemHandler->new();
+my $invoke_global_function_handler = InvokeGlobalFunctionHandler->new();
 
 
 Javonet::Core::Handler::HandlerDictionary::add_handler_to_dict(
@@ -119,6 +121,11 @@ Javonet::Core::Handler::HandlerDictionary::add_handler_to_dict(
     $array_set_item_handler
 );
 
+Javonet::Core::Handler::HandlerDictionary::add_handler_to_dict(
+    Javonet::Sdk::Core::PerlCommandType::get_command_type('InvokeGlobalFunction'),
+    $invoke_global_function_handler
+);
+
 sub handle_command {
     my ($self, $command) = @_;
     my $response = Javonet::Core::Handler::HandlerDictionary::get_handler($command->{command_type})->handle_command($command);

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

@@ -2,7 +2,7 @@ package Javonet::Core::Transmitter::PerlTransmitter;
 use strict;
 use warnings;
 use Cwd;
-use aliased 'Javonet::Core::Transmitter::PerlTransmitterWrapper' => 'PerlTransmitterWrapper' , qw(send_command activate);
+use aliased 'Javonet::Core::Transmitter::PerlTransmitterWrapper' => 'PerlTransmitterWrapper' , qw(send_command activate set_config_source set_javonet_working_directory);
 
 sub send_command {
     my ($self, $message_byte_array_ref) = @_;
@@ -20,4 +20,9 @@ sub set_config_source {
     PerlTransmitterWrapper->set_config_source($config_path);
 }
 
+sub set_javonet_working_directory {
+    my ($self, $working_directory) = @_;
+    PerlTransmitterWrapper->set_javonet_working_directory($working_directory);
+}
+
 1;

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

@@ -15,6 +15,7 @@ my $read_response_native;
 my $activate_native;
 my $get_native_error_native;
 my $set_config_source_native;
+my $set_working_directory_native;
 
 sub initialize {
     my $osname = $^O;
@@ -53,6 +54,7 @@ sub initialize {
         $activate_native = $ffi->function('Activate' => ['string'] => 'int');
         $get_native_error_native = $ffi->function('GetNativeError' => [] => 'string');
         $set_config_source_native = $ffi->function('SetConfigSource' => ['string'] => 'int');
+        $set_working_directory_native = $ffi->function('SetWorkingDirectory' => ['string'] => 'int');
     }
 }
 
@@ -102,4 +104,17 @@ sub set_config_source {
     }
 }
 
+sub set_javonet_working_directory {
+    my ($self, $working_directory) = @_;
+    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->();
+        die "Javonet set working directory result: $set_working_directory_result. Native error message: $error_message";
+    }
+    else {
+        return $set_working_directory_result;
+    }
+}
+
 1;