Catch adding a null method - it's almost certainly a sign of a problem.

Raku · Apr 20, 2011 · 30a5cbb · 30a5cbb
1 parent e199d50
commit 30a5cbb
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/metamodel/how/NQPClassHOW.pm b/src/metamodel/how/NQPClassHOW.pm
@@ -61,6 +61,9 @@ knowhow NQPClassHOW {
         if %!methods{$name} {
             pir::die("This class already has a method named " ~ $name);
         }
+        if pir::isnull__IP($code_obj) || pir::isa__IPs($code_obj, 'Undef') {
+            pir::die("Cannot add a null method '$name' to class '$!name'");
+        }
         %!methods{$name} := $code_obj;
     }