Support passing Python objects to Python methods from Perl 6

niner · Oct 14, 2014 · d708019 · d708019
1 parent 3f06038
commit d708019
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/lib/Inline/Python.pm6 b/lib/Inline/Python.pm6
@@ -216,6 +216,10 @@ multi method p6_to_py(Hash:D $value) returns OpaquePointer {
     return $dict;
 }
 
+multi method p6_to_py(PythonObject:D $value) {
+    $value.ptr;
+}
+
 multi method p6_to_py(Any:U $value) returns OpaquePointer {
     py_none();
 }

diff --git a/t/call.t b/t/call.t
@@ -3,7 +3,7 @@
 use v6;
 use Inline::Python;
 
-say "1..11";
+say "1..12";
 
 my $py = Inline::Python.new();
 $py.run('
@@ -138,13 +138,11 @@ else {
     say "not ok 11 - Passing hashes to Python";
 }
 
-if False {
 if ($py.call('__main__', 'test_foo', $py.call('__main__', 'Foo', 6)) == 6) {
     say "ok 12 - Passing Python objects back from Perl 6";
 }
 else {
     say "not ok 12 - Passing Python objects back from Perl 6";
 }
-}
 
 # vim: ft=perl6