javonet-ruby-sdk 2.1.11 → 2.1.13

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

@@ -27,8 +27,8 @@ sub process {
             die Exception->new("Exception: ArraySetItemHandler parameters mismatch");
         }
         my $array = $command->{payload}[0];
-        my $value = $command->{payload}[1];
-        my @indexes = $command->{payload}[2,];
+        my @indexes = $command->{payload}[1];
+        my $value = $command->{payload}[2];
 
         @{$array}[@indexes] = $value;
         return 0;

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

@@ -35,10 +35,13 @@ my %command_type = (
     'SetInstanceField'          => 25,
     'InvokeGenericStaticMethod' => 26,
     'InvokeGenericMethod'       => 27,
-    'CreateGenericClassInstance'=> 28,
-    'GetEnumItem'               => 29,
-    'GetEnumName'               => 30,
-    'GetEnumValue'              => 31,
+    'GetEnumItem'               => 28,
+    'GetEnumName'               => 29,
+    'GetEnumValue'              => 30,
+    'AsRef'                     => 31,
+    'AsOut'                     => 32,
+    'GetRefValue'               => 33,
+
 
 
 );

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

@@ -326,6 +326,23 @@ sub get_enum_value {
     );
 }
 
+sub get_ref_value {
+    my ($self, @arguments) = @_;
+    my $command = Javonet::Sdk::Core::PerlCommand->new(
+        runtime => $self->{runtime_name},
+        command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('GetRefValue'),
+        payload => \@arguments
+    );
+    return Javonet::Sdk::Internal::InvocationContext->new(
+        $self->{runtime_name},
+        $self->get_connection_type(),
+        $self->get_tcp_address(),
+        $self->build_command($command),
+        0
+    );
+
+}
+
 sub get_current_command {
     my $self = shift;
     return $self->{current_command};

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

@@ -151,7 +151,45 @@ sub get_enum_item {
     );
 }
 
+sub as_out {
+    my $self = shift;
+    my @arguments = @_;
+
+    my $command = PerlCommand->new(
+        runtime => $self->{runtime_lib},
+        command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('AsOut'),
+        payload => \@arguments
+    );
+
+    return Javonet::Sdk::Internal::InvocationContext->new(
+        $self->{runtime_lib},
+        $self->{connection_type},
+        $self->{tcp_address},
+        $self->build_command($command),
+        0
+    );
+}
+
+sub as_ref {
+    my $self = shift;
+    my @arguments = @_;
 
+    my $command = PerlCommand->new(
+        runtime => $self->{runtime_lib},
+        command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('AsRef'),
+        payload => \@arguments
+    );
+
+    return Javonet::Sdk::Internal::InvocationContext->new(
+        $self->{runtime_lib},
+        $self->{connection_type},
+        $self->{tcp_address},
+        $self->build_command($command),
+        0
+    );
+}
+
+#@override
 sub build_command {
     my ($self, $command) = @_;
     my $command_payload_length = @{$command->{payload}};
@@ -164,11 +202,6 @@ sub build_command {
 sub encapsulate_payload_item {
     my ($self, $payload_item) = @_;
     if ($payload_item->isa('Javonet::Sdk::Internal::InvocationContext')) {
-        # return Javonet::Sdk::Core::PerlCommand->new(
-        #     runtime      => $self->{runtime_name},
-        #     command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Value'),
-        #     payload      => $payload_item->get_current_command(),
-        # );
         return $payload_item->get_current_command();
     } else {
         return $payload_item;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/Sub/Exporter/Cookbook.pod

@@ -296,7 +296,7 @@ Sub::Exporter::Cookbook - useful, demonstrative, or stupid Sub::Exporter tricks
 
 =head1 VERSION
 
-version 0.990
+version 0.991
 
 =head1 OVERVIEW
 

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/Sub/Exporter/Tutorial.pod

@@ -261,7 +261,7 @@ Sub::Exporter::Tutorial - a friendly guide to exporting with Sub::Exporter
 
 =head1 VERSION
 
-version 0.990
+version 0.991
 
 =head1 DESCRIPTION
 

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/Sub/Exporter/Util.pm

@@ -1,8 +1,8 @@
-use strict;
+use v5.12.0;
 use warnings;
-package Sub::Exporter::Util;
+package Sub::Exporter::Util 0.991;
 # ABSTRACT: utilities to make Sub::Exporter easier
-$Sub::Exporter::Util::VERSION = '0.990';
+
 use Data::OptList ();
 use Params::Util ();
 
@@ -106,7 +106,7 @@ sub curry_chain {
 
       for my $i (0 .. $#$pairs) {
         my $pair = $pairs->[ $i ];
-        
+
         unless (Params::Util::_INVOCANT($next)) { ## no critic Private
           my $str = defined $next ? "'$next'" : 'undef';
           Carp::croak("can't call $pair->[0] on non-invocant $str")
@@ -125,19 +125,19 @@ sub curry_chain {
 }
 
 # =head2 name_map
-# 
+#
 # This utility returns an list to be used in specify export generators.  For
 # example, the following:
-# 
+#
 #   exports => {
 #     name_map(
 #       '_?_gen'  => [ qw(fee fie) ],
 #       '_make_?' => [ qw(foo bar) ],
 #     ),
 #   }
-# 
+#
 # is equivalent to:
-# 
+#
 #   exports => {
 #     name_map(
 #       fee => \'_fee_gen',
@@ -146,26 +146,26 @@ sub curry_chain {
 #       bar => \'_make_bar',
 #     ),
 #   }
-# 
+#
 # This can save a lot of typing, when providing many exports with similarly-named
 # generators.
-# 
+#
 # =cut
-# 
+#
 # sub name_map {
 #   my (%groups) = @_;
-# 
+#
 #   my %map;
-# 
+#
 #   while (my ($template, $names) = each %groups) {
 #     for my $name (@$names) {
 #       (my $export = $template) =~ s/\?/$name/
 #         or Carp::croak 'no ? found in name_map template';
-# 
+#
 #       $map{ $name } = \$export;
 #     }
 #   }
-# 
+#
 #   return %map;
 # }
 
@@ -342,7 +342,7 @@ Sub::Exporter::Util - utilities to make Sub::Exporter easier
 
 =head1 VERSION
 
-version 0.990
+version 0.991
 
 =head1 DESCRIPTION
 

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/Sub/Exporter.pm

@@ -1,9 +1,8 @@
-use v5.8;
-use strict;
+use v5.12.0;
 use warnings;
-package Sub::Exporter;
+package Sub::Exporter 0.991;
 # ABSTRACT: a sophisticated exporter for custom-built routines
-$Sub::Exporter::VERSION = '0.990';
+
 use Carp ();
 use Data::OptList 0.100 ();
 use Params::Util 0.14 (); # _CODELIKE
@@ -79,8 +78,8 @@ use Sub::Install 0.92 ();
 #pod
 #pod     return sub {
 #pod       my $data      = shift;
-#pod       my $tolerance = shift || $arg->{tolerance}; 
-#pod       my $passes    = shift || $arg->{passes}; 
+#pod       my $tolerance = shift || $arg->{tolerance};
+#pod       my $passes    = shift || $arg->{passes};
 #pod
 #pod       analyze($data, $tolerance, $passes);
 #pod     }
@@ -309,8 +308,8 @@ use Sub::Install 0.92 ();
 #pod
 #pod    return sub {
 #pod      my $data      = shift;
-#pod      my $tolerance = shift || $arg->{tolerance} || $col->{defaults}{tolerance}; 
-#pod      my $passes    = shift || $arg->{passes}    || $col->{defaults}{passes}; 
+#pod      my $tolerance = shift || $arg->{tolerance} || $col->{defaults}{tolerance};
+#pod      my $passes    = shift || $arg->{passes}    || $col->{defaults}{passes};
 #pod
 #pod      analyze($data, $tolerance, $passes);
 #pod    }
@@ -360,7 +359,7 @@ use Sub::Install 0.92 ();
 #pod
 #pod First, the collectors gather any collections found in the arguments.  Any
 #pod reference type may be given as the value for a collector.  For each collection
-#pod given in the arguments, its validator (if any) is called.  
+#pod given in the arguments, its validator (if any) is called.
 #pod
 #pod Next, groups are expanded.  If the group is implemented by a group generator,
 #pod the generator is called.  There are two special arguments which, if given to a
@@ -783,7 +782,7 @@ sub _do_import {
     }
 
     my $code = $arg->{generator}->(
-      { 
+      {
         class     => $arg->{class},
         name      => $name,
         arg       => $import_arg,
@@ -809,7 +808,7 @@ sub _do_import {
 ## no Module::Whatever qw(arg arg arg);
 # sub _unexport {
 #   my (undef, undef, undef, undef, undef, $as, $into) = @_;
-# 
+#
 #   if (ref $as eq 'SCALAR') {
 #     undef $$as;
 #   } elsif (ref $as) {
@@ -982,7 +981,7 @@ sub _setup {
 #pod
 #pod For simple uses, setting up Sub::Exporter is about as easy as Exporter.  For
 #pod complex uses, Sub::Exporter makes hard things possible, which would not be
-#pod possible with Exporter. 
+#pod possible with Exporter.
 #pod
 #pod When using a module that uses Sub::Exporter, users familiar with Exporter will
 #pod probably see no difference in the basics.  These two lines do about the same
@@ -1078,7 +1077,7 @@ sub _setup {
 #pod improve my documentation quite a bit.  Yuval Kogman helped me find a bunch of
 #pod little problems.
 #pod
-#pod Thanks, friends! 
+#pod Thanks, friends!
 #pod
 #pod =head1 BUGS
 #pod
@@ -1102,7 +1101,7 @@ Sub::Exporter - a sophisticated exporter for custom-built routines
 
 =head1 VERSION
 
-version 0.990
+version 0.991
 
 =head1 SYNOPSIS
 
@@ -1174,8 +1173,8 @@ The package with the generator for that would look something like this:
 
     return sub {
       my $data      = shift;
-      my $tolerance = shift || $arg->{tolerance}; 
-      my $passes    = shift || $arg->{passes}; 
+      my $tolerance = shift || $arg->{tolerance};
+      my $passes    = shift || $arg->{passes};
 
       analyze($data, $tolerance, $passes);
     }
@@ -1414,8 +1413,8 @@ rewritten as:
 
    return sub {
      my $data      = shift;
-     my $tolerance = shift || $arg->{tolerance} || $col->{defaults}{tolerance}; 
-     my $passes    = shift || $arg->{passes}    || $col->{defaults}{passes}; 
+     my $tolerance = shift || $arg->{tolerance} || $col->{defaults}{tolerance};
+     my $passes    = shift || $arg->{passes}    || $col->{defaults}{passes};
 
      analyze($data, $tolerance, $passes);
    }
@@ -1465,7 +1464,7 @@ C<use> statement) are parsed as follows:
 
 First, the collectors gather any collections found in the arguments.  Any
 reference type may be given as the value for a collector.  For each collection
-given in the arguments, its validator (if any) is called.  
+given in the arguments, its validator (if any) is called.
 
 Next, groups are expanded.  If the group is implemented by a group generator,
 the generator is called.  There are two special arguments which, if given to a
@@ -1614,7 +1613,7 @@ a good idea, not a missing feature.
 
 For simple uses, setting up Sub::Exporter is about as easy as Exporter.  For
 complex uses, Sub::Exporter makes hard things possible, which would not be
-possible with Exporter. 
+possible with Exporter.
 
 When using a module that uses Sub::Exporter, users familiar with Exporter will
 probably see no difference in the basics.  These two lines do about the same
@@ -1708,7 +1707,7 @@ Ian Langworth and Shawn Sorichetti asked some good questions and helped me
 improve my documentation quite a bit.  Yuval Kogman helped me find a bunch of
 little problems.
 
-Thanks, friends! 
+Thanks, friends!
 
 =head1 BUGS
 

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/auto/share/dist/FFI-Platypus/include/ffi_platypus_config.h

@@ -4,7 +4,7 @@
 #define PERL_OS_DARWIN 1
 #define FFI_PL_PERL_VERSION_MAJOR 5
 #define FFI_PL_PERL_VERSION_MINOR 38
-#define FFI_PL_PERL_VERSION_PATCH 0
+#define FFI_PL_PERL_VERSION_PATCH 2
 #define FFI_PL_VERSION_MAJOR 2
 #define FFI_PL_VERSION_MINOR 8
 #define FFI_PL_VERSION_PATCH 0