Teach EVAL how to :from<Python>

Plus a bonus .gitignore

Author: awwaiid

.gitignore

@@ -1,3 +1,5 @@
 .prove
 lib/Inline/pyhelper.so
 Makefile
+lib/.precomp
+resources

lib/Inline/Python.pm6

@@ -519,6 +519,10 @@ role PythonParent[$package, $class] {
     );
 }
 
+method default_python {
+    $default_python //= self.new;
+}
+
 BEGIN {
     PythonObject.^add_fallback(-> $, $ { True },
         method ($name) {
@@ -537,3 +541,8 @@ BEGIN {
     }
     PythonObject.^compose;
 }
+
+multi sub EVAL(Cool $code, Str :$lang where { ($lang // '') eq 'Python' }, PseudoStash :$context) is export {
+    state $py = ::("Inline::Python").default_python;
+    $py.run($code);
+}

t/eval.t

@@ -3,12 +3,14 @@
 use v6;
 use Inline::Python;
 
-say '1..1';
+say '1..2';
+
+EVAL 'print "ok 1 - EVAL eval\n"', :from<Python>;
 
 my $py = Inline::Python.new();
 
 $py.run('
-print "ok 1 - basic eval\n";
+print "ok 2 - direct eval\n";
 ', :file);
 
 # vim: ft=perl6