find_method: filter out NQPRoutine et al

Fixes #6
perlpilot · Jun 2, 2017 · 4d744c0 · 4d744c0
1 parent f828d80
commit 4d744c0
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/Grammar/Profiler/Simple.pm b/lib/Grammar/Profiler/Simple.pm
@@ -4,6 +4,7 @@ my class ProfiledGrammarHOW is Metamodel::GrammarHOW {
 
     method find_method($obj, $name) {
         my $meth := callsame;
+        return $meth if $meth.^name eq 'NQPRoutine' || $meth !~~ Any || $meth !~~ Regex;
         substr($name, 0, 1) eq '!' ||
         substr($name, 0, 8) eq 'dispatch' || 
         $name eq any(« parse CREATE Bool defined MATCH Stringy Str WHERE orig BUILD DESTROY ») ??