javonet-nodejs-sdk 2.1.1 → 2.1.2

package/Binaries/Perl/{MacOs/X64/lib/Javonet/Core/Handler → Linux/X64/lib/Javonet/Core/Exception}/Exception.pm

@@ -1,23 +1,29 @@
-package Javonet::Core::Handler::Exception;
+package Javonet::Core::Exception::Exception;
 use strict;
 use warnings FATAL => 'all';
 use Moose;
 use lib 'lib';
 
 my $message;
+my $stack_trace;
 
 
 
 sub new {
-    my ($proto, $exception_message) = @_;
+    my ($proto, $exception_message, $stack_trace) = @_;
     my $self = bless {}, $proto;
     $message = $exception_message;
     return $self;
 }
 
-sub get_message() {
+sub get_message(){
     my $self = @_;
     return $message;
 }
 
+sub get_stack_trace(){
+    my $self = @_;
+    return $stack_trace;
+}
+
 1;

package/Binaries/Perl/Linux/X64/lib/Javonet/Core/Exception/ExceptionSerializer.pm

@@ -0,0 +1,25 @@
+package Javonet::Core::Exception::ExceptionSerializer;
+use strict;
+use warnings FATAL => 'all';
+use Moose;
+use lib 'lib';
+use aliased 'Javonet::Sdk::Core::PerlCommand' => 'PerlCommand';
+
+
+sub serialize {
+    my ($self, $exception) = @_;
+    my $name = ref($exception);
+    my $message = $exception->get_message;
+    my $stack_trace = $exception->get_stack_trace;
+    my $command =  PerlCommand->new(
+        runtime      => Javonet::Sdk::Core::RuntimeLib::get_runtime('Perl'),
+        command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Exception'),
+        payload      => [0, undef , $name , $message, $stack_trace, undef, undef, undef]
+    );
+
+    return $command
+
+}
+
+no Moose;
+1;

package/Binaries/Perl/Linux/X64/lib/Javonet/Core/Exception/ExceptionThrower.pm

@@ -0,0 +1,40 @@
+package Javonet::Core::Exception::ExceptionThrower;
+use strict;
+use warnings FATAL => 'all';
+use Moose;
+use Nice::Try;
+use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
+use lib 'lib';
+
+
+sub throwException {
+    my ($self, $exception_command) = @_;
+    my $exception_name = $exception_command->{payload}[2];
+    my $exception_message =$exception_name . "\n " . $exception_command->{payload}[3];
+    my $stack_trace = "";
+    if (defined($exception_command->{payload}[4])){
+        $stack_trace = getLocalStackTrace($exception_command->{payload}[4], $exception_command->{payload}[5], $exception_command->{payload}[6], $exception_command->{payload}[7]);
+    }
+
+    die $exception_name . " \n " . $exception_message . " \n " .$stack_trace;
+}
+
+sub create_stack_trace {
+    my ($stack_trace_classes, $stack_trace_methods, $stack_trace_lines, $stack_trace_files) = @_;
+    my @classes = split /\|/, $stack_trace_classes;
+    my @methods = split /\|/, $stack_trace_methods;
+    my @lines = split /\|/, $stack_trace_lines;
+    my @files = split /\|/, $stack_trace_files;
+
+    my $stack_trace = "";
+    for (my $i = 0; $i < scalar(@classes); $i++) {
+        $stack_trace .= "  at $methods[$i] ";
+        $stack_trace .= "($files[$i] line $lines[$i])";
+        $stack_trace .= "\n";
+    }
+
+    return $stack_trace;
+}
+
+no Moose;
+1;

package/Binaries/Perl/Linux/X64/lib/Javonet/Core/Handler/AbstractHandler.pm

@@ -3,12 +3,10 @@ use strict;
 use warnings;
 use Moose;
 use lib 'lib';
-use Data::Dumper;
 
 sub handle_command {
 
 }
 
-
 no Moose;
 1;

package/Binaries/Perl/Linux/X64/lib/Javonet/Core/Handler/CommandHandler/AbstractCommandHandler.pm

@@ -44,9 +44,5 @@ sub iterate {
 sub process : Abstract;
 
 
-
-
-
-
 no Moose;
 1;

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

@@ -6,7 +6,7 @@ use Moose;
 use lib 'lib';
 use lib 'data_seed';
 use Nice::Try;
-use aliased 'Javonet::Core::Handler::Exception' => 'Exception';
+use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
 extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 
 sub new {
@@ -32,7 +32,7 @@ sub process {
         return @{$array}[@indexes];
     }
     catch ( $e ) {
-        return $e;
+        return Exception->new($e);
     }
 }
 

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

@@ -6,7 +6,7 @@ use Moose;
 use lib 'lib';
 use lib 'data_seed';
 use Nice::Try;
-use aliased 'Javonet::Core::Handler::Exception' => 'Exception';
+use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
 extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 
 sub new {
@@ -20,10 +20,10 @@ sub new {
 sub process {
     my ($self, $command) = @_;
     try {
-        die Javonet::Core::Handler::Exception->new("ArrayGetRankHandler not implemented");
+        die Exception->new("ArrayGetRankHandler not implemented");
     }
     catch ( $e ) {
-        return $e;
+        return Exception->new($e);
     }
 }
 

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

@@ -6,7 +6,7 @@ use Moose;
 use lib 'lib';
 use lib 'data_seed';
 use Nice::Try;
-use aliased 'Javonet::Core::Handler::Exception' => 'Exception';
+use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
 extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 
 sub new {
@@ -31,7 +31,7 @@ sub process {
         return scalar @{$arrayRef};
     }
     catch ( $e ) {
-        return $e;
+        return Exception->new($e);
     }
 }
 

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

@@ -6,7 +6,7 @@ use Moose;
 use lib 'lib';
 use lib 'data_seed';
 use Nice::Try;
-use aliased 'Javonet::Core::Handler::Exception' => 'Exception';
+use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
 extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 
 sub new {
@@ -34,7 +34,7 @@ sub process {
         return 0;
     }
     catch ( $e ) {
-        return $e;
+        return Exception->new($e);
     }
 }
 

package/Binaries/Perl/Linux/X64/lib/Javonet/Core/Handler/CommandHandler/CastingHandler.pm

@@ -3,6 +3,7 @@ use strict;
 use Moose;
 use lib 'lib';
 use warnings FATAL => 'all';
+use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
 
 sub new {
     my $class = shift;
@@ -11,7 +12,7 @@ sub new {
 }
 
 sub process {
-    die Javonet::Core::Handler::Exception->new("Explicit cast is forbidden in dynamically typed languages");
+    die Exception->new("Explicit cast is forbidden in dynamically typed languages");
 }
 
 

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

@@ -6,7 +6,7 @@ use Moose;
 use lib 'lib';
 use lib 'data_seed';
 use Nice::Try;
-use aliased 'Javonet::Core::Handler::Exception' => 'Exception';
+use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
 extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 
 sub new {
@@ -30,8 +30,8 @@ sub process {
         my $instance = $class_name->new();
         return $instance;
     }
-    catch ( $e ) {
-        return $e;
+    catch ($e){
+        return Exception->new($e);
     }
 }
 

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

@@ -8,7 +8,7 @@ use Data::Dumper;
 use lib 'lib';
 use lib 'data_seed';
 
-use aliased 'Javonet::Core::Handler::Exception' => 'Exception';
+use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
 extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 
 sub new {
@@ -34,8 +34,8 @@ sub process {
 
         return 0;
     }
-    catch ( $e ) {
-        return $e;
+    catch ($e){
+        return Exception->new($e);
     }
 }
 

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

@@ -7,7 +7,7 @@ use lib 'lib';
 use lib 'data_seed';
 use Nice::Try;
 use Data::Dumper;
-use aliased 'Javonet::Core::Handler::Exception' => 'Exception';
+use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
 extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 
 sub new {
@@ -33,8 +33,8 @@ sub process {
         my $var = $class_name->{$static_field_name};
         return $var;
     }
-    catch ( $e ) {
-        return $e;
+    catch ($e){
+        return Exception->new($e);
     }
 }
 

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

@@ -6,7 +6,7 @@ use Moose;
 use lib 'lib';
 use lib 'data_seed';
 use Nice::Try;
-use aliased 'Javonet::Core::Handler::Exception' => 'Exception';
+use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
 extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 
 sub new {
@@ -33,8 +33,8 @@ sub process {
         my $var = ${"${class_name}::${static_field_name}"};
         return $var;
     }
-    catch ( $e ) {
-        return $e;
+    catch ($e){
+        return Exception->new($e);
     }
 }
 

package/Binaries/Perl/Linux/X64/lib/Javonet/Core/Handler/CommandHandler/GetTypeHandler.pm

@@ -6,7 +6,7 @@ use Moose;
 use lib 'lib';
 use lib 'data_seed';
 use Nice::Try;
-use aliased 'Javonet::Core::Handler::Exception' => 'Exception';
+use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
 extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 
 sub new {
@@ -33,8 +33,8 @@ sub process {
         my $var = ${class_name};
         return $var;
     }
-    catch ( $e ) {
-        return $e;
+    catch ($e){
+        return Exception->new($e);
     }
 }
 

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

@@ -6,7 +6,7 @@ use Moose;
 use lib 'lib';
 use lib 'data_seed';
 use Nice::Try;
-use aliased 'Javonet::Core::Handler::Exception' => 'Exception';
+use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
 extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 
 sub new {
@@ -45,8 +45,8 @@ sub process {
             die Exception->new("Exception InvokeInstanceMethod: method not found");
         }
     }
-    catch ( $e ) {
-        return $e;
+    catch ($e){
+            return Exception->new($e);
     }
 }
 

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

@@ -6,7 +6,7 @@ use Moose;
 use lib 'lib';
 use lib 'data_seed';
 use Nice::Try;
-use aliased 'Javonet::Core::Handler::Exception' => 'Exception';
+use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
 extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 
 sub new {
@@ -45,8 +45,8 @@ sub process {
             die Exception->new("Exception InvokeStaticMethod: method not found");
         }
     }
-    catch ( $e ) {
-        return $e;
+    catch ($e){
+        return Exception->new($e);
     }
 }
 

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

@@ -4,15 +4,15 @@ use strict;
 use warnings FATAL => 'all';
 use Moose;
 use lib 'lib';
-use Module::Load;
+use File::Basename;
 use Nice::Try;
-use aliased 'Javonet::Core::Handler::Exception' => 'Exception';
+use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
 extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 
 sub new {
     my $class = shift;
     my $self = {
-        required_parameters_count => 2
+        required_parameters_count => 1
     };
     return bless $self, $class;
 }
@@ -26,15 +26,16 @@ sub process {
         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];
+        my $path_to_file = $command->{payload}[0];
+        my $path_to_file_dir = dirname($path_to_file);
+        my $file_name = basename($path_to_file);
 
-        push(@INC, "$path_to_class");
-        eval(require $class_file);
+        push(@INC, "$path_to_file_dir");
+        eval(require $file_name);
         return 0;
     }
     catch ( $e ) {
-        return $e;
+        return Exception->new($e);
     }
 }
 

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

@@ -6,7 +6,7 @@ use Moose;
 use lib 'lib';
 use lib 'data_seed';
 use Nice::Try;
-use aliased 'Javonet::Core::Handler::Exception' => 'Exception';
+use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
 use aliased 'Javonet::Core::Handler::ReferencesCache' => 'ReferencesCache', qw(get_instance resolve_reference);
 extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 
@@ -32,8 +32,8 @@ sub process {
         my $resolved_reference = $reference_cache->resolve_reference($command);
         return $resolved_reference;
     }
-    catch ( $e ) {
-        return $e;
+    catch ($e){
+        return Exception->new($e);
     }
 }
 1;

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

@@ -4,10 +4,8 @@ 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';
-use base qw(Class::Data::Inheritable);
+use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
 extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 
 sub new {
@@ -36,8 +34,8 @@ sub process {
 
         return ${"${class_name}::${static_field_name}"};
     }
-    catch ( $e ) {
-        return $e;
+    catch ($e){
+        return Exception->new($e);
     }
 }
 

package/Binaries/Perl/Linux/X64/lib/Javonet/Core/Handler/PerlHandler.pm

@@ -11,10 +11,11 @@ use aliased 'Javonet::Core::Handler::CommandHandler::InvokeInstanceMethodHandler
 use aliased 'Javonet::Core::Handler::CommandHandler::InvokeStaticMethodHandler' => 'InvokeStaticMethodHandler';
 use aliased 'Javonet::Core::Handler::CommandHandler::ResolveInstanceHandler' => 'ResolveInstanceHandler';
 use aliased 'Javonet::Core::Handler::CommandHandler::GetTypeHandler' => 'GetTypeHandler';
-use aliased 'Javonet::Core::Handler::Exception' => 'Exception';
+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::DestructReferenceHandler' => 'DestructReferenceHandler';
+use aliased 'Javonet::Core::Exception::ExceptionSerializer' => 'ExceptionSerializer';
 use aliased 'Javonet::Core::Handler::CommandHandler::ArrayGetItemHandler' => 'ArrayGetItemHandler';
 use aliased 'Javonet::Core::Handler::CommandHandler::ArrayGetSizeHandler' => 'ArrayGetSizeHandler';
 use aliased 'Javonet::Core::Handler::CommandHandler::ArrayGetRankHandler' => 'ArrayGetRankHandler';
@@ -128,12 +129,8 @@ sub handle_command {
     #         )
     #     }
     # }
-    elsif (ref $response eq "Javonet::Core::Handler::Exception") {
-        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() ]
-        )
+    elsif (ref $response eq 'Javonet::Core::Exception::Exception') {
+        return ExceptionSerializer->serialize($response)
     }
     else {
         my $reference_cache = ReferencesCache->new();

package/Binaries/Perl/Linux/X64/lib/Javonet/Core/Protocol/CommandSerializer.pm

@@ -10,7 +10,6 @@ use aliased 'Javonet::Sdk::Core::Type' => 'Type', qw(get_type);
 use aliased 'Javonet::Core::Protocol::TypeSerializer' => 'TypeSerializer', qw(serializeInt serializeString serializeDouble serializeFloat serializeCommand);
 use Javonet::Sdk::Internal::ConnectionType;
 
-use threads;
 use Thread::Queue;
 use Scalar::Util::Numeric qw(isint);
 use autobox::universal qw(type);

package/Binaries/Perl/Linux/X64/lib/Javonet/Sdk/Internal/InvocationContext.pm

@@ -5,6 +5,7 @@ use Moose;
 
 use aliased 'Javonet::Core::Handler::PerlHandler' => 'PerlHandler';
 use aliased 'Javonet::Core::Interpreter::Interpreter' => 'Interpreter';
+use aliased 'Javonet::Core::Exception::ExceptionThrower' => 'ExceptionThrower';
 
 extends 'Javonet::Sdk::Internal::Abstract::AbstractInstanceContext',
     'Javonet::Sdk::Internal::Abstract::AbstractMethodInvocationContext',
@@ -53,7 +54,7 @@ sub execute {
     }
 
     if ($response->{command_type} == Javonet::Sdk::Core::PerlCommandType::get_command_type('Exception')) {
-        die $response->{payload}[0];
+        ExceptionThrower->throwException($response)
     }
 
     if ($self->{current_command}->{command_type} == Javonet::Sdk::Core::PerlCommandType::get_command_type('CreateClassInstance')) {

package/Binaries/Perl/Linux/X64/lib/Javonet/Sdk/Internal/RuntimeContext.pm

@@ -6,6 +6,7 @@ use aliased 'Javonet::Sdk::Core::PerlCommand' => 'PerlCommand';
 use aliased 'Javonet::Sdk::Internal::InvocationContext' => 'InvocationContext';
 use aliased 'Javonet::Core::Handler::PerlHandler' => 'PerlHandler';
 use aliased 'Javonet::Core::Interpreter::Interpreter' => 'Interpreter';
+use aliased 'Javonet::Core::Exception::ExceptionThrower' => 'ExceptionThrower';
 
 extends 'Javonet::Sdk::Internal::Abstract::AbstractModuleContext',
     'Javonet::Sdk::Internal::Abstract::AbstractTypeContext';
@@ -69,6 +70,9 @@ sub execute {
     else{
         $response = Interpreter->execute_($command, $connection_type, $tcp_address);
     }
+    if ($response->{command_type} == Javonet::Sdk::Core::PerlCommandType::get_command_type('Exception')) {
+        ExceptionThrower->throwException($response)
+    }
 }
 
 

package/Binaries/Perl/MacOs/X64/deps/lib/perl5/Data/OptList.pm

@@ -1,8 +1,8 @@
 use strict;
 use warnings;
-package Data::OptList;
+package Data::OptList 0.114;
 # ABSTRACT: parse and validate simple name/value option pairs
-$Data::OptList::VERSION = '0.113';
+
 use List::Util ();
 use Params::Util ();
 use Sub::Install 0.921 ();
@@ -249,7 +249,7 @@ Data::OptList - parse and validate simple name/value option pairs
 
 =head1 VERSION
 
-version 0.113
+version 0.114
 
 =head1 SYNOPSIS
 
@@ -315,13 +315,13 @@ following a name is its value.
 
 =head1 PERL VERSION
 
-This library should run on perls released even a long time ago.  It should work
-on any version of perl released in the last five years.
+This library should run on perls released even a long time ago.  It should
+work on any version of perl released in the last five years.
 
 Although it may work on older versions of perl, no guarantee is made that the
 minimum required version will not be increased.  The version may be increased
-for any reason, and there is no promise that patches will be accepted to lower
-the minimum required perl.
+for any reason, and there is no promise that patches will be accepted to
+lower the minimum required perl.
 
 =head1 FUNCTIONS
 

package/Binaries/Perl/MacOs/X64/deps/lib/perl5/Module/Build.pm

@@ -17,7 +17,7 @@ use Perl::OSType ();
 use Module::Build::Base;
 
 our @ISA = qw(Module::Build::Base);
-our $VERSION = '0.4232';
+our $VERSION = '0.4234';
 $VERSION = eval $VERSION;
 
 # Inserts the given module into the @ISA hierarchy between

package/Binaries/Perl/MacOs/X64/deps/lib/perl5/Nice/Try.pm

@@ -1,10 +1,10 @@
 ##----------------------------------------------------------------------------
 ## A real Try Catch Block Implementation Using Perl Filter - ~/lib/Nice/Try.pm
-## Version v1.3.3
+## Version v1.3.4
 ## Copyright(c) 2023 DEGUEST Pte. Ltd.
 ## Author: Jacques Deguest <jack@deguest.jp>
 ## Created 2020/05/17
-## Modified 2023/01/13
+## Modified 2023/05/06
 ## All rights reserved
 ## 
 ## This program is free software; you can redistribute  it  and/or  modify  it
@@ -28,7 +28,7 @@ BEGIN
     use Scalar::Util ();
     use List::Util ();
     use Want ();
-    our $VERSION = 'v1.3.3';
+    our $VERSION = 'v1.3.4';
     our $ERROR;
     our( $CATCH, $DIED, $EXCEPTION, $FINALLY, $HAS_CATCH, @RETVAL, $SENTINEL, $TRY, $WANTARRAY );
 }
@@ -767,7 +767,7 @@ if( CORE::defined( \$Nice::Try::WANTARRAY ) && !\$Nice::Try::THREADED && !( !COR
                             ? 'CODE'
                             : Want::want( 'REFSCALAR' )
                                 ? 'REFSCALAR'
-                                : Want::want( 'BOOLEAN' )
+                                : Want::want( 'BOOL' )
                                     ? 'BOOLEAN'
                                     : Want::want( 'GLOB' )
                                         ? 'GLOB'
@@ -822,7 +822,7 @@ EOT
             }
             elsif( \$Nice::Try::WANT eq 'VOID' )
             {
-                \$Nice::Try::VOID[0] = &\$Nice::Try::TRY;
+                \@Nice::Try::VOID = &\$Nice::Try::TRY;
             }
             elsif( \$Nice::Try::WANT eq 'SCALAR' )
             {
@@ -1033,7 +1033,7 @@ EOT
                     }
                     elsif( \$Nice::Try::WANT eq 'VOID' )
                     {
-                        \$Nice::Try::VOID[0] = \&\$Nice::Try::CATCH;
+                        \@Nice::Try::VOID = \&\$Nice::Try::CATCH;
                     }
                     elsif( \$Nice::Try::WANT eq 'SCALAR' )
                     {
@@ -1294,6 +1294,10 @@ if( ( CORE::defined( \$Nice::Try::WANTARRAY ) || ( defined( \$Nice::Try::BREAK )
         }
     }
 }
+elsif( scalar( \@Nice::Try::VOID ) && ( !Scalar::Util::blessed( \$Nice::Try::VOID[0] ) || ( Scalar::Util::blessed( \$Nice::Try::VOID[0] ) && !\$Nice::Try::VOID[0]->isa( 'Nice::Try::SENTINEL' ) ) ) )
+{
+    CORE::return( scalar( \@Nice::Try::VOID ) > 1 ? \@Nice::Try::VOID : \$Nice::Try::VOID[0] );
+}
 EOT
         $last_return_block =~ s/\n/ /gs unless( $self->{debug_code} );
         push( @$repl, $last_return_block );
@@ -1853,7 +1857,7 @@ And you also have granular power in the catch block to filter which exception to
 
 =head1 VERSION
 
-    v1.3.3
+    v1.3.4
 
 =head1 DESCRIPTION
 

package/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/.meta/Attribute-Util-1.07/install.json

@@ -1 +1 @@
-{"dist":"Attribute-Util-1.07","provides":{"Attribute::SigHandler":{"file":"lib/Attribute/SigHandler.pm","version":"1.02"},"Attribute::Memoize":{"file":"lib/Attribute/Memoize.pm","version":"1.02"},"Attribute::Util":{"version":"1.07","file":"lib/Attribute/Util.pm"},"Attribute::Alias":{"file":"lib/Attribute/Alias.pm","version":"1.02"},"Attribute::Abstract":{"version":"1.02","file":"lib/Attribute/Abstract.pm"},"Attribute::Method":{"version":"1.04","file":"lib/Attribute/Method.pm"}},"name":"Attribute::Util","target":"Attribute::Abstract","pathname":"D/DA/DANKOGAI/Attribute-Util-1.07.tar.gz","version":"1.07"}
+{"pathname":"D/DA/DANKOGAI/Attribute-Util-1.07.tar.gz","provides":{"Attribute::SigHandler":{"version":"1.02","file":"lib/Attribute/SigHandler.pm"},"Attribute::Method":{"version":"1.04","file":"lib/Attribute/Method.pm"},"Attribute::Abstract":{"version":"1.02","file":"lib/Attribute/Abstract.pm"},"Attribute::Util":{"version":"1.07","file":"lib/Attribute/Util.pm"},"Attribute::Alias":{"file":"lib/Attribute/Alias.pm","version":"1.02"},"Attribute::Memoize":{"file":"lib/Attribute/Memoize.pm","version":"1.02"}},"dist":"Attribute-Util-1.07","name":"Attribute::Util","version":"1.07","target":"Attribute::Abstract"}

package/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/.meta/Capture-Tiny-0.48/install.json

@@ -1 +1 @@
-{"provides":{"Capture::Tiny":{"file":"lib/Capture/Tiny.pm","version":"0.48"}},"target":"Capture::Tiny","name":"Capture::Tiny","dist":"Capture-Tiny-0.48","pathname":"D/DA/DAGOLDEN/Capture-Tiny-0.48.tar.gz","version":"0.48"}
+{"target":"Capture::Tiny","version":"0.48","name":"Capture::Tiny","dist":"Capture-Tiny-0.48","pathname":"D/DA/DAGOLDEN/Capture-Tiny-0.48.tar.gz","provides":{"Capture::Tiny":{"file":"lib/Capture/Tiny.pm","version":"0.48"}}}