javonet-ruby-sdk 2.5.12 → 2.5.13

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

@@ -6,6 +6,7 @@ use FFI::Platypus;
 use Path::Tiny;
 use File::Spec;
 use Config;
+use Cwd;
 use POSIX qw(uname);
 
 my $ffi;
@@ -23,7 +24,7 @@ sub initialize {
         $ffi = FFI::Platypus->new(api => 1);
         use FFI::Platypus::DL qw(dlopen dlerror RTLD_PLATYPUS_DEFAULT);
         my $dir = File::Spec->rel2abs(__FILE__);
-        my $current_dir = path($dir)->parent(3);
+        my $current_dir = getcwd();
         my $perl_native_lib;
 
         my $arch = do {
@@ -48,7 +49,14 @@ sub initialize {
         else {
             $perl_native_lib = "Binaries/Native/Windows/$arch/JavonetPerlRuntimeNative.dll";
         }
-        $ffi->lib("$current_dir/$perl_native_lib");
+        
+        my $full_native_lib_path = "$current_dir/$perl_native_lib";
+        my $error_message = "Native library not found at $full_native_lib_path\n" .
+            "Please Download and unzip Binaries at $current_dir directory folder using this link: https://download.javonet.com/binaries/Binaries.zip\n" .
+            "For more info please visit: https://www.javonet.com/guides/v2/getting-started/getting-started-perl";
+        die $error_message unless -e $full_native_lib_path;
+        $ffi->lib($full_native_lib_path);
+
         $send_command_native = $ffi->function('SendCommand' => [ 'uchar[]', 'int' ] => 'int');
         $read_response_native = $ffi->function('ReadResponse' => [ 'uchar[]', 'int' ] => 'int');
         $activate_native = $ffi->function('Activate' => ['string'] => 'int');

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

@@ -20,7 +20,7 @@ my %command_type = (
     'GetInstanceField'          => 13,
     'Optimize'                  => 14,
     'GenerateLib'               => 15,
-    'InvokeGlobalFunction'        => 16,
+    'InvokeGlobalFunction'      => 16,
     'DestructReference'         => 17,
     'Array'                     => 18,
     'ArrayGetItem'              => 19,

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

@@ -331,8 +331,8 @@ sub get_ref_value {
     );
     return Javonet::Sdk::Internal::InvocationContext->new(
         $self->{runtime_name},
-        $self->get_connection_type(),
-        $self->get_tcp_address(),
+        $self->{connection_type},
+        $self->{tcp_address},
         $self->build_command($command),
         0
     );
@@ -347,8 +347,40 @@ sub create_null {
     );
     return Javonet::Sdk::Internal::InvocationContext->new(
         $self->{runtime_name},
-        $self->get_connection_type(),
-        $self->get_tcp_address(),
+        $self->{connection_type},
+        $self->{tcp_address},
+        $self->build_command($command),
+        0
+    );
+}
+
+sub get_static_method_as_delegate {
+    my ($self, @arguments) = @_;
+    my $command = PerlCommand->new(
+        runtime => $self->{runtime_name},
+        command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('GetStaticMethodAsDelegate'),
+        payload => \@arguments
+    );
+    return Javonet::Sdk::Internal::InvocationContext->new(
+        $self->{runtime_name},
+        $self->{connection_type},
+        $self->{tcp_address},
+        $self->build_command($command),
+        0
+    );
+}
+
+sub get_instance_method_as_delegate {
+    my ($self, @arguments) = @_;
+    my $command = PerlCommand->new(
+        runtime => $self->{runtime_name},
+        command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('GetInstanceMethodAsDelegate'),
+        payload => \@arguments
+    );
+    return Javonet::Sdk::Internal::InvocationContext->new(
+        $self->{runtime_name},
+        $self->{connection_type},
+        $self->{tcp_address},
         $self->build_command($command),
         0
     );
@@ -377,15 +409,25 @@ sub build_command {
 sub encapsulate_payload_item {
     my ($self, $payload_item) = @_;
 
-    if(!defined $payload_item) {
+    if (!defined $payload_item) {
         return PerlCommand->new(
-            runtime => $self->{runtime_name},
+            runtime      => $self->{runtime_name},
             command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Value'),
-            payload => []
+            payload      => []
         );
     }
-
-    if ($payload_item->isa('Command')) {
+    if (ref($payload_item) eq 'ARRAY') {
+        my $payload_length = @$payload_item;
+        for (my $i = 0; $i < $payload_length; $i++) {
+            $payload_item->[$i] = $self->encapsulate_payload_item($payload_item->[$i]);
+        }
+        return PerlCommand->new(
+            runtime      => $self->{runtime_name},
+            command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Array'),
+            payload      => $payload_item
+        );
+    }
+    elsif ($payload_item->isa('Command')) {
         my $payload_length = @{$payload_item->{payload}};
         for (my $i = 0; $i < $payload_length; $i++) {
             $payload_item->{payload}[$i] = $self->encapsulate_payload_item($payload_item->{payload}[$i]);
@@ -395,22 +437,11 @@ sub encapsulate_payload_item {
     elsif ($payload_item->isa('Javonet::Sdk::Internal::InvocationContext')) {
         return $payload_item->get_current_command();
     }
-    elsif (ref($payload_item) eq 'ARRAY') {
-        my $payload_length = @$payload_item;
-        for (my $i = 0; $i < $payload_length; $i++) {
-            $payload_item->[$i] = $self->encapsulate_payload_item($payload_item->[$i]);
-        }
-        return PerlCommand->new(
-            runtime => $self->{runtime_name},
-            command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Array'),
-            payload => $payload_item
-        );
-    }
     else {
         return PerlCommand->new(
-            runtime => $self->{runtime_name},
+            runtime      => $self->{runtime_name},
             command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Value'),
-            payload => [$payload_item]
+            payload      => [ $payload_item ]
         );
     }
 }

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

@@ -239,15 +239,25 @@ sub build_command {
 sub encapsulate_payload_item {
     my ($self, $payload_item) = @_;
 
-    if(!defined $payload_item) {
+    if (!defined $payload_item) {
         return PerlCommand->new(
-            runtime => $self->{runtime_name},
+            runtime      => $self->{runtime_name},
             command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Value'),
-            payload => []
+            payload      => []
         );
     }
-
-    if ($payload_item->isa('Command')) {
+    if (ref($payload_item) eq 'ARRAY') {
+        my $payload_length = @$payload_item;
+        for (my $i = 0; $i < $payload_length; $i++) {
+            $payload_item->[$i] = $self->encapsulate_payload_item($payload_item->[$i]);
+        }
+        return PerlCommand->new(
+            runtime      => $self->{runtime_name},
+            command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Array'),
+            payload      => $payload_item
+        );
+    }
+    elsif ($payload_item->isa('Command')) {
         my $payload_length = @{$payload_item->{payload}};
         for (my $i = 0; $i < $payload_length; $i++) {
             $payload_item->{payload}[$i] = $self->encapsulate_payload_item($payload_item->{payload}[$i]);
@@ -257,22 +267,11 @@ sub encapsulate_payload_item {
     elsif ($payload_item->isa('Javonet::Sdk::Internal::InvocationContext')) {
         return $payload_item->get_current_command();
     }
-    elsif (ref($payload_item) eq 'ARRAY') {
-        my $payload_length = @$payload_item;
-        for (my $i = 0; $i < $payload_length; $i++) {
-            $payload_item->[$i] = $self->encapsulate_payload_item($payload_item->[$i]);
-        }
-        return PerlCommand->new(
-            runtime => $self->{runtime_name},
-            command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Array'),
-            payload => $payload_item
-        );
-    }
     else {
         return PerlCommand->new(
-            runtime => $self->{runtime_name},
+            runtime      => $self->{runtime_name},
             command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Value'),
-            payload => [$payload_item]
+            payload      => [ $payload_item ]
         );
     }
 }

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

@@ -1,4 +1,4 @@
-=head2 Thu Feb 13 08:30:02 2025: C<Module> L<Test::Fatal|Test::Fatal>
+=head2 Wed Mar 12 20:11:54 2025: C<Module> L<Test::Fatal|Test::Fatal>
 
 =over 4
 
@@ -20,7 +20,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Thu Feb 13 08:30:26 2025: C<Module> L<autobox|autobox>
+=head2 Wed Mar 12 20:12:18 2025: C<Module> L<autobox|autobox>
 
 =over 4
 
@@ -42,7 +42,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Thu Feb 13 08:30:32 2025: C<Module> L<Safe::Isa|Safe::Isa>
+=head2 Wed Mar 12 20:12:25 2025: C<Module> L<Safe::Isa|Safe::Isa>
 
 =over 4
 
@@ -64,7 +64,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Thu Feb 13 08:30:39 2025: C<Module> L<YAML::PP|YAML::PP>
+=head2 Wed Mar 12 20:12:35 2025: C<Module> L<YAML::PP|YAML::PP>
 
 =over 4
 
@@ -86,7 +86,7 @@ C<EXE_FILES: bin/yamlpp-events bin/yamlpp-highlight bin/yamlpp-load bin/yamlpp-l
 
 =back
 
-=head2 Thu Feb 13 08:30:43 2025: C<Module> L<PPI|PPI>
+=head2 Wed Mar 12 20:12:40 2025: C<Module> L<PPI|PPI>
 
 =over 4
 
@@ -108,7 +108,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Thu Feb 13 08:30:47 2025: C<Module> L<PPI::XS|PPI::XS>
+=head2 Wed Mar 12 20:12:46 2025: C<Module> L<Want|Want>
 
 =over 4
 
@@ -122,7 +122,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.910>
+C<VERSION: 0.29>
 
 =item *
 
@@ -130,7 +130,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Thu Feb 13 08:30:52 2025: C<Module> L<Want|Want>
+=head2 Wed Mar 12 20:12:53 2025: C<Module> L<PPI::XS|PPI::XS>
 
 =over 4
 
@@ -144,7 +144,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.29>
+C<VERSION: 0.910>
 
 =item *
 
@@ -152,7 +152,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Thu Feb 13 08:30:55 2025: C<Module> L<Nice::Try|Nice::Try>
+=head2 Wed Mar 12 20:12:56 2025: C<Module> L<Nice::Try|Nice::Try>
 
 =over 4
 
@@ -174,7 +174,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Thu Feb 13 08:30:58 2025: C<Module> L<Data::Cmp|Data::Cmp>
+=head2 Wed Mar 12 20:13:04 2025: C<Module> L<Data::UUID|Data::UUID>
 
 =over 4
 
@@ -188,7 +188,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.010>
+C<VERSION: 1.227>
 
 =item *
 
@@ -196,7 +196,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Thu Feb 13 08:31:05 2025: C<Module> L<Data::UUID|Data::UUID>
+=head2 Wed Mar 12 20:13:10 2025: C<Module> L<Scalar::Util::Numeric|Scalar::Util::Numeric>
 
 =over 4
 
@@ -210,7 +210,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.227>
+C<VERSION: 0.40>
 
 =item *
 
@@ -218,7 +218,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Thu Feb 13 08:31:08 2025: C<Module> L<Attribute::Util|Attribute::Util>
+=head2 Wed Mar 12 20:13:14 2025: C<Module> L<Data::Cmp|Data::Cmp>
 
 =over 4
 
@@ -232,7 +232,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.07>
+C<VERSION: 0.010>
 
 =item *
 
@@ -240,7 +240,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Thu Feb 13 08:31:13 2025: C<Module> L<Scalar::Util::Numeric|Scalar::Util::Numeric>
+=head2 Wed Mar 12 20:13:18 2025: C<Module> L<Attribute::Util|Attribute::Util>
 
 =over 4
 
@@ -254,7 +254,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.40>
+C<VERSION: 1.07>
 
 =item *
 

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

@@ -6,6 +6,7 @@ use FFI::Platypus;
 use Path::Tiny;
 use File::Spec;
 use Config;
+use Cwd;
 use POSIX qw(uname);
 
 my $ffi;
@@ -23,7 +24,7 @@ sub initialize {
         $ffi = FFI::Platypus->new(api => 1);
         use FFI::Platypus::DL qw(dlopen dlerror RTLD_PLATYPUS_DEFAULT);
         my $dir = File::Spec->rel2abs(__FILE__);
-        my $current_dir = path($dir)->parent(3);
+        my $current_dir = getcwd();
         my $perl_native_lib;
 
         my $arch = do {
@@ -48,7 +49,14 @@ sub initialize {
         else {
             $perl_native_lib = "Binaries/Native/Windows/$arch/JavonetPerlRuntimeNative.dll";
         }
-        $ffi->lib("$current_dir/$perl_native_lib");
+        
+        my $full_native_lib_path = "$current_dir/$perl_native_lib";
+        my $error_message = "Native library not found at $full_native_lib_path\n" .
+            "Please Download and unzip Binaries at $current_dir directory folder using this link: https://download.javonet.com/binaries/Binaries.zip\n" .
+            "For more info please visit: https://www.javonet.com/guides/v2/getting-started/getting-started-perl";
+        die $error_message unless -e $full_native_lib_path;
+        $ffi->lib($full_native_lib_path);
+
         $send_command_native = $ffi->function('SendCommand' => [ 'uchar[]', 'int' ] => 'int');
         $read_response_native = $ffi->function('ReadResponse' => [ 'uchar[]', 'int' ] => 'int');
         $activate_native = $ffi->function('Activate' => ['string'] => 'int');

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

@@ -20,7 +20,7 @@ my %command_type = (
     'GetInstanceField'          => 13,
     'Optimize'                  => 14,
     'GenerateLib'               => 15,
-    'InvokeGlobalFunction'        => 16,
+    'InvokeGlobalFunction'      => 16,
     'DestructReference'         => 17,
     'Array'                     => 18,
     'ArrayGetItem'              => 19,

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

@@ -331,8 +331,8 @@ sub get_ref_value {
     );
     return Javonet::Sdk::Internal::InvocationContext->new(
         $self->{runtime_name},
-        $self->get_connection_type(),
-        $self->get_tcp_address(),
+        $self->{connection_type},
+        $self->{tcp_address},
         $self->build_command($command),
         0
     );
@@ -347,8 +347,40 @@ sub create_null {
     );
     return Javonet::Sdk::Internal::InvocationContext->new(
         $self->{runtime_name},
-        $self->get_connection_type(),
-        $self->get_tcp_address(),
+        $self->{connection_type},
+        $self->{tcp_address},
+        $self->build_command($command),
+        0
+    );
+}
+
+sub get_static_method_as_delegate {
+    my ($self, @arguments) = @_;
+    my $command = PerlCommand->new(
+        runtime => $self->{runtime_name},
+        command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('GetStaticMethodAsDelegate'),
+        payload => \@arguments
+    );
+    return Javonet::Sdk::Internal::InvocationContext->new(
+        $self->{runtime_name},
+        $self->{connection_type},
+        $self->{tcp_address},
+        $self->build_command($command),
+        0
+    );
+}
+
+sub get_instance_method_as_delegate {
+    my ($self, @arguments) = @_;
+    my $command = PerlCommand->new(
+        runtime => $self->{runtime_name},
+        command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('GetInstanceMethodAsDelegate'),
+        payload => \@arguments
+    );
+    return Javonet::Sdk::Internal::InvocationContext->new(
+        $self->{runtime_name},
+        $self->{connection_type},
+        $self->{tcp_address},
         $self->build_command($command),
         0
     );
@@ -377,15 +409,25 @@ sub build_command {
 sub encapsulate_payload_item {
     my ($self, $payload_item) = @_;
 
-    if(!defined $payload_item) {
+    if (!defined $payload_item) {
         return PerlCommand->new(
-            runtime => $self->{runtime_name},
+            runtime      => $self->{runtime_name},
             command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Value'),
-            payload => []
+            payload      => []
         );
     }
-
-    if ($payload_item->isa('Command')) {
+    if (ref($payload_item) eq 'ARRAY') {
+        my $payload_length = @$payload_item;
+        for (my $i = 0; $i < $payload_length; $i++) {
+            $payload_item->[$i] = $self->encapsulate_payload_item($payload_item->[$i]);
+        }
+        return PerlCommand->new(
+            runtime      => $self->{runtime_name},
+            command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Array'),
+            payload      => $payload_item
+        );
+    }
+    elsif ($payload_item->isa('Command')) {
         my $payload_length = @{$payload_item->{payload}};
         for (my $i = 0; $i < $payload_length; $i++) {
             $payload_item->{payload}[$i] = $self->encapsulate_payload_item($payload_item->{payload}[$i]);
@@ -395,22 +437,11 @@ sub encapsulate_payload_item {
     elsif ($payload_item->isa('Javonet::Sdk::Internal::InvocationContext')) {
         return $payload_item->get_current_command();
     }
-    elsif (ref($payload_item) eq 'ARRAY') {
-        my $payload_length = @$payload_item;
-        for (my $i = 0; $i < $payload_length; $i++) {
-            $payload_item->[$i] = $self->encapsulate_payload_item($payload_item->[$i]);
-        }
-        return PerlCommand->new(
-            runtime => $self->{runtime_name},
-            command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Array'),
-            payload => $payload_item
-        );
-    }
     else {
         return PerlCommand->new(
-            runtime => $self->{runtime_name},
+            runtime      => $self->{runtime_name},
             command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Value'),
-            payload => [$payload_item]
+            payload      => [ $payload_item ]
         );
     }
 }

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

@@ -239,15 +239,25 @@ sub build_command {
 sub encapsulate_payload_item {
     my ($self, $payload_item) = @_;
 
-    if(!defined $payload_item) {
+    if (!defined $payload_item) {
         return PerlCommand->new(
-            runtime => $self->{runtime_name},
+            runtime      => $self->{runtime_name},
             command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Value'),
-            payload => []
+            payload      => []
         );
     }
-
-    if ($payload_item->isa('Command')) {
+    if (ref($payload_item) eq 'ARRAY') {
+        my $payload_length = @$payload_item;
+        for (my $i = 0; $i < $payload_length; $i++) {
+            $payload_item->[$i] = $self->encapsulate_payload_item($payload_item->[$i]);
+        }
+        return PerlCommand->new(
+            runtime      => $self->{runtime_name},
+            command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Array'),
+            payload      => $payload_item
+        );
+    }
+    elsif ($payload_item->isa('Command')) {
         my $payload_length = @{$payload_item->{payload}};
         for (my $i = 0; $i < $payload_length; $i++) {
             $payload_item->{payload}[$i] = $self->encapsulate_payload_item($payload_item->{payload}[$i]);
@@ -257,22 +267,11 @@ sub encapsulate_payload_item {
     elsif ($payload_item->isa('Javonet::Sdk::Internal::InvocationContext')) {
         return $payload_item->get_current_command();
     }
-    elsif (ref($payload_item) eq 'ARRAY') {
-        my $payload_length = @$payload_item;
-        for (my $i = 0; $i < $payload_length; $i++) {
-            $payload_item->[$i] = $self->encapsulate_payload_item($payload_item->[$i]);
-        }
-        return PerlCommand->new(
-            runtime => $self->{runtime_name},
-            command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Array'),
-            payload => $payload_item
-        );
-    }
     else {
         return PerlCommand->new(
-            runtime => $self->{runtime_name},
+            runtime      => $self->{runtime_name},
             command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Value'),
-            payload => [$payload_item]
+            payload      => [ $payload_item ]
         );
     }
 }