Fix can on Perl6::Object:: packages

niner · Aug 8, 2015 · ffa10fe · ffa10fe
1 parent e90710d
commit ffa10fe
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/Inline/Perl5.pm6 b/lib/Inline/Perl5.pm6
@@ -547,7 +547,9 @@ method init_callbacks {
         }
 
         sub can {
-            return Perl6::Object::call_method('can', @_);
+            my ($self) = shift;
+
+            return ref $self ? Perl6::Object::call_method('can', $self, @_) : v6::invoke($self, 'can', @_);
         }
 
         package Perl6::Callable;