javonet-ruby-sdk 2.1.5 → 2.1.6

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

@@ -27,18 +27,18 @@ sub process {
             die Exception->new("Exception: InvokeInstanceMethod parameters mismatch");
         }
 
-        my $clazz_instance = $command->{payload}[0];
+        my $instance = $command->{payload}[0];
         my $method_name = $command->{payload}[1];
-        if ($clazz_instance->can($method_name)) {
+        if ($instance->can($method_name)) {
             if ($parameters_length == $self->{required_parameters_count}) {
-                return $clazz_instance->$method_name();
+                return $instance->$method_name();
             }
             else {
                 my @method_arguments;
                 for (my $i = 2; $i < $parameters_length; $i++) {
                     push @method_arguments, $command->{payload}[$i];
                 }
-                return $clazz_instance->$method_name(@method_arguments);
+                return $instance->$method_name(@method_arguments);
             }
         }
         else {

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

@@ -0,0 +1,44 @@
+package Javonet::Core::Handler::CommandHandler::SetInstanceFieldHandler;
+use aliased 'Javonet::Core::Handler::PerlHandler' => 'PerlHandler';
+use strict;
+use warnings FATAL => 'all';
+use Moose;
+use lib 'lib';
+use lib 'data_seed';
+use Nice::Try;
+use Data::Dumper;
+use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
+extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
+
+sub new {
+    my $class = shift;
+    my $self = {
+        required_parameters_count => 2
+    };
+    return bless $self, $class;
+}
+
+sub process {
+    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}) {
+            die Exception->new("Exception: GetInstanceField parameters mismatch");
+        }
+        my $instance = $command->{payload}[0];
+        my $field_name = $command->{payload}[1];
+        my $new_value = $command->{payload}[2];
+
+        no strict 'refs';
+        ${"${instance}->${field_name}"} = $new_value;
+        return 0;
+    }
+    catch ($e){
+        return Exception->new($e);
+    }
+}
+
+no Moose;
+1;

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

@@ -27,12 +27,12 @@ sub process {
         }
         my $class_name = $command->{payload}[0];
         my $static_field_name = $command->{payload}[1];
-        my $set_variable_value = $command->{payload}[2];
+        my $new_value = $command->{payload}[2];
 
         no strict 'refs';
-        ${"${class_name}::${static_field_name}"} = $set_variable_value;
+        ${"${class_name}::${static_field_name}"} = $new_value;
 
-        return ${"${class_name}::${static_field_name}"};
+        return 0;
     }
     catch ($e){
         return Exception->new($e);

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

@@ -14,6 +14,7 @@ use aliased 'Javonet::Core::Handler::CommandHandler::GetTypeHandler' => 'GetType
 use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
 use aliased 'Javonet::Core::Handler::CommandHandler::CastingHandler' => 'CastingHandler';
 use aliased 'Javonet::Core::Handler::CommandHandler::GetInstanceFieldHandler' => 'GetInstanceFieldHandler';
+use aliased 'Javonet::Core::Handler::CommandHandler::SetInstanceFieldHandler' => 'SetInstanceFieldHandler';
 use aliased 'Javonet::Core::Handler::CommandHandler::DestructReferenceHandler' => 'DestructReferenceHandler';
 use aliased 'Javonet::Core::Exception::ExceptionSerializer' => 'ExceptionSerializer';
 use aliased 'Javonet::Core::Handler::CommandHandler::ArrayGetItemHandler' => 'ArrayGetItemHandler';
@@ -39,6 +40,7 @@ my $resolve_instance_handler = ResolveInstanceHandler->new();
 my $get_type_handler = GetTypeHandler->new();
 my $casting_handler = CastingHandler->new();
 my $get_instance_field_handler = GetInstanceFieldHandler->new();
+my $set_instance_field_handler = SetInstanceFieldHandler->new();
 my $destruct_reference_handler = DestructReferenceHandler->new();
 my $array_get_item_handler = ArrayGetItemHandler->new();
 my $array_get_size_handler = ArrayGetSizeHandler->new();
@@ -86,6 +88,10 @@ Javonet::Core::Handler::HandlerDictionary::add_handler_to_dict(
     Javonet::Sdk::Core::PerlCommandType::get_command_type('GetInstanceField'),
     $get_instance_field_handler
 );
+Javonet::Core::Handler::HandlerDictionary::add_handler_to_dict(
+    Javonet::Sdk::Core::PerlCommandType::get_command_type('SetInstanceField'),
+    $set_instance_field_handler
+);
 Javonet::Core::Handler::HandlerDictionary::add_handler_to_dict(
     Javonet::Sdk::Core::PerlCommandType::get_command_type('DestructReference'),
     $destruct_reference_handler
@@ -103,7 +109,7 @@ Javonet::Core::Handler::HandlerDictionary::add_handler_to_dict(
     $array_get_rank_handler
 );
 Javonet::Core::Handler::HandlerDictionary::add_handler_to_dict(
-    Javonet::Sdk::Core::PerlCommandType::get_command_type('ArraySetSize'),
+    Javonet::Sdk::Core::PerlCommandType::get_command_type('ArraySetItem'),
     $array_set_item_handler
 );
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Sdk/Core/PerlCommandType.pm

@@ -29,7 +29,11 @@ my %command_type = (
     'ArrayGetItem'         => 19,
     'ArrayGetSize'         => 20,
     'ArrayGetRank'         => 21,
-    'ArraySetSize'         => 22,
+    'ArraySetItem'         => 22,
+    'Array'                => 23,
+    'RetrieveArray'        => 24,
+    'SetInstanceField'         => 25,
+
 
 );
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Sdk/Internal/Abstract/AbstractInstanceContext.pm

@@ -9,6 +9,8 @@ sub invoke_instance_method : Abstract;
 
 sub get_instance_field : Abstract;
 
+sub set_instance_field : Abstract;
+
 sub create_instance : Abstract;
 
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Sdk/Internal/InvocationContext.pm

@@ -107,6 +107,23 @@ sub get_instance_field {
     );
 }
 
+#@override
+sub set_instance_field {
+    my ($self, @arguments) = @_;
+    my $command = Javonet::Sdk::Core::PerlCommand->new(
+        runtime      => $self->{runtime_lib},
+        command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('SetInstanceField'),
+        payload      => \@arguments
+    );
+    return Javonet::Sdk::Internal::InvocationContext->new(
+        $self->{runtime_lib},
+        $self->{connection_type},
+        $self->{tcp_address},
+        $self->build_command($command),
+        0
+    );
+}
+
 #@override
 sub create_instance {
     my ($self, @arguments) = @_;
@@ -231,7 +248,7 @@ sub set_index {
     my ($self, @arguments) = @_;
     my $command = Javonet::Sdk::Core::PerlCommand->new(
         runtime      => $self->{runtime_lib},
-        command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('ArraySetSize'),
+        command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('ArraySetItem'),
         payload      => \@arguments
     );
     return Javonet::Sdk::Internal::InvocationContext->new(