javonet-ruby-sdk 2.6.7 → 2.6.10

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

@@ -4,39 +4,136 @@ use warnings FATAL => 'all';
 use lib 'lib';
 use Moose;
 use File::Basename;
+use Cwd qw(abs_path);
 use Nice::Try;
 use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
 extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 
+# Track loaded libraries by absolute path
+our %LOADED_LIBRARIES;
+
 sub new {
     my $class = shift;
-    my $self = {
-        required_parameters_count => 1
+    my $self  = {
+        required_parameters_count => 1,
+        @_,    # optional extras
     };
     return bless $self, $class;
 }
 
 sub process {
-    my ($self, $command) = @_;
+    my ( $self, $command ) = @_;
     try {
         my $current_payload_ref = $command->{payload};
-        my @cur_payload = @$current_payload_ref;
-        my $parameters_length = @cur_payload;
-        if ($parameters_length != $self->{required_parameters_count}) {
+        my @cur_payload         = @$current_payload_ref;
+        my $parameters_length   = @cur_payload;
+
+        if ( $parameters_length != $self->{required_parameters_count} ) {
             die Exception->new("Exception: LoadLibrary parameters mismatch");
         }
+
         my $path_to_file = $command->{payload}[0];
-        my $path_to_file_dir = dirname($path_to_file);
-        my $file_name = basename($path_to_file);
 
-        push(@INC, "$path_to_file_dir");
-        eval(require $file_name);
+        if ( !defined $path_to_file || $path_to_file eq '' ) {
+            die Exception->new(
+                "Cannot load module: Library path is required but was not provided"
+            );
+        }
+
+        # ---------------------------------------------------------------------
+        # Normalize file extension
+        # If no extension is given, try "<file>.pm"
+        # ---------------------------------------------------------------------
+        my $normalized_path = $path_to_file;
+
+        if ( $normalized_path !~ /\.[^\/\\]+$/ ) {    # no extension
+            my $with_pm = $normalized_path . '.pm';
+            if ( -e $with_pm ) {
+                $normalized_path = $with_pm;
+            }
+        }
+
+        # Resolve to absolute path if possible
+        my $absolute_path =
+            abs_path($normalized_path)
+                // abs_path($path_to_file)
+                // $normalized_path;
+
+        # Check that the file exists
+        if ( !-e $absolute_path ) {
+            die Exception->new("Cannot load module: Library not found: $path_to_file");
+        }
+
+        # ---------------------------------------------------------------------
+        # Load only once by absolute path
+        # ---------------------------------------------------------------------
+        if ( $LOADED_LIBRARIES{$absolute_path} ) {
+            return 0;
+        }
+
+        my $path_to_file_dir = dirname($absolute_path);
+        my $file_name        = basename($absolute_path);
+
+        # Ensure directory is in @INC
+        if ( !grep { $_ eq $path_to_file_dir } @INC ) {
+            push @INC, $path_to_file_dir;
+        }
+
+        # ---------------------------------------------------------------------
+        # Validate Perl module syntax before requiring
+        # ---------------------------------------------------------------------
+        #_validate_perl_syntax($absolute_path); #causes issues
+
+        # ---------------------------------------------------------------------
+        # Load the file
+        # ---------------------------------------------------------------------
+        eval {
+            require $file_name;
+            1;
+        } or do {
+            my $err = $@ || 'Unknown error';
+            die Exception->new("Cannot load module: $absolute_path\n$err");
+        };
+
+        # Mark library as loaded
+        $LOADED_LIBRARIES{$absolute_path} = 1;
+
         return 0;
     }
-    catch ( $e ) {
+    catch ($e) {
         return Exception->new($e);
     }
 }
 
+sub get_loaded_libraries {
+    my ($self) = @_;
+    return [ keys %LOADED_LIBRARIES ];
+}
+
+# -------------------------------------------------------------------------
+# Validate syntax using "perl -c <file>"
+# -------------------------------------------------------------------------
+sub _validate_perl_syntax {
+    my ($absolute_path) = @_;
+
+    my $perl = $^X || 'perl';
+
+    my $pid = open my $fh, '-|', $perl, '-c', $absolute_path;
+    if ( !defined $pid ) {
+        # If perl cannot be spawned, we silently skip validation.
+        return;
+    }
+
+    my $output = do { local $/; <$fh> // '' };
+    close $fh;
+    my $exit_code = $? >> 8;
+
+    if ( $exit_code != 0 ) {
+        die Exception->new(
+            "Cannot load module: syntax check failed for $absolute_path\n$output"
+        );
+    }
+}
+
 no Moose;
 1;

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

@@ -0,0 +1,29 @@
+package Javonet::Core::Handler::CommandHandler::RegisterForUpdateHandler;
+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 {
+        return $command->{payload}[0];
+    }
+    catch ( $e ) {
+        return Exception->new($e);
+    }
+}
+
+no Moose;
+1;

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

@@ -3,6 +3,15 @@ use strict;
 use warnings FATAL => 'all';
 use lib 'lib';
 use Moose;
+
+use aliased 'Javonet::Sdk::Core::PerlCommandType' => 'PerlCommandType', qw(get_command_type);
+use aliased 'Javonet::Sdk::Core::PerlCommand' => 'PerlCommand';
+use aliased 'Javonet::Core::Handler::ReferencesCache' => 'ReferencesCache';
+use aliased 'Javonet::Core::Handler::AbstractHandler' => 'AbstractHandler';
+use aliased 'Javonet::Sdk::Core::RuntimeLib' => 'RuntimeLib';
+use aliased 'Javonet::Core::Handler::HandlerDictionary' => 'HandlerDictionary';
+use aliased 'Javonet::Sdk::Core::TypesHandler' => 'TypesHandler';
+
 use aliased 'Javonet::Core::Handler::CommandHandler::ValueHandler' => 'ValueHandler';
 use aliased 'Javonet::Core::Handler::CommandHandler::LoadLibraryHandler' => 'LoadLibraryHandler';
 use aliased 'Javonet::Core::Handler::CommandHandler::GetStaticFieldHandler' => 'GetStaticFieldHandler';
@@ -23,15 +32,7 @@ use aliased 'Javonet::Core::Handler::CommandHandler::ArrayGetSizeHandler' => 'Ar
 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);
-use aliased 'Javonet::Sdk::Core::PerlCommand' => 'PerlCommand';
-use aliased 'Javonet::Core::Handler::ReferencesCache' => 'ReferencesCache';
-use aliased 'Javonet::Core::Handler::AbstractHandler' => 'AbstractHandler';
-use aliased 'Javonet::Sdk::Core::RuntimeLib' => 'RuntimeLib';
-use aliased 'Javonet::Core::Handler::HandlerDictionary' => 'HandlerDictionary';
-use aliased 'Javonet::Sdk::Core::TypesHandler' => 'TypesHandler';
+use aliased 'Javonet::Core::Handler::CommandHandler::RegisterForUpdateHandler' => 'RegisterForUpdateHandler';
 
 my $value_handler = ValueHandler->new();
 my $load_library_handler = LoadLibraryHandler->new();
@@ -51,6 +52,7 @@ 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();
+my $register_for_update_handler = RegisterForUpdateHandler->new();
 
 
 Javonet::Core::Handler::HandlerDictionary::add_handler_to_dict(
@@ -127,6 +129,11 @@ Javonet::Core::Handler::HandlerDictionary::add_handler_to_dict(
     $invoke_global_function_handler
 );
 
+Javonet::Core::Handler::HandlerDictionary::add_handler_to_dict(
+    Javonet::Sdk::Core::PerlCommandType::get_command_type('RegisterForUpdate'),
+    $register_for_update_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/Linux/X64/lib/Javonet/Sdk/Core/PerlCommandType.pm

@@ -54,7 +54,8 @@ my %command_type = (
     'AsKwargs'                    => 45,
     'GetResultType'               => 46,
     'GetGlobalField'              => 47,
-
+    'RegisterForUpdate'           => 48,
+    'ValueForUpdate'              => 49,
 );
 
 sub get_command_type {

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

@@ -1,4 +1,4 @@
-=head2 Wed Nov 19 14:56:18 2025: C<Module> L<Data::Cmp|Data::Cmp>
+=head2 Fri Nov 28 08:46:34 2025: C<Module> L<Data::Cmp|Data::Cmp>
 
 =over 4
 
@@ -20,7 +20,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Wed Nov 19 14:56:27 2025: C<Module> L<Scalar::Util::Numeric|Scalar::Util::Numeric>
+=head2 Fri Nov 28 08:46:37 2025: C<Module> L<Test::Fatal|Test::Fatal>
 
 =over 4
 
@@ -34,7 +34,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.40>
+C<VERSION: 0.018>
 
 =item *
 
@@ -42,7 +42,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Wed Nov 19 14:56:30 2025: C<Module> L<Test::Fatal|Test::Fatal>
+=head2 Fri Nov 28 08:46:45 2025: C<Module> L<autobox|autobox>
 
 =over 4
 
@@ -56,7 +56,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.018>
+C<VERSION: v3.0.2>
 
 =item *
 
@@ -64,7 +64,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Wed Nov 19 14:56:33 2025: C<Module> L<autobox|autobox>
+=head2 Fri Nov 28 08:46:49 2025: C<Module> L<Scalar::Util::Numeric|Scalar::Util::Numeric>
 
 =over 4
 
@@ -78,7 +78,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: v3.0.2>
+C<VERSION: 0.40>
 
 =item *
 
@@ -86,7 +86,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Wed Nov 19 14:56:37 2025: C<Module> L<Safe::Isa|Safe::Isa>
+=head2 Fri Nov 28 08:46:52 2025: C<Module> L<Attribute::Util|Attribute::Util>
 
 =over 4
 
@@ -100,7 +100,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.000010>
+C<VERSION: 1.07>
 
 =item *
 
@@ -108,7 +108,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Wed Nov 19 14:56:46 2025: C<Module> L<YAML::PP|YAML::PP>
+=head2 Fri Nov 28 08:46:57 2025: C<Module> L<Want|Want>
 
 =over 4
 
@@ -122,15 +122,15 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: v0.39.0>
+C<VERSION: 0.29>
 
 =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 Wed Nov 19 14:56:49 2025: C<Module> L<PPI|PPI>
+=head2 Fri Nov 28 08:47:01 2025: C<Module> L<Safe::Isa|Safe::Isa>
 
 =over 4
 
@@ -144,7 +144,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.284>
+C<VERSION: 1.000010>
 
 =item *
 
@@ -152,7 +152,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Wed Nov 19 14:56:53 2025: C<Module> L<PPI::XS|PPI::XS>
+=head2 Fri Nov 28 08:47:08 2025: C<Module> L<YAML::PP|YAML::PP>
 
 =over 4
 
@@ -166,15 +166,15 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.910>
+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 Wed Nov 19 14:56:57 2025: C<Module> L<Want|Want>
+=head2 Fri Nov 28 08:47:11 2025: C<Module> L<PPI|PPI>
 
 =over 4
 
@@ -188,7 +188,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.29>
+C<VERSION: 1.284>
 
 =item *
 
@@ -196,7 +196,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Wed Nov 19 14:56:59 2025: C<Module> L<Nice::Try|Nice::Try>
+=head2 Fri Nov 28 08:47:15 2025: C<Module> L<PPI::XS|PPI::XS>
 
 =over 4
 
@@ -210,7 +210,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: v1.3.17>
+C<VERSION: 0.910>
 
 =item *
 
@@ -218,7 +218,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Wed Nov 19 14:57:01 2025: C<Module> L<Attribute::Util|Attribute::Util>
+=head2 Fri Nov 28 08:47:16 2025: C<Module> L<Nice::Try|Nice::Try>
 
 =over 4
 
@@ -232,7 +232,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.07>
+C<VERSION: v1.3.17>
 
 =item *
 
@@ -240,7 +240,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Wed Nov 19 14:57:05 2025: C<Module> L<Data::UUID|Data::UUID>
+=head2 Fri Nov 28 08:47:21 2025: C<Module> L<Data::UUID|Data::UUID>
 
 =over 4
 

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

@@ -4,39 +4,136 @@ use warnings FATAL => 'all';
 use lib 'lib';
 use Moose;
 use File::Basename;
+use Cwd qw(abs_path);
 use Nice::Try;
 use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
 extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 
+# Track loaded libraries by absolute path
+our %LOADED_LIBRARIES;
+
 sub new {
     my $class = shift;
-    my $self = {
-        required_parameters_count => 1
+    my $self  = {
+        required_parameters_count => 1,
+        @_,    # optional extras
     };
     return bless $self, $class;
 }
 
 sub process {
-    my ($self, $command) = @_;
+    my ( $self, $command ) = @_;
     try {
         my $current_payload_ref = $command->{payload};
-        my @cur_payload = @$current_payload_ref;
-        my $parameters_length = @cur_payload;
-        if ($parameters_length != $self->{required_parameters_count}) {
+        my @cur_payload         = @$current_payload_ref;
+        my $parameters_length   = @cur_payload;
+
+        if ( $parameters_length != $self->{required_parameters_count} ) {
             die Exception->new("Exception: LoadLibrary parameters mismatch");
         }
+
         my $path_to_file = $command->{payload}[0];
-        my $path_to_file_dir = dirname($path_to_file);
-        my $file_name = basename($path_to_file);
 
-        push(@INC, "$path_to_file_dir");
-        eval(require $file_name);
+        if ( !defined $path_to_file || $path_to_file eq '' ) {
+            die Exception->new(
+                "Cannot load module: Library path is required but was not provided"
+            );
+        }
+
+        # ---------------------------------------------------------------------
+        # Normalize file extension
+        # If no extension is given, try "<file>.pm"
+        # ---------------------------------------------------------------------
+        my $normalized_path = $path_to_file;
+
+        if ( $normalized_path !~ /\.[^\/\\]+$/ ) {    # no extension
+            my $with_pm = $normalized_path . '.pm';
+            if ( -e $with_pm ) {
+                $normalized_path = $with_pm;
+            }
+        }
+
+        # Resolve to absolute path if possible
+        my $absolute_path =
+            abs_path($normalized_path)
+                // abs_path($path_to_file)
+                // $normalized_path;
+
+        # Check that the file exists
+        if ( !-e $absolute_path ) {
+            die Exception->new("Cannot load module: Library not found: $path_to_file");
+        }
+
+        # ---------------------------------------------------------------------
+        # Load only once by absolute path
+        # ---------------------------------------------------------------------
+        if ( $LOADED_LIBRARIES{$absolute_path} ) {
+            return 0;
+        }
+
+        my $path_to_file_dir = dirname($absolute_path);
+        my $file_name        = basename($absolute_path);
+
+        # Ensure directory is in @INC
+        if ( !grep { $_ eq $path_to_file_dir } @INC ) {
+            push @INC, $path_to_file_dir;
+        }
+
+        # ---------------------------------------------------------------------
+        # Validate Perl module syntax before requiring
+        # ---------------------------------------------------------------------
+        #_validate_perl_syntax($absolute_path); #causes issues
+
+        # ---------------------------------------------------------------------
+        # Load the file
+        # ---------------------------------------------------------------------
+        eval {
+            require $file_name;
+            1;
+        } or do {
+            my $err = $@ || 'Unknown error';
+            die Exception->new("Cannot load module: $absolute_path\n$err");
+        };
+
+        # Mark library as loaded
+        $LOADED_LIBRARIES{$absolute_path} = 1;
+
         return 0;
     }
-    catch ( $e ) {
+    catch ($e) {
         return Exception->new($e);
     }
 }
 
+sub get_loaded_libraries {
+    my ($self) = @_;
+    return [ keys %LOADED_LIBRARIES ];
+}
+
+# -------------------------------------------------------------------------
+# Validate syntax using "perl -c <file>"
+# -------------------------------------------------------------------------
+sub _validate_perl_syntax {
+    my ($absolute_path) = @_;
+
+    my $perl = $^X || 'perl';
+
+    my $pid = open my $fh, '-|', $perl, '-c', $absolute_path;
+    if ( !defined $pid ) {
+        # If perl cannot be spawned, we silently skip validation.
+        return;
+    }
+
+    my $output = do { local $/; <$fh> // '' };
+    close $fh;
+    my $exit_code = $? >> 8;
+
+    if ( $exit_code != 0 ) {
+        die Exception->new(
+            "Cannot load module: syntax check failed for $absolute_path\n$output"
+        );
+    }
+}
+
 no Moose;
 1;

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

@@ -0,0 +1,29 @@
+package Javonet::Core::Handler::CommandHandler::RegisterForUpdateHandler;
+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 {
+        return $command->{payload}[0];
+    }
+    catch ( $e ) {
+        return Exception->new($e);
+    }
+}
+
+no Moose;
+1;

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

@@ -3,6 +3,15 @@ use strict;
 use warnings FATAL => 'all';
 use lib 'lib';
 use Moose;
+
+use aliased 'Javonet::Sdk::Core::PerlCommandType' => 'PerlCommandType', qw(get_command_type);
+use aliased 'Javonet::Sdk::Core::PerlCommand' => 'PerlCommand';
+use aliased 'Javonet::Core::Handler::ReferencesCache' => 'ReferencesCache';
+use aliased 'Javonet::Core::Handler::AbstractHandler' => 'AbstractHandler';
+use aliased 'Javonet::Sdk::Core::RuntimeLib' => 'RuntimeLib';
+use aliased 'Javonet::Core::Handler::HandlerDictionary' => 'HandlerDictionary';
+use aliased 'Javonet::Sdk::Core::TypesHandler' => 'TypesHandler';
+
 use aliased 'Javonet::Core::Handler::CommandHandler::ValueHandler' => 'ValueHandler';
 use aliased 'Javonet::Core::Handler::CommandHandler::LoadLibraryHandler' => 'LoadLibraryHandler';
 use aliased 'Javonet::Core::Handler::CommandHandler::GetStaticFieldHandler' => 'GetStaticFieldHandler';
@@ -23,15 +32,7 @@ use aliased 'Javonet::Core::Handler::CommandHandler::ArrayGetSizeHandler' => 'Ar
 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);
-use aliased 'Javonet::Sdk::Core::PerlCommand' => 'PerlCommand';
-use aliased 'Javonet::Core::Handler::ReferencesCache' => 'ReferencesCache';
-use aliased 'Javonet::Core::Handler::AbstractHandler' => 'AbstractHandler';
-use aliased 'Javonet::Sdk::Core::RuntimeLib' => 'RuntimeLib';
-use aliased 'Javonet::Core::Handler::HandlerDictionary' => 'HandlerDictionary';
-use aliased 'Javonet::Sdk::Core::TypesHandler' => 'TypesHandler';
+use aliased 'Javonet::Core::Handler::CommandHandler::RegisterForUpdateHandler' => 'RegisterForUpdateHandler';
 
 my $value_handler = ValueHandler->new();
 my $load_library_handler = LoadLibraryHandler->new();
@@ -51,6 +52,7 @@ 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();
+my $register_for_update_handler = RegisterForUpdateHandler->new();
 
 
 Javonet::Core::Handler::HandlerDictionary::add_handler_to_dict(
@@ -127,6 +129,11 @@ Javonet::Core::Handler::HandlerDictionary::add_handler_to_dict(
     $invoke_global_function_handler
 );
 
+Javonet::Core::Handler::HandlerDictionary::add_handler_to_dict(
+    Javonet::Sdk::Core::PerlCommandType::get_command_type('RegisterForUpdate'),
+    $register_for_update_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/Sdk/Core/PerlCommandType.pm

@@ -54,7 +54,8 @@ my %command_type = (
     'AsKwargs'                    => 45,
     'GetResultType'               => 46,
     'GetGlobalField'              => 47,
-
+    'RegisterForUpdate'           => 48,
+    'ValueForUpdate'              => 49,
 );
 
 sub get_command_type {