Inline::Perl5::global for accessing Perl 5's global variables

lib/Inline/Perl5.pm6

@@ -196,6 +196,9 @@ sub p5_is_object(Perl5Interpreter, Pointer) is native($p5helper)
 sub p5_is_sub_ref(Perl5Interpreter, Pointer) is native($p5helper)
     returns int32 { ... }
 
+sub p5_get_global(Perl5Interpreter, Str) is native($p5helper)
+    returns Pointer { ... }
+
 sub p5_eval_pv(Perl5Interpreter, Str, int32) is native($p5helper)
     returns Pointer { ... }
 
@@ -514,6 +517,10 @@ method execute(Pointer $code_ref, *@args) {
     self!unpack_return_values($av);
 }
 
+method global(Str $name) {
+    self.p5_to_p6(p5_get_global($!p5, $name))
+}
+
 class Perl6Callbacks {
     has $.p5;
     method create($package, $code) {

p5helper.c

@@ -249,6 +249,22 @@ const char *p5_sv_reftype(PerlInterpreter *my_perl, SV *sv) {
     return sv_reftype(SvRV(sv), 1);
 }
 
+SV *p5_get_global(PerlInterpreter *my_perl, const char* name) {
+    if (strlen(name) < 2)
+        return;
+
+    if (name[0] == '$')
+        return get_sv(&name[1], 0);
+
+    if (name[0] == '@')
+        return sv_2mortal(newRV_inc(get_av(&name[1], 0)));
+
+    if (name[0] == '%')
+        return sv_2mortal(newRV_inc(get_hv(&name[1], 0)));
+
+    return;
+}
+
 SV *p5_eval_pv(PerlInterpreter *my_perl, const char* p, I32 croak_on_error) {
     PERL_SET_CONTEXT(my_perl);
     return eval_pv(p, croak_on_error);

t/globals.t

@@ -0,0 +1,17 @@
+use Test;
+
+use Inline::Perl5;
+my $p5 = Inline::Perl5.default_perl5;
+
+try EVAL 'die "test\n"', :lang<Perl5>;
+is $p5.global('$@'), "test\n";
+
+EVAL '@a = (1, 2)', :lang<Perl5>;
+is $p5.global('@a'), [1, 2];
+
+EVAL '%a = (a => 1)', :lang<Perl5>;
+is-deeply $p5.global('%a'), {a => 1};
+
+done-testing;
+
+# vim: ft=perl6