[truffle] Make nqp::can more correct

Still doesn't do the full logic

Author: pmurias

src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPCanNode.java

@@ -2,14 +2,14 @@
 import com.oracle.truffle.api.frame.VirtualFrame;
 import com.oracle.truffle.api.nodes.NodeInfo;
 import org.perl6.nqp.truffle.nodes.NQPNode;
-import org.perl6.nqp.truffle.nodes.NQPIntNode;
+import org.perl6.nqp.truffle.nodes.NQPNodeWithSTableGetting;
 
 import org.perl6.nqp.truffle.sixmodel.TypeObject;
 
 import org.perl6.nqp.dsl.Deserializer;
 
 @NodeInfo(shortName = "can")
-public final class NQPCanNode extends NQPIntNode {
+public final class NQPCanNode extends NQPNodeWithSTableGetting {
     @Child private NQPNode invocantNode;
     @Child private NQPNode nameNode;
 
@@ -24,13 +24,12 @@ public long executeInt(VirtualFrame frame) {
         Object invocant = invocantNode.execute(frame);
         String name = nameNode.executeStr(frame);
 
-        if (invocant instanceof TypeObject) {
-            System.out.println("can on typeobject: " + name);
-            TypeObject typeObject = (TypeObject) invocant;
-            return typeObject.stable.methodCache.containsKey(name) ? 1 : 0;
-        } else {
-            System.out.println("nqp::can on " + invocant);
-            return 0;
-        }
+        // TODO not authorative method caches
+        return getStable(invocant).methodCache.containsKey(name) ? 1 : 0;
+    }
+
+    @Override
+    public void executeVoid(VirtualFrame frame) {
+        executeInt(frame);
     }
 }