javonet-ruby-sdk 2.4.8 → 2.4.9

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

@@ -13,7 +13,7 @@ use Storable;
 
 # XXX this declaration must be on a single line
 # https://metacpan.org/pod/version#How-to-declare()-a-dotted-decimal-version
-use version 0.77; our $VERSION = version->declare('v3.0.1');
+use version 0.77; our $VERSION = version->declare('v3.0.2');
 
 XSLoader::load 'autobox', $VERSION;
 
@@ -98,7 +98,7 @@ sub _generate_class($) {
     };
 }
 
-# expose the autobox class (for can, isa &c.)
+# expose the autobox class (for can, isa etc.)
 # https://rt.cpan.org/Ticket/Display.html?id=55565
 sub _make_class_accessor ($) {
     my $class = shift;

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

@@ -40,8 +40,8 @@ autobox - call methods on native types
 
     # can, isa, VERSION, import and unimport can be accessed via autobox_class
 
-        42->autobox_class->isa('MyNumber')
-        say []->autobox_class->VERSION
+        42->autobox_class->isa('MyNumber');
+        say []->autobox_class->VERSION;
 
 =head1 DESCRIPTION
 
@@ -78,7 +78,8 @@ resolves to:
 
     ARRAY::for_each([ 1 .. 10 ], sub { ... })
 
-Values beginning with the array C<@> and hash C<%> sigils are passed by reference, i.e. under the default bindings:
+Values beginning with the array C<@> and hash C<%> sigils are passed by
+reference, i.e. under the default bindings:
 
     @array->join(', ')
     @{ ... }->length()
@@ -152,7 +153,7 @@ Autoboxing can be turned off entirely by using the C<no> syntax:
 
     "Hello, world!"->bar(); # runtime error
 
-Autoboxing is not performed for barewords i.e.
+Autoboxing is not performed for barewords, i.e.
 
     my $foo = Foo->new();
 
@@ -245,7 +246,7 @@ three different types of value:
 
 =item *
 
-A class name e.g.
+A class name, e.g.
 
     use autobox INTEGER => 'MyInt';
 
@@ -256,7 +257,7 @@ the corresponding C<value>.
 =item *
 
 A namespace: this is a class prefix (up to and including the final '::')
-to which the specified type name (INTEGER, FLOAT, STRING &c.) will be appended:
+to which the specified type name (INTEGER, FLOAT, STRING etc.) will be appended:
 
 Thus:
 
@@ -309,7 +310,7 @@ Which in turn is equivalent to:
     }
 
 Namespaces in DEFAULT values have the default type name appended, which, in the case of defaulted SCALAR types,
-is SCALAR rather than INTEGER, FLOAT &c.
+is SCALAR rather than INTEGER, FLOAT etc.
 
 Thus:
 
@@ -327,7 +328,7 @@ is equivalent to:
         FLOAT   => 'MyNamespace::SCALAR',
         STRING  => 'MyNamespace::SCALAR',
         ARRAY   => 'MyArray',
-        HASH    => 'MyArray',
+        HASH    => 'MyHash',
         CODE    => 'MyCode',
     }
 
@@ -351,7 +352,7 @@ This doesn't work:
 
     use autobox;
 
-    undef->foo() # runtime error
+    undef->foo(); # runtime error
 
 This works:
 
@@ -412,7 +413,7 @@ is equivalent to:
     }
 
 Virtual types can also be passed to C<unimport> via the C<no autobox> syntax. This disables autoboxing
-for the corresponding subtypes e.g.
+for the corresponding subtypes, e.g.
 
     no autobox qw(NUMBER);
 
@@ -435,7 +436,7 @@ would result in the following bindings:
     3.1415927->bar       -> [ MyNumber, MyScalar ]
     "Hello, world!"->baz -> [ MyScalar ]
 
-Note that DEFAULT bindings take precedence over virtual type bindings i.e.
+Note that DEFAULT bindings take precedence over virtual type bindings, i.e.
 
     use autobox {
         UNIVERSAL => 'MyUniversal',
@@ -446,7 +447,7 @@ is equivalent to:
 
   use autobox {
       INTEGER => [ 'MyDefault', 'MyUniversal' ],
-      FLOAT   => [ 'MyDefault', 'MyUniversal' ], # ... &c.
+      FLOAT   => [ 'MyDefault', 'MyUniversal' ], # ... etc.
   }
 
 =head2 DEBUG
@@ -485,11 +486,11 @@ or
 =head2 import
 
 This method sets up autobox bindings for the current lexical scope. It can be used to implement
-autobox extensions i.e. lexically-scoped modules that provide autobox bindings for one or more
+autobox extensions, i.e. lexically-scoped modules that provide autobox bindings for one or more
 native types without requiring calling code to C<use autobox>.
 
 This is done by subclassing autobox and overriding C<import>. This allows extensions to effectively
-translate C<use MyModule> into a bespoke C<use autobox> call e.g.:
+translate C<use MyModule> into a bespoke C<use autobox> call, e.g.:
 
     package String::Trim;
 
@@ -518,7 +519,7 @@ Note that C<trim> is defined in an auxiliary class rather than in String::Trim i
 String::Trim's own methods (i.e. the methods it inherits from autobox) being exposed to C<STRING> types.
 
 This module can now be used without a C<use autobox> statement to enable the C<trim> method in the current
-lexical scope e.g.:
+lexical scope, e.g.:
 
     #!/usr/bin/env perl
 
@@ -531,7 +532,7 @@ lexical scope e.g.:
 =head2 autobox_class
 
 autobox adds a single method to all autoboxed types: C<autobox_class>. This can be used to
-call L<UNIVERSAL|UNIVERSAL> methods i.e. C<can>, C<DOES>, C<import>, C<isa>, C<unimport> and C<VERSION> e.g.
+call L<UNIVERSAL|UNIVERSAL> methods, i.e. C<can>, C<DOES>, C<import>, C<isa>, C<unimport> and C<VERSION>, e.g.
 
     if (sub { ... }->autobox_class->can('curry')) ...
     if (42->autobox_class->isa('SCALAR')) ...
@@ -540,7 +541,7 @@ Note: C<autobox_class> must B<always> be used when calling these methods. Callin
 directly on native types produces the same results as calling them with autobox disabled
 e.g.:
 
-    42->isa('NUMBER') # "" (interpeted as "42"->isa("NUMBER"))
+    42->isa('NUMBER') # "" (interpreted as "42"->isa("NUMBER"))
     []->can('push')   # Error: Can't call method "can" on unblessed reference
 
 =head1 EXPORTS
@@ -550,7 +551,7 @@ e.g.:
 autobox includes an additional module, autobox::universal, which exports a single subroutine, C<type>.
 
 This sub returns the type of its argument within autobox (which is essentially longhand for the type names
-used within perl). This value is used by autobox to associate a method invocant with its designated classes e.g.
+used within perl). This value is used by autobox to associate a method invocant with its designated classes, e.g.
 
     use autobox::universal qw(type);
 
@@ -560,7 +561,7 @@ used within perl). This value is used by autobox to associate a method invocant
     type(undef) # UNDEF
 
 autobox::universal is loaded automatically by autobox, and, as its name suggests, can be used to install
-a universal C<type> method for autoboxed values e.g.
+a universal C<type> method for autoboxed values, e.g.
 
     use autobox UNIVERSAL => 'autobox::universal';
 
@@ -624,7 +625,7 @@ Perl's special-casing for the C<print BLOCK ...> syntax (see L<perlsub>) means t
     print { 'foo', 'bar', @_ }->foo();
 
     # but this doesn't
-    print { @_ }->foo() ? 1 : 0
+    print { @_ }->foo() ? 1 : 0;
 
 In the latter case, the solution is to supply something
 other than a HASH ref literal as the first argument
@@ -649,14 +650,14 @@ to C<print()>:
 =head3 eval EXPR
 
 Like most pragmas, autobox performs operations at compile time, and,
-as a result, runtime string C<eval>s are not executed within its scope i.e. this
-doesn't work:
+as a result, runtime string C<eval>s are not executed within its scope, i.e.
+this doesn't work:
 
     use autobox;
 
     eval "42->foo";
 
-The workaround is to use autobox within the C<eval> e.g.
+The workaround is to use autobox within the C<eval>, e.g.
 
     eval <<'EOS';
         use autobox;
@@ -678,7 +679,7 @@ which depends on values being blessed - doesn't apply.
 
 =head1 VERSION
 
-3.0.1
+3.0.2
 
 =head1 SEE ALSO
 
@@ -700,9 +701,9 @@ chocolateboy <chocolate@cpan.org>
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2003-2018 by chocolateboy.
+Copyright (c) 2003-2024 by chocolateboy.
 
 This library is free software; you can redistribute it and/or modify it under the
-terms of the L<Artistic License 2.0|http://www.opensource.org/licenses/artistic-license-2.0.php>.
+terms of the L<Artistic License 2.0|https://www.opensource.org/licenses/artistic-license-2.0.php>.
 
 =cut

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

@@ -1,4 +1,4 @@
-=head2 Tue Aug 27 11:24:50 2024: C<Module> L<autobox|autobox>
+=head2 Wed Sep 11 07:15:18 2024: C<Module> L<Want|Want>
 
 =over 4
 
@@ -12,7 +12,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: v3.0.1>
+C<VERSION: 0.29>
 
 =item *
 
@@ -20,7 +20,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Tue Aug 27 11:24:55 2024: C<Module> L<Scalar::Util::Numeric|Scalar::Util::Numeric>
+=head2 Wed Sep 11 07:15:25 2024: C<Module> L<PPI|PPI>
 
 =over 4
 
@@ -34,7 +34,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.40>
+C<VERSION: 1.279>
 
 =item *
 
@@ -42,7 +42,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Tue Aug 27 11:24:58 2024: C<Module> L<Attribute::Util|Attribute::Util>
+=head2 Wed Sep 11 07:15:30 2024: C<Module> L<PPI::XS|PPI::XS>
 
 =over 4
 
@@ -56,7 +56,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.07>
+C<VERSION: 0.910>
 
 =item *
 
@@ -64,7 +64,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Tue Aug 27 11:25:05 2024: C<Module> L<PPI|PPI>
+=head2 Wed Sep 11 07:15:33 2024: C<Module> L<Nice::Try|Nice::Try>
 
 =over 4
 
@@ -78,7 +78,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.279>
+C<VERSION: v1.3.13>
 
 =item *
 
@@ -86,7 +86,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Tue Aug 27 11:25:10 2024: C<Module> L<Want|Want>
+=head2 Wed Sep 11 07:15:37 2024: C<Module> L<Test::Fatal|Test::Fatal>
 
 =over 4
 
@@ -100,7 +100,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.29>
+C<VERSION: 0.017>
 
 =item *
 
@@ -108,7 +108,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Tue Aug 27 11:25:15 2024: C<Module> L<PPI::XS|PPI::XS>
+=head2 Wed Sep 11 07:15:42 2024: C<Module> L<autobox|autobox>
 
 =over 4
 
@@ -122,7 +122,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.910>
+C<VERSION: v3.0.2>
 
 =item *
 
@@ -130,7 +130,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Tue Aug 27 11:25:17 2024: C<Module> L<Nice::Try|Nice::Try>
+=head2 Wed Sep 11 07:15:45 2024: C<Module> L<Attribute::Util|Attribute::Util>
 
 =over 4
 
@@ -144,7 +144,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: v1.3.11>
+C<VERSION: 1.07>
 
 =item *
 
@@ -152,7 +152,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Tue Aug 27 11:25:20 2024: C<Module> L<Data::Cmp|Data::Cmp>
+=head2 Wed Sep 11 07:15:51 2024: C<Module> L<Data::UUID|Data::UUID>
 
 =over 4
 
@@ -166,7 +166,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.010>
+C<VERSION: 1.227>
 
 =item *
 
@@ -174,7 +174,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Tue Aug 27 11:25:28 2024: C<Module> L<Data::UUID|Data::UUID>
+=head2 Wed Sep 11 07:15:56 2024: C<Module> L<Scalar::Util::Numeric|Scalar::Util::Numeric>
 
 =over 4
 
@@ -188,7 +188,29 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.227>
+C<VERSION: 0.40>
+
+=item *
+
+C<EXE_FILES: >
+
+=back
+
+=head2 Wed Sep 11 07:15:59 2024: C<Module> L<Data::Cmp|Data::Cmp>
+
+=over 4
+
+=item *
+
+C<installed into: D:\a\1\s\src\perl\deps\lib\perl5>
+
+=item *
+
+C<LINKTYPE: dynamic>
+
+=item *
+
+C<VERSION: 0.010>
 
 =item *
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/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.11
+## Version v1.3.13
 ## Copyright(c) 2024 DEGUEST Pte. Ltd.
 ## Author: Jacques Deguest <jack@deguest.jp>
 ## Created 2020/05/17
-## Modified 2024/08/11
+## Modified 2024/09/06
 ## All rights reserved
 ## 
 ## This program is free software; you can redistribute  it  and/or  modify  it
@@ -26,7 +26,7 @@ BEGIN
     use Scalar::Util ();
     use List::Util ();
     use Want ();
-    our $VERSION = 'v1.3.11';
+    our $VERSION = 'v1.3.13';
     our $ERROR;
     our( $CATCH, $DIED, $EXCEPTION, $FINALLY, $HAS_CATCH, @RETVAL, $SENTINEL, $TRY, $WANTARRAY );
 }
@@ -770,15 +770,13 @@ if( \$INC{'threads.pm'} && !CORE::exists( \$INC{'forks.pm'} ) )
     \$Nice::Try::THREADED = threads->tid;
 }
 CORE::local \$Nice::Try::WANT;
-CORE::local ( \$Nice::Try::EXCEPTION, \$Nice::Try::DIED, \$Nice::Try::CATCH_DIED, \@Nice::Try::RETVAL, \@Nice::Try::VOID );
+CORE::local ( \$Nice::Try::EXCEPTION, \$Nice::Try::DIED, \$Nice::Try::CATCH_DIED, \@Nice::Try::RETVAL, \@Nice::Try::VOID, \$Nice::Try::RETURN );
 CORE::local \$Nice::Try::WANTARRAY = CORE::wantarray;
-CORE::local \$Nice::Try::TRY = CORE::sub
+CORE::local \$Nice::Try::RETURN = sub
 {
-    \@Nice::Try::LAST_VAL = CORE::do __TRY_OPEN_NL__{ __BLOCK_PLACEHOLDER__ };__TRY__CLOSE_NL__
-    CORE::return( \@Nice::Try::LAST_VAL ) if( !CORE::defined( \$Nice::Try::WANTARRAY ) && CORE::scalar( \@Nice::Try::LAST_VAL ) );
-    CORE::return( \$Nice::Try::VOID[0] = \$Nice::Try::SENTINEL );
+    \$Nice::Try::NEED_TO_RETURN++;
+    return( wantarray() ? \@_ : \$_[0] );
 };
-__FINALLY_BLOCK__ CORE::local \$Nice::Try::HAS_CATCH = $has_catch_clause;
 EOT
             if( !$self->{is_tied} && !$self->{dont_want} && !$self->{is_overloaded} )
             {
@@ -816,6 +814,73 @@ if( CORE::defined( \$Nice::Try::WANTARRAY ) && !\$Nice::Try::THREADED && !( !COR
 EOT
             }
             $try_sub .= <<EOT;
+CORE::local \$Nice::Try::TRY = CORE::sub
+{
+    \@Nice::Try::LAST_VAL = CORE::do __TRY_OPEN_NL__{ __BLOCK_PLACEHOLDER__ };__TRY__CLOSE_NL__
+    CORE::return( \@Nice::Try::LAST_VAL ) if( !CORE::defined( \$Nice::Try::WANTARRAY ) && CORE::scalar( \@Nice::Try::LAST_VAL ) );
+    \$Nice::Try::VOID[0] = \$Nice::Try::SENTINEL;
+    if( CORE::defined( \$Nice::Try::WANT ) && CORE::length( \$Nice::Try::WANT ) )
+    {
+        if( \$Nice::Try::WANT eq 'OBJECT' )
+        {
+            CORE::return( Nice::Try::ObjectContext->new( sub{ \$Nice::Try::VOID[0] } )->callback() );
+        }
+        elsif( \$Nice::Try::WANT eq 'CODE' )
+        {
+            CORE::return( sub{ \$Nice::Try::VOID[0] } );
+        }
+        elsif( \$Nice::Try::WANT eq 'HASH' )
+        {
+            CORE::return( { dummy => \$Nice::Try::VOID[0] } );
+        }
+        elsif( \$Nice::Try::WANT eq 'ARRAY' )
+        {
+            CORE::return( [ \$Nice::Try::VOID[0] ] );
+        }
+        elsif( \$Nice::Try::WANT eq 'REFSCALAR' )
+        {
+            CORE::return( \\\$Nice::Try::VOID[0] );
+        }
+        elsif( \$Nice::Try::WANT eq 'GLOB' )
+        {
+            CORE::return( \*{ \$Nice::Try::VOID[0] } );
+        }
+        elsif( \$Nice::Try::WANT eq 'LIST' )
+        {
+            CORE::return( \$Nice::Try::VOID[0] );
+        }
+        elsif( \$Nice::Try::WANT eq 'BOOLEAN' )
+        {
+            CORE::return( \$Nice::Try::VOID[0] );
+        }
+        elsif( \$Nice::Try::WANT eq 'VOID' )
+        {
+            CORE::return( \$Nice::Try::VOID[0] );
+        }
+        elsif( \$Nice::Try::WANT eq 'SCALAR' )
+        {
+            CORE::return( \$Nice::Try::VOID[0] );
+        }
+    }
+    else
+    {
+        if( \$Nice::Try::WANTARRAY ) 
+        {
+            CORE::return( \$Nice::Try::VOID[0] );
+        }
+        elsif( defined( \$Nice::Try::WANTARRAY ) ) 
+        {
+            CORE::return( \$Nice::Try::VOID[0] );
+        }
+        else 
+        {
+            CORE::return( \$Nice::Try::VOID[0] );
+        }
+    }
+};
+__FINALLY_BLOCK__ CORE::local \$Nice::Try::HAS_CATCH = $has_catch_clause;
+EOT
+            $try_sub .= <<EOT;
 {
     CORE::local \$\@;
     CORE::eval 
@@ -1276,6 +1341,8 @@ if( ( CORE::defined( \$Nice::Try::WANTARRAY ) || ( defined( \$Nice::Try::BREAK )
       ( Scalar::Util::blessed( \$Nice::Try::RETVAL[0] ) && !\$Nice::Try::RETVAL[0]->isa( 'Nice::Try::SENTINEL' ) ) 
     ) ) 
 {
+    \$Nice::Try::NEED_TO_RETURN++ if( defined( \$Nice::Try::BREAK ) && \$Nice::Try::BREAK eq 'return' );
+    no warnings 'void';
 EOT
         if( CORE::scalar( CORE::keys( %warnings:: ) ) && 
             CORE::exists( $warnings::Bits{args_array_with_signatures} ) )
@@ -1291,7 +1358,7 @@ EOT
         {
             if( \$Nice::Try::WANT eq 'LIST' )
             {
-                CORE::return( \@Nice::Try::RETVAL );
+                \$Nice::Try::NEED_TO_RETURN ? CORE::return( \@Nice::Try::RETVAL ) : \@Nice::Try::RETVAL;
             }
             elsif( \$Nice::Try::WANT eq 'VOID' )
             {
@@ -1309,51 +1376,52 @@ EOT
                 }
                 elsif( defined( \$Nice::Try::BREAK ) && \$Nice::Try::BREAK eq 'return' )
                 {
-                    CORE::return( \$Nice::Try::RETVAL[0] );
+                    \$Nice::Try::NEED_TO_RETURN ? CORE::return( \$Nice::Try::RETVAL[0] ) : \$Nice::Try::RETVAL[0];
                 }
             }
             elsif( \$Nice::Try::WANT eq 'OBJECT' )
             {
-                CORE::return( \$Nice::Try::RETVAL[0] );
+                \$Nice::Try::NEED_TO_RETURN ? CORE::return( \$Nice::Try::RETVAL[0] ) : \$Nice::Try::RETVAL[0];
             }
             elsif( \$Nice::Try::WANT eq 'REFSCALAR' )
             {
-                CORE::return( \\\$Nice::Try::RETVAL[0] );
+                \$Nice::Try::NEED_TO_RETURN ? CORE::return( \\\$Nice::Try::RETVAL[0] ) : \\\$Nice::Try::RETVAL[0];
             }
             elsif( \$Nice::Try::WANT eq 'SCALAR' )
             {
-                CORE::return( \$Nice::Try::RETVAL[0] );
+                \$Nice::Try::NEED_TO_RETURN ? CORE::return( \$Nice::Try::RETVAL[0] ) : \$Nice::Try::RETVAL[0];
             }
             elsif( \$Nice::Try::WANT eq 'BOOLEAN' )
             {
-                CORE::return( \$Nice::Try::RETVAL[0] );
+                \$Nice::Try::NEED_TO_RETURN ? CORE::return( \$Nice::Try::RETVAL[0] ) : \$Nice::Try::RETVAL[0];
             }
             elsif( \$Nice::Try::WANT eq 'CODE' )
             {
-                CORE::return( \$Nice::Try::RETVAL[0] );
+                \$Nice::Try::NEED_TO_RETURN ? CORE::return( \$Nice::Try::RETVAL[0] ) : \$Nice::Try::RETVAL[0];
             }
             elsif( \$Nice::Try::WANT eq 'HASH' )
             {
-                CORE::return( { \@Nice::Try::RETVAL } );
+                \$Nice::Try::NEED_TO_RETURN ? CORE::return( { \@Nice::Try::RETVAL } ) : { \@Nice::Try::RETVAL };
             }
             elsif( \$Nice::Try::WANT eq 'ARRAY' )
             {
-                CORE::return( \\\@Nice::Try::RETVAL );
+                \$Nice::Try::NEED_TO_RETURN ? CORE::return( \\\@Nice::Try::RETVAL ) : \\\@Nice::Try::RETVAL;
             }
             elsif( \$Nice::Try::WANT eq 'GLOB' )
             {
-                CORE::return( \$Nice::Try::RETVAL[0] );
+                \$Nice::Try::NEED_TO_RETURN ? CORE::return( \$Nice::Try::RETVAL[0] ) : \$Nice::Try::RETVAL[0];
             }
         }
         else
         {
-            CORE::return( \$Nice::Try::WANTARRAY ? \@Nice::Try::RETVAL : \$Nice::Try::RETVAL[0] );
+            \$Nice::Try::NEED_TO_RETURN ? CORE::return( \$Nice::Try::WANTARRAY ? \@Nice::Try::RETVAL : \$Nice::Try::RETVAL[0] ) : \$Nice::Try::WANTARRAY ? \@Nice::Try::RETVAL : \$Nice::Try::RETVAL[0];
         }
     }
 }
 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] );
+    no warnings 'void';
+    scalar( \@Nice::Try::VOID ) > 1 ? \@Nice::Try::VOID : \$Nice::Try::VOID[0];
 }
 EOT
         $last_return_block =~ s/\n/ /gs unless( $self->{debug_code} );
@@ -1362,7 +1430,7 @@ EOT
         # my $token = PPI::Token->new( "; \{ $try_catch_code \}" ) || die( "Unable to create token" );
         # NOTE: 2021-05-11 (Jacques): Need to remove blocks so that next or last statements can be effective.
         my $envelop = <<EOT;
-; CORE::local( \$Nice::Try::BREAK, \@Nice::Try::LAST_VAL );
+; CORE::local( \$Nice::Try::BREAK, \@Nice::Try::LAST_VAL ); local \$Nice::Try::NEED_TO_RETURN = 0 unless( defined( \$Nice::Try::NEED_TO_RETURN ) );
 \{
 __TRY_CATCH_CODE__
 \}
@@ -1537,6 +1605,61 @@ sub _process_loop_breaks
             }
             next;
         }
+        elsif( $class eq 'PPI::Token::Word' && 
+               ( $e->content // '' ) eq 'return' &&
+               $e->sprevious_sibling &&
+               # Should be enough
+               $e->sprevious_sibling->class eq 'PPI::Token::Operator' )
+               # $e->sprevious_sibling->class eq 'PPI::Token::Operator' &&
+               # ( $e->sprevious_sibling->content // '' ) =~ /^$/ )
+        {
+            my $break_code;
+            my @to_remove;
+            # return( # something );
+            if( $e->snext_sibling &&
+                $e->snext_sibling->class eq 'PPI::Structure::List' )
+            {
+                my $list = $e->snext_sibling;
+                push( @to_remove, $list );
+                $break_code = "return( \$Nice::Try::RETURN->${list} )";
+            }
+            # return( "" ) or return( '' )
+            elsif( $e->snext_sibling && 
+                   $e->snext_sibling->isa( 'PPI::Token::Quote' ) )
+            {
+                my $list = $e->snext_sibling;
+                push( @to_remove, $list );
+                $break_code = "return( \$Nice::Try::RETURN->(${list}) );";
+            }
+            # return;
+            elsif( $e->snext_sibling && 
+                   $e->snext_sibling->class eq 'PPI::Token::Structure' &&
+                   $e->snext_sibling->content eq ';' )
+            {
+                $break_code = "return( \$Nice::Try::RETURN->() );";
+            }
+            else
+            {
+                my $list = '';
+                my $next_elem;
+                my $prev_elem = $e;
+                while( $next_elem = $prev_elem->snext_sibling )
+                {
+                    last if( $next_elem->content eq ';' );
+                    $list .= $next_elem->content;
+                    push( @to_remove, $next_elem );
+                    $prev_elem = $next_elem;
+                }
+                $break_code = "return( \$Nice::Try::RETURN->(${list}) );";
+            }
+            my $break_doc = PPI::Document->new( \$break_code, readonly => 1 );
+            my $new_elem = $break_doc->first_element;
+            $new_elem->remove;
+            $self->_message( 5, "New element is object '", sub{ overload::StrVal( $new_elem ) }, "' -> $new_elem" ) if( $self->{debug} >= 5 );
+            # Not yet implemented as of 2021-05-11 dixit PPI, so we use a hack to make it available anyhow
+            $e->replace( $new_elem );
+            $_->remove for( @to_remove );
+        }
         
         if( $e->can('elements') && $e->elements )
         {
@@ -2039,7 +2162,7 @@ And you also have granular power in the catch block to filter which exception to
 
 =head1 VERSION
 
-    v1.3.11
+    v1.3.13
 
 =head1 DESCRIPTION