javonet-nodejs-sdk 2.0.5 → 2.1.0

package/Binaries/Perl/Windows/X64/deps/lib/perl5/Test/Alien/Build.pm

@@ -29,7 +29,7 @@ our @EXPORT = qw(
 );
 
 # ABSTRACT: Tools for testing Alien::Build + alienfile
-our $VERSION = '2.77'; # VERSION
+our $VERSION = '2.78'; # VERSION
 
 
 my $build;
@@ -627,7 +627,7 @@ Test::Alien::Build - Tools for testing Alien::Build + alienfile
 
 =head1 VERSION
 
-version 2.77
+version 2.78
 
 =head1 SYNOPSIS
 

package/Binaries/Perl/Windows/X64/deps/lib/perl5/Test/Alien/CanCompile.pm

@@ -6,7 +6,7 @@ use 5.008004;
 use Test2::API qw( context );
 
 # ABSTRACT: Skip a test file unless a C compiler is available
-our $VERSION = '2.77'; # VERSION
+our $VERSION = '2.78'; # VERSION
 
 
 sub skip
@@ -39,7 +39,7 @@ Test::Alien::CanCompile - Skip a test file unless a C compiler is available
 
 =head1 VERSION
 
-version 2.77
+version 2.78
 
 =head1 SYNOPSIS
 

package/Binaries/Perl/Windows/X64/deps/lib/perl5/Test/Alien/CanPlatypus.pm

@@ -6,7 +6,7 @@ use 5.008004;
 use Test2::API qw( context );
 
 # ABSTRACT: Skip a test file unless FFI::Platypus is available
-our $VERSION = '2.77'; # VERSION
+our $VERSION = '2.78'; # VERSION
 
 
 sub skip
@@ -38,7 +38,7 @@ Test::Alien::CanPlatypus - Skip a test file unless FFI::Platypus is available
 
 =head1 VERSION
 
-version 2.77
+version 2.78
 
 =head1 SYNOPSIS
 

package/Binaries/Perl/Windows/X64/deps/lib/perl5/Test/Alien/Diag.pm

@@ -10,7 +10,7 @@ our @EXPORT = qw( alien_diag );
 our @EXPORT_OK = @EXPORT;
 
 # ABSTRACT: Print out standard diagnostic for Aliens in the test step.
-our $VERSION = '2.77'; # VERSION
+our $VERSION = '2.78'; # VERSION
 
 
 my @default_scalar_properties = qw(
@@ -106,7 +106,7 @@ Test::Alien::Diag - Print out standard diagnostic for Aliens in the test step.
 
 =head1 VERSION
 
-version 2.77
+version 2.78
 
 =head1 SYNOPSIS
 

package/Binaries/Perl/Windows/X64/deps/lib/perl5/Test/Alien/Run.pm

@@ -6,7 +6,7 @@ use 5.008004;
 use Test2::API qw( context );
 
 # ABSTRACT: Run object
-our $VERSION = '2.77'; # VERSION
+our $VERSION = '2.78'; # VERSION
 
 
 sub out    { shift->{out} }
@@ -173,7 +173,7 @@ Test::Alien::Run - Run object
 
 =head1 VERSION
 
-version 2.77
+version 2.78
 
 =head1 SYNOPSIS
 

package/Binaries/Perl/Windows/X64/deps/lib/perl5/Test/Alien/Synthetic.pm

@@ -6,7 +6,7 @@ use 5.008004;
 use Test2::API qw( context );
 
 # ABSTRACT: A mock alien object for testing
-our $VERSION = '2.77'; # VERSION
+our $VERSION = '2.78'; # VERSION
 
 
 sub _def ($) { my($val) = @_; defined $val ? $val : '' }
@@ -59,7 +59,7 @@ Test::Alien::Synthetic - A mock alien object for testing
 
 =head1 VERSION
 
-version 2.77
+version 2.78
 
 =head1 SYNOPSIS
 

package/Binaries/Perl/Windows/X64/deps/lib/perl5/Test/Alien.pm

@@ -18,7 +18,7 @@ use Config;
 our @EXPORT = qw( alien_ok run_ok xs_ok ffi_ok with_subtest synthetic helper_ok interpolate_template_is interpolate_run_ok plugin_ok );
 
 # ABSTRACT: Testing tools for Alien modules
-our $VERSION = '2.77'; # VERSION
+our $VERSION = '2.78'; # VERSION
 
 
 our @aliens;
@@ -835,7 +835,7 @@ Test::Alien - Testing tools for Alien modules
 
 =head1 VERSION
 
-version 2.77
+version 2.78
 
 =head1 SYNOPSIS
 

package/Binaries/Perl/Windows/X64/deps/lib/perl5/alienfile.pm

@@ -11,7 +11,7 @@ use Carp ();
 sub _path { Path::Tiny::path(@_) }
 
 # ABSTRACT: Specification for defining an external dependency for CPAN
-our $VERSION = '2.77'; # VERSION
+our $VERSION = '2.78'; # VERSION
 
 
 our @EXPORT = qw( requires on plugin probe configure share sys download fetch decode prefer extract patch patch_ffi build build_ffi gather gather_ffi meta_prop ffi log test start_url before after digest );
@@ -379,7 +379,7 @@ alienfile - Specification for defining an external dependency for CPAN
 
 =head1 VERSION
 
-version 2.77
+version 2.78
 
 =head1 SYNOPSIS
 

package/Binaries/Perl/Windows/X64/lib/Javonet/Core/Handler/CommandHandler/ArrayGetItemHandler.pm

@@ -0,0 +1,40 @@
+package Javonet::Core::Handler::CommandHandler::ArrayGetItemHandler;
+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 aliased 'Javonet::Core::Handler::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: ArrayGetItemHandler parameters mismatch");
+        }
+        my $array = $command->{payload}[0];
+        my @indexes = $command->{payload}[1,];
+
+        return @{$array}[@indexes];
+    }
+    catch ( $e ) {
+        return $e;
+    }
+}
+
+no Moose;
+1;

package/Binaries/Perl/Windows/X64/lib/Javonet/Core/Handler/CommandHandler/ArrayGetRankHandler.pm

@@ -0,0 +1,31 @@
+package Javonet::Core::Handler::CommandHandler::ArrayGetRankHandler;
+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 aliased 'Javonet::Core::Handler::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 {
+        die Javonet::Core::Handler::Exception->new("ArrayGetRankHandler not implemented");
+    }
+    catch ( $e ) {
+        return $e;
+    }
+}
+
+no Moose;
+1;

package/Binaries/Perl/Windows/X64/lib/Javonet/Core/Handler/CommandHandler/ArrayGetSizeHandler.pm

@@ -0,0 +1,39 @@
+package Javonet::Core::Handler::CommandHandler::ArrayGetSizeHandler;
+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 aliased 'Javonet::Core::Handler::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 {
+        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: ArrayGetSizeHandler parameters mismatch");
+        }
+        my $arrayRef = ($command->{payload}[0]);
+
+        return scalar @{$arrayRef};
+    }
+    catch ( $e ) {
+        return $e;
+    }
+}
+
+no Moose;
+1;

package/Binaries/Perl/Windows/X64/lib/Javonet/Core/Handler/CommandHandler/ArraySetItemHandler.pm

@@ -0,0 +1,42 @@
+package Javonet::Core::Handler::CommandHandler::ArraySetItemHandler;
+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 aliased 'Javonet::Core::Handler::Exception' => 'Exception';
+extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
+
+sub new {
+    my $class = shift;
+    my $self = {
+        required_parameters_count => 3
+    };
+    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: ArraySetItemHandler parameters mismatch");
+        }
+        my $array = $command->{payload}[0];
+        my $value = $command->{payload}[1];
+        my @indexes = $command->{payload}[2,];
+
+        @{$array}[@indexes] = $value;
+        return 0;
+    }
+    catch ( $e ) {
+        return $e;
+    }
+}
+
+no Moose;
+1;

package/Binaries/Perl/Windows/X64/lib/Javonet/Core/Handler/CommandHandler/CreateClassInstanceHandler.pm

@@ -12,7 +12,7 @@ extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 sub new {
     my $class = shift;
     my $self = {
-        required_parameters_count  => 1
+        required_parameters_count => 1
     };
     return bless $self, $class;
 }
@@ -20,18 +20,18 @@ sub new {
 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: CreateInstance parameters mismatch");
-    }
-    my $class_name = $command->{payload}[0];
-    my $instance = $class_name->new();
-    return $instance;
+        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: CreateInstance parameters mismatch");
+        }
+        my $class_name = $command->{payload}[0];
+        my $instance = $class_name->new();
+        return $instance;
     }
     catch ( $e ) {
-        return $e ;
+        return $e;
     }
 }
 

package/Binaries/Perl/Windows/X64/lib/Javonet/Core/Handler/CommandHandler/DestructReferenceHandler.pm

@@ -14,7 +14,7 @@ extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 sub new {
     my $class = shift;
     my $self = {
-        required_parameters_count  => 1
+        required_parameters_count => 1
     };
     return bless $self, $class;
 }
@@ -35,7 +35,7 @@ sub process {
         return 0;
     }
     catch ( $e ) {
-        return $e ;
+        return $e;
     }
 }
 

package/Binaries/Perl/Windows/X64/lib/Javonet/Core/Handler/CommandHandler/GetInstanceFieldHandler.pm

@@ -13,7 +13,7 @@ extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 sub new {
     my $class = shift;
     my $self = {
-        required_parameters_count  => 2
+        required_parameters_count => 2
     };
     return bless $self, $class;
 }
@@ -24,7 +24,7 @@ sub process {
         my $current_payload_ref = $command->{payload};
         my @cur_payload = @$current_payload_ref;
         my $parameters_length = @cur_payload;
-        if ($parameters_length < $self->{required_parameters_count}){
+        if ($parameters_length < $self->{required_parameters_count}) {
             die Exception->new("Exception: GetInstanceField parameters mismatch");
         }
         my $class_name = $command->{payload}[0];
@@ -34,7 +34,7 @@ sub process {
         return $var;
     }
     catch ( $e ) {
-        return $e ;
+        return $e;
     }
 }
 

package/Binaries/Perl/Windows/X64/lib/Javonet/Core/Handler/CommandHandler/GetStaticFieldHandler.pm

@@ -12,7 +12,7 @@ extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 sub new {
     my $class = shift;
     my $self = {
-        required_parameters_count  => 2
+        required_parameters_count => 2
     };
     return bless $self, $class;
 }
@@ -20,21 +20,21 @@ sub new {
 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: GetStaticField parameters mismatch");
-    }
-    my $class_name = $command->{payload}[0];
-    my $static_field_name = $command->{payload}[1];
+        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: GetStaticField parameters mismatch");
+        }
+        my $class_name = $command->{payload}[0];
+        my $static_field_name = $command->{payload}[1];
 
-    no strict 'refs';
-    my $var = ${"${class_name}::${static_field_name}"};
-    return $var;
+        no strict 'refs';
+        my $var = ${"${class_name}::${static_field_name}"};
+        return $var;
     }
     catch ( $e ) {
-        return $e ;
+        return $e;
     }
 }
 

package/Binaries/Perl/Windows/X64/lib/Javonet/Core/Handler/CommandHandler/InvokeInstanceMethodHandler.pm

@@ -12,7 +12,7 @@ extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 sub new {
     my $class = shift;
     my $self = {
-        required_parameters_count  => 2
+        required_parameters_count => 2
     };
     return bless $self, $class;
 }
@@ -20,35 +20,33 @@ sub new {
 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: InvokeInstanceMethod parameters mismatch");
-    }
-
-    my $clazz_instance = $command->{payload}[0];
-    my $method_name = $command->{payload}[1];
-    if ($clazz_instance->can($method_name))
-    {
-        if ($parameters_length == $self->{required_parameters_count}) {
-            return $clazz_instance->$method_name();
+        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: InvokeInstanceMethod parameters mismatch");
         }
-        else{
-            my @method_arguments;
-            for (my $i=2; $i<$parameters_length; $i++){
-                push @method_arguments, $command->{payload}[$i];
+
+        my $clazz_instance = $command->{payload}[0];
+        my $method_name = $command->{payload}[1];
+        if ($clazz_instance->can($method_name)) {
+            if ($parameters_length == $self->{required_parameters_count}) {
+                return $clazz_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 $clazz_instance->$method_name(@method_arguments);
         }
-    }
-    else
-    {
-        die Exception->new("Exception InvokeInstanceMethod: method not found");
-    }
+        else {
+            die Exception->new("Exception InvokeInstanceMethod: method not found");
+        }
     }
     catch ( $e ) {
-        return $e ;
+        return $e;
     }
 }
 

package/Binaries/Perl/Windows/X64/lib/Javonet/Core/Handler/CommandHandler/InvokeStaticMethodHandler.pm

@@ -12,7 +12,7 @@ extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 sub new {
     my $class = shift;
     my $self = {
-        required_parameters_count  => 2
+        required_parameters_count => 2
     };
     return bless $self, $class;
 }
@@ -46,7 +46,7 @@ sub process {
         }
     }
     catch ( $e ) {
-        return $e ;
+        return $e;
     }
 }
 

package/Binaries/Perl/Windows/X64/lib/Javonet/Core/Handler/CommandHandler/LoadLibraryHandler.pm

@@ -12,7 +12,7 @@ extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 sub new {
     my $class = shift;
     my $self = {
-        required_parameters_count  => 2
+        required_parameters_count => 2
     };
     return bless $self, $class;
 }
@@ -23,18 +23,18 @@ sub process {
         my $current_payload_ref = $command->{payload};
         my @cur_payload = @$current_payload_ref;
         my $parameters_length = @cur_payload;
-        if ($parameters_length != $self->{required_parameters_count}){
+        if ($parameters_length != $self->{required_parameters_count}) {
             die Exception->new("Exception: LoadLibrary parameters mismatch");
         }
         my $path_to_class = $command->{payload}[0];
         my $class_file = $command->{payload}[1];
 
-        push (@INC,"$path_to_class");
+        push(@INC, "$path_to_class");
         eval(require $class_file);
         return 0;
     }
     catch ( $e ) {
-        return $e ;
+        return $e;
     }
 }
 

package/Binaries/Perl/Windows/X64/lib/Javonet/Core/Handler/CommandHandler/ResolveInstanceHandler.pm

@@ -13,7 +13,7 @@ extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 sub new {
     my $class = shift;
     my $self = {
-        required_parameters_count  => 1
+        required_parameters_count => 1
     };
     return bless $self, $class;
 }
@@ -22,18 +22,18 @@ sub new {
 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: ResolveInstance parameters mismatch");
-    }
-    my $reference_cache = ReferencesCache->new();
-    my $resolved_reference = $reference_cache->resolve_reference($command);
-    return $resolved_reference;
+        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: ResolveInstance parameters mismatch");
+        }
+        my $reference_cache = ReferencesCache->new();
+        my $resolved_reference = $reference_cache->resolve_reference($command);
+        return $resolved_reference;
     }
     catch ( $e ) {
-        return $e ;
+        return $e;
     }
 }
 1;

package/Binaries/Perl/Windows/X64/lib/Javonet/Core/Handler/CommandHandler/SetStaticFieldHandler.pm

@@ -13,7 +13,7 @@ extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 sub new {
     my $class = shift;
     my $self = {
-        required_parameters_count  => 3
+        required_parameters_count => 3
     };
     return bless $self, $class;
 }
@@ -21,23 +21,23 @@ sub new {
 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: SetStaticField parameters mismatch");
-    }
-    my $class_name = $command->{payload}[0];
-    my $static_field_name = $command->{payload}[1];
-    my $set_variable_value = $command->{payload}[2];
+        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: SetStaticField parameters mismatch");
+        }
+        my $class_name = $command->{payload}[0];
+        my $static_field_name = $command->{payload}[1];
+        my $set_variable_value = $command->{payload}[2];
 
-    no strict 'refs';
-    ${"${class_name}::${static_field_name}"} = $set_variable_value;
+        no strict 'refs';
+        ${"${class_name}::${static_field_name}"} = $set_variable_value;
 
-    return ${"${class_name}::${static_field_name}"};
+        return ${"${class_name}::${static_field_name}"};
     }
     catch ( $e ) {
-        return $e ;
+        return $e;
     }
 }
 

package/Binaries/Perl/Windows/X64/lib/Javonet/Core/Handler/Exception.pm

@@ -9,13 +9,13 @@ my $message;
 
 
 sub new {
-    my ($proto,$exception_message) = @_;
+    my ($proto, $exception_message) = @_;
     my $self = bless {}, $proto;
     $message = $exception_message;
     return $self;
 }
 
-sub get_message(){
+sub get_message() {
     my $self = @_;
     return $message;
 }

package/Binaries/Perl/Windows/X64/lib/Javonet/Core/Handler/HandlerDictionary.pm

@@ -5,7 +5,7 @@ use Moose;
 
 our %handler_dict;
 
-sub add_handler_to_dict{
+sub add_handler_to_dict {
     my $command_type = shift;
     my $handler = shift;
     $handler_dict{$command_type} = $handler;