javonet-ruby-sdk 2.0.1 → 2.0.4

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

@@ -23,11 +23,10 @@ use aliased 'Javonet::Core::Handler::AbstractHandler' => 'AbstractHandler';
 use aliased 'Javonet::Sdk::Core::RuntimeLib' => 'RuntimeLib', qw(get_runtime);
 use aliased 'Javonet::Core::Handler::HandlerDictionary' => 'HandlerDictionary', qw(get_handler);
 
-
 my $load_library_handler = LoadLibraryHandler->new();
 my $get_static_field_handler = GetStaticFieldHandler->new();
-my $set_static_field_handler= SetStaticFieldHandler->new();
-my $create_instance_handler= CreateInstanceHandler->new();
+my $set_static_field_handler = SetStaticFieldHandler->new();
+my $create_instance_handler = CreateInstanceHandler->new();
 my $invoke_instance_method_handler = InvokeInstanceMethodHandler->new();
 my $invoke_static_method_handler = InvokeStaticMethodHandler->new();
 my $resolve_instance_handler = ResolveInstanceHandler->new();
@@ -36,7 +35,6 @@ my $casting_handler = CastingHandler->new();
 my $get_instance_field_handler = GetInstanceFieldHandler->new();
 my $destruct_reference_handler = DestructReferenceHandler->new();
 
-
 Javonet::Core::Handler::HandlerDictionary::add_handler_to_dict(
     Javonet::Sdk::Core::PerlCommandType::get_command_type('LoadLibrary'),
     $load_library_handler
@@ -85,28 +83,37 @@ Javonet::Core::Handler::HandlerDictionary::add_handler_to_dict(
 sub handle_command {
     my ($self, $command) = @_;
     my $response = Javonet::Core::Handler::HandlerDictionary::get_handler($command->{command_type})->handle_command($command);
-    my $reference_cache = ReferencesCache->new();
 
-    if ($response->isa("Javonet::Core::Handler::Exception")){
+    if (ref $response eq '') {
         return PerlCommand->new(
-            runtime => Javonet::Sdk::Core::RuntimeLib::get_runtime('Perl'),
-            command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Exception'),
-            payload => [$response->get_message()]
+            runtime      => Javonet::Sdk::Core::RuntimeLib::get_runtime('Perl'),
+            command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Response'),
+            payload      => [ $response ]
         )
     }
-    if (!blessed($response)){
+    elsif (ref $response eq 'ARRAY') {
+        {
+            return PerlCommand->new(
+                runtime      => Javonet::Sdk::Core::RuntimeLib::get_runtime('Perl'),
+                command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Array'),
+                payload      => [ $response ]
+            )
+        }
+    }
+    elsif ($response->isa("Javonet::Core::Handler::Exception")) {
         return PerlCommand->new(
-            runtime => Javonet::Sdk::Core::RuntimeLib::get_runtime('Perl'),
-            command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Response'),
-            payload => [$response]
+            runtime      => Javonet::Sdk::Core::RuntimeLib::get_runtime('Perl'),
+            command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Exception'),
+            payload      => [ $response->get_message() ]
         )
     }
-    else{
+    else {
+        my $reference_cache = ReferencesCache->new();
         my $guid = $reference_cache->cache_reference($response);
         return PerlCommand->new(
-            runtime => Javonet::Sdk::Core::RuntimeLib::get_runtime('Perl'),
-            command_type =>  Javonet::Sdk::Core::PerlCommandType::get_command_type('Reference'),
-            payload =>  [$guid]
+            runtime      => Javonet::Sdk::Core::RuntimeLib::get_runtime('Perl'),
+            command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Reference'),
+            payload      => [ $guid ]
         )
     }
 }

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

@@ -25,7 +25,8 @@ my %command_type = (
     'Optimize'             => 14,
     'GenerateLib'          => 15,
     'InvokeGlobalMethod'   => 16,
-    'DestructReference'    => 17
+    'DestructReference'    => 17,
+    'Array'                => 18
 
 );
 

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/HTML/Entities.pm

@@ -136,7 +136,7 @@ modify it under the same terms as Perl itself.
 =cut
 
 use strict;
-our $VERSION = '3.80';
+our $VERSION = '3.81';
 our (%entity2char, %char2entity);
 
 require 5.004;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/HTML/Filter.pm

@@ -4,7 +4,7 @@ use strict;
 
 require HTML::Parser;
 our @ISA = qw(HTML::Parser);
-our $VERSION = '3.80';
+our $VERSION = '3.81';
 
 sub declaration { $_[0]->output("<!$_[1]>")     }
 sub process     { $_[0]->output($_[2])          }

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/HTML/HeadParser.pm

@@ -91,7 +91,7 @@ use HTML::Entities ();
 use strict;
 our $DEBUG;
 #$DEBUG = 1;
-our $VERSION = '3.80';
+our $VERSION = '3.81';
 
 =item $hp = HTML::HeadParser->new
 

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/HTML/LinkExtor.pm

@@ -2,7 +2,7 @@ package HTML::LinkExtor;
 
 require HTML::Parser;
 our @ISA = qw(HTML::Parser);
-our $VERSION = '3.80';
+our $VERSION = '3.81';
 
 =head1 NAME
 

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/HTML/Parser.pm

@@ -2,7 +2,7 @@ package HTML::Parser;
 
 use strict;
 
-our $VERSION = '3.80';
+our $VERSION = '3.81';
 
 require HTML::Entities;
 

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/HTML/PullParser.pm

@@ -4,7 +4,7 @@ use strict;
 
 require HTML::Parser;
 our @ISA = qw(HTML::Parser);
-our $VERSION = '3.80';
+our $VERSION = '3.81';
 
 use Carp ();
 

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/HTML/TokeParser.pm

@@ -4,7 +4,7 @@ use strict;
 
 require HTML::PullParser;
 our @ISA = qw(HTML::PullParser);
-our $VERSION = '3.80';
+our $VERSION = '3.81';
 
 use Carp ();
 use HTML::Entities qw(decode_entities);