Expose Perl 5 global variables as %*PERL5

Fixes GH #69
niner · Jul 23, 2016 · de1dfb6 · de1dfb6
1 parent 5e3df66
commit de1dfb6
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 1 deletion.
diff --git a/lib/Inline/Perl5.pm6 b/lib/Inline/Perl5.pm6
@@ -521,6 +521,12 @@ method global(Str $name) {
     self.p5_to_p6(p5_get_global($!p5, $name))
 }
 
+PROCESS::<%PERL5> := class :: does Associative {
+    multi method AT-KEY($name) {
+        Inline::Perl5.default_perl5.global($name)
+    }
+}.new;
+
 class Perl6Callbacks {
     has $.p5;
     method create($package, $code) {

diff --git a/t/globals.t b/t/globals.t
@@ -5,12 +5,15 @@ my $p5 = Inline::Perl5.default_perl5;
 
 try EVAL 'die "test\n"', :lang<Perl5>;
 is $p5.global('$@'), "test\n";
+is %*PERL5<$@>, "test\n";
 
 EVAL '@a = (1, 2)', :lang<Perl5>;
 is $p5.global('@a'), [1, 2];
+is %*PERL5<@a>, [1, 2];
 
 EVAL '%a = (a => 1)', :lang<Perl5>;
-is-deeply $p5.global('%a'), {a => 1};
+is $p5.global('%a'), {a => 1};
+is %*PERL5<%a>, {a => 1};
 
 done-testing;