- Blocks passed as callbacks to Perl modules will automatically conve…

…rt the Perl arguments into Sidef objects.

In addition, the callback is called as a block (with method `run`), which doesn't require unpacking of the arguments.

lib/Sidef/Types/Block/Block.pm

@@ -195,7 +195,7 @@ package Sidef::Types::Block::Block {
                 local *UNIVERSAL::AUTOLOAD = $ref;
                 if (defined($a) || defined($b)) { push @args, $a, $b }
                 elsif (defined($_)) { unshift @args, $_ }
-                $self->call(@args);
+                $self->run(map { Sidef::Perl::Perl->to_sidef($_) } @args);
             };
         }
     }

scripts/Games/asciiplanes.sf

@@ -74,8 +74,8 @@ if (!ARGV.is_empty) {
          'hit-char=s'        => func(_,v) { hit_char   = Str(v)  },
          'miss-char=s'       => func(_,v) { miss_char  = Str(v)  },
          'wrap!'             => func(_,v) { wrap_plane = Bool(v) },
-         'help|h|?'          => usage,
-         'version|v|V'       => ver,
+         'help|h|?'          => func(*_)  { usage() },
+         'version|v|V'       => func(*_)  { ver() },
     );
 }
 

scripts/Tests/amb_nested_loops.sf

@@ -1,7 +1,6 @@
 #!/usr/bin/ruby
 
-var code = { |*arr|
-    var words = arr.map {|item| Perl.to_sidef(item) };
+var code = { |*words|
 
     var chr = words[0].last;
     words.ft(1).each { |word|