javonet-ruby-sdk 2.1.4 → 2.1.6

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/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/MacOs/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/MacOs/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/MacOs/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/MacOs/X64/lib/Javonet/Core/Protocol/TypeSerializer.pm

@@ -1,5 +1,4 @@
 package Javonet::Core::Protocol::TypeSerializer;
-use utf8;
 use strict;
 use warnings;
 use Moose;

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

@@ -1,5 +1,4 @@
 package Javonet::Core::Receiver::Receiver;
-use utf8;
 use strict;
 use warnings;
 use Exporter;

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

@@ -1,5 +1,4 @@
 package Javonet::Core::Transmitter::PerlTransmitterWrapper;
-use utf8;
 use warnings;
 use strict;
 use lib 'lib';

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/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/MacOs/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/MacOs/X64/lib/Javonet/Sdk/Internal/Abstract/AbstractModuleContext.pm

@@ -7,7 +7,5 @@ use Attribute::Abstract;
 
 sub load_library : Abstract;
 
-sub get_module : Abstract;
-
 no Moose;
 1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/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(

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/lib/Javonet/Sdk/Internal/RuntimeContext.pm

@@ -111,6 +111,26 @@ sub get_type {
     );
 }
 
+sub cast {
+    my $self = shift;
+    my @arguments = @_;
+
+    my $command = PerlCommand->new(
+        runtime => $self->{runtime_lib},
+        command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Cast'),
+        payload => \@arguments
+    );
+
+    return Javonet::Sdk::Internal::InvocationContext->new(
+        $self->{runtime_lib},
+        $self->{connection_type},
+        $self->{tcp_address},
+        $self->build_command($command),
+        0
+    );
+}
+
+
 sub build_command {
     my $self = shift;
     my $command = shift;

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

@@ -1,4 +1,4 @@
-=head2 Mon May 22 17:52:52 2023: C<Module> L<autobox|autobox>
+=head2 Wed Jul 19 14:19:16 2023: C<Module> L<PPI|PPI>
 
 =over 4
 
@@ -12,7 +12,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: v3.0.1>
+C<VERSION: 1.276>
 
 =item *
 
@@ -20,7 +20,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Mon May 22 17:52:55 2023: C<Module> L<Attribute::Util|Attribute::Util>
+=head2 Wed Jul 19 14:19:39 2023: C<Module> L<Want|Want>
 
 =over 4
 
@@ -34,7 +34,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.07>
+C<VERSION: 0.29>
 
 =item *
 
@@ -42,7 +42,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Mon May 22 17:53:01 2023: C<Module> L<Data::UUID|Data::UUID>
+=head2 Wed Jul 19 14:19:44 2023: C<Module> L<PPI::XS|PPI::XS>
 
 =over 4
 
@@ -56,7 +56,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.226>
+C<VERSION: 0.910>
 
 =item *
 
@@ -64,7 +64,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Mon May 22 17:53:04 2023: C<Module> L<Data::Cmp|Data::Cmp>
+=head2 Wed Jul 19 14:19:46 2023: C<Module> L<Nice::Try|Nice::Try>
 
 =over 4
 
@@ -78,7 +78,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.010>
+C<VERSION: v1.3.4>
 
 =item *
 
@@ -86,7 +86,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Mon May 22 17:53:08 2023: C<Module> L<Scalar::Util::Numeric|Scalar::Util::Numeric>
+=head2 Wed Jul 19 14:19:48 2023: C<Module> L<Attribute::Util|Attribute::Util>
 
 =over 4
 
@@ -100,7 +100,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.40>
+C<VERSION: 1.07>
 
 =item *
 
@@ -108,7 +108,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Mon May 22 17:53:15 2023: C<Module> L<PPI|PPI>
+=head2 Wed Jul 19 14:19:51 2023: C<Module> L<Data::Cmp|Data::Cmp>
 
 =over 4
 
@@ -122,7 +122,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.276>
+C<VERSION: 0.010>
 
 =item *
 
@@ -130,7 +130,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Mon May 22 17:53:19 2023: C<Module> L<Want|Want>
+=head2 Wed Jul 19 14:19:56 2023: C<Module> L<autobox|autobox>
 
 =over 4
 
@@ -144,7 +144,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.29>
+C<VERSION: v3.0.1>
 
 =item *
 
@@ -152,7 +152,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Mon May 22 17:53:24 2023: C<Module> L<PPI::XS|PPI::XS>
+=head2 Wed Jul 19 14:20:00 2023: C<Module> L<Scalar::Util::Numeric|Scalar::Util::Numeric>
 
 =over 4
 
@@ -166,7 +166,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.910>
+C<VERSION: 0.40>
 
 =item *
 
@@ -174,7 +174,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Mon May 22 17:53:26 2023: C<Module> L<Nice::Try|Nice::Try>
+=head2 Wed Jul 19 14:20:05 2023: C<Module> L<Data::UUID|Data::UUID>
 
 =over 4
 
@@ -188,7 +188,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: v1.3.4>
+C<VERSION: 1.226>
 
 =item *
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/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/Windows/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/Windows/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/Windows/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/Windows/X64/lib/Javonet/Core/Protocol/TypeSerializer.pm

@@ -1,5 +1,4 @@
 package Javonet::Core::Protocol::TypeSerializer;
-use utf8;
 use strict;
 use warnings;
 use Moose;

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

@@ -1,5 +1,4 @@
 package Javonet::Core::Receiver::Receiver;
-use utf8;
 use strict;
 use warnings;
 use Exporter;

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

@@ -1,5 +1,4 @@
 package Javonet::Core::Transmitter::PerlTransmitterWrapper;
-use utf8;
 use warnings;
 use strict;
 use lib 'lib';

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/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/Windows/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/Windows/X64/lib/Javonet/Sdk/Internal/Abstract/AbstractModuleContext.pm

@@ -7,7 +7,5 @@ use Attribute::Abstract;
 
 sub load_library : Abstract;
 
-sub get_module : Abstract;
-
 no Moose;
 1;

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/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(

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/lib/Javonet/Sdk/Internal/RuntimeContext.pm

@@ -111,6 +111,26 @@ sub get_type {
     );
 }
 
+sub cast {
+    my $self = shift;
+    my @arguments = @_;
+
+    my $command = PerlCommand->new(
+        runtime => $self->{runtime_lib},
+        command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Cast'),
+        payload => \@arguments
+    );
+
+    return Javonet::Sdk::Internal::InvocationContext->new(
+        $self->{runtime_lib},
+        $self->{connection_type},
+        $self->{tcp_address},
+        $self->build_command($command),
+        0
+    );
+}
+
+
 sub build_command {
     my $self = shift;
     my $command = shift;