Add support for calling arbitrary P6 functions from P5

lib/Inline/Perl5.pm6

@@ -457,7 +457,10 @@ class Perl6Callbacks {
         return;
     }
     method run($code) {
-        return $!p5.p6_to_p5(EVAL $code);
+        return EVAL $code;
+    }
+    method call(Str $name, @args) {
+        return &::($name)(|@args);
     }
 }
 
@@ -505,6 +508,11 @@ method init_callbacks {
             return $p6->run($code);
         }
 
+        sub call {
+            my ($name, @args) = @_;
+            return $p6->call($name, \@args);
+        }
+
         sub import {
             $package = scalar caller;
         }

t/call_p6_function_from_p5.t

@@ -0,0 +1,18 @@
+#!/usr/bin/env perl6
+
+use v6;
+use Inline::Perl5;
+
+my $p5 = Inline::Perl5.new();
+$p5.run(q:to/PERL5/);
+    use 5.10.0;
+
+    STDOUT->autoflush(1);
+    say '1..2';
+
+    v6::call('say', 'ok 1');
+    PERL5
+
+say 'ok 2';
+
+# vim: ft=perl6